copier coller column itération Résolu/Fermé

Question

Bonjour,

Je suis débutante en VBA depuis quelques jours et j'essaie de créer un bouton qui me permet de copier coller la premiere colonne quelques lignes en dessous
Puis en recliquant cela copierait la deuxieme colonne quelques lignes en dessous... Ainsi de suite. 

Pouvez vous m'aider svp?  


Merci d'avance

michel_m · Answer

Bonjour,

Merci d'^tre Plus Précise dans ta demande....

par exemple:
copier coller la premiere colonne quelques lignes en dessous 

Copier-coller ou couper-coller ?
quelques lignes en dessous
en dessous de quoi, combien de lignes ? (quelques: 2, 10, 34 120.... ?)

au besoin joindre le fichier en montrant ce que tu veux faire ... 

pour joindre une piècemettre le classeur sans données confidentielles en pièce jointe surhttp://cjoint.com/ puis copier l'adresse du lien et la coller dans le message de réponse

loulou5986 · Answer

il s'agit bel et bien de copier la première colonne de mon tableau  et de la coller
3 '(ou plus)  lignes en dessous.

Veuillez trouver en PJ mon fichier excel, espérant que cela soit plus clair.
https://www.cjoint.com/?3BhnxdhjF3T


Merci bcp de votre aide et pour la rapidité de votre réponse.

michel_m · Answer

Re,

Option ExplicitSub copier_colonne()Dim dercol As ByteOn Error Resume Next     dercol = Range("B9:G12").Find("*", , , , , xlPrevious).ColumnIf Err.Number > 0 Then dercol = 2      If dercol = 7 Then GoTo plein     dercol = dercol + 1     Range(Cells(9, dercol), Cells(12, dercol)) = Range(Cells(2, dercol), Cells(5, dercol)).Value      Exit Subplein:     MsgBox " tableau rempli !", vbExclamationEnd Sub 
 
 Michel

loulou5986 · Answer

Merci bcp !!

Copier coller column itération

4 réponses

Discussions similaires