Copier coller column itération
Résolu
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
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
4 réponses
-
ContributeurBonjour,
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èce
mettre le classeur sans données confidentielles en pièce jointe sur
http://cjoint.com/
puis copier l'adresse du lien et la coller dans le message de réponse -
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. -
ContributeurRe,
Option Explicit
Sub copier_colonne()
Dim dercol As Byte
On Error Resume Next
dercol = Range("B9:G12").Find("*", , , , , xlPrevious).Column
If 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 Sub
plein:
MsgBox " tableau rempli !", vbExclamation
End Sub
Michel -
Merci bcp !!
