Copier coller column itération

Résolu/Fermé
loulou5986 Messages postés 12 Date d'inscription vendredi 7 février 2014 Statut Membre Dernière intervention 9 mai 2014 - 7 févr. 2014 à 10:53
loulou5986 Messages postés 12 Date d'inscription vendredi 7 février 2014 Statut Membre Dernière intervention 9 mai 2014 - 10 févr. 2014 à 08:41
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

4 réponses

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 304
7 févr. 2014 à 11:05
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è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
loulou5986 Messages postés 12 Date d'inscription vendredi 7 février 2014 Statut Membre Dernière intervention 9 mai 2014
7 févr. 2014 à 13:24
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 Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 304
Modifié par michel_m le 7/02/2014 à 13:51
Re,

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
loulou5986 Messages postés 12 Date d'inscription vendredi 7 février 2014 Statut Membre Dernière intervention 9 mai 2014
10 févr. 2014 à 08:41
Merci bcp !!