Copier / coller avec incrémentation

[mirooz]

Bonjour à tous !
Encore un petit souci:
avec le fichier joint, j'ai créé une fonction d'archivage par incrémentation avec une boucle qui permet de prendre plusieurs lignes d'un tableau et de les copier à la suite dans une autre page sur une seule ligne.
Jusque là cela fonctionne très bien.

Maintenant je souhaite faire l'inverse: prendre les données d'une ligne et les copier par incrémentation dans un tableau.
le problème est que je ne peux pas utiliser la même fonction car lorsque la ligne du tableau s'incrémente de 1, la selection de la ligne doit s'incrémenter de 5 et je n'arrive pas à gérer les deux en même temps.

Un exemple vaut mieux qu'un long discour. Je pense que vous comprendrez tout de suite avec le fichier joint.

 

[pierrejean]

Re : Copier / coller avec incrémentation

bonjour mirooz

vois si cela te convient

tester sur feuil2 et adapter

 

[mirooz]

Re : Copier / coller avec incrémentation

Bonjour pierrejean
Merci à toi, mais je ne comprend pas ton fichier joint ne contient aucun code VBA.

 

[jeanpierre]

Re : Copier / coller avec incrémentation

Bonjour mirooz, PierreJean,

Si il y a du code sous l'USF (Alt F11 et regardes)

Mais curieusement, chez-moi, le fichier s'ouvre sans rien me demander.... comme s'il ne voyait pas les macros....

Bonne soirée.

 

[mirooz]

Re : Copier / coller avec incrémentation

Bonjour jeanpierre
J'ai bien regardé partout dans l'éditeur VBA, chez moi je n'ai aucun userform sur le fichier.
j'ai essayé de le retélécharger mais rien n'y fait. Je ne comprend pas à quoi cela est du...

 

[mirooz]

Re : Copier / coller avec incrémentation

Quelqu'un pourrait-il effectuer un copier coller du code du USF que je puisse le voir ?
Merci

 

[jeanpierre]

Re : Copier / coller avec incrémentation

Re,

Déjà, le code :

Dim plage As Range
Dim plage2 As Range
Dim i As Integer
Private Sub CommandButton1_Click()
'copie du tableau sur la ligne
Set plage = Sheets("feuil1").Range("A1:E1")
Sheets("feuil2").Select
ActiveSheet.Range("A1").Select
For i = 0 To 2
Sheets("feuil1").Select
plage.Offset(i, 0).Select
Selection.Copy
Sheets("feuil2").Select
ActiveSheet.Paste
ActiveCell.Offset(0, 5).Select
Next
End Sub

Sub CommandButton2_Click()
'copie de la ligne dans le tableau
Dim ligne As Integer
Dim col As Integer
ligne = 4
For col = 1 To 11 Step 5
Range(Cells(1, col), Cells(1, col + 4)).Copy Destination:=Cells(ligne, 1)
ligne = ligne + 1
Next col
End Sub


Voilà ce que je vois, (pièce jointe)

 

[pierrejean]

Re : Copier / coller avec incrémentation

bonsoir a tous

Voila une version avec un bouton pour appeler l'userform

Celui-ci existait avec deja un code ,c'est pourquoi je me suis contenté de creer le code du bouton 2 pour transferer la ligne dans le tableau
Ce n'est qu'une base a adapter
Si necessaire ,je peux le faire a condition de bien preciser ce tu veux