Copier coller column itération
Résolu
loulou5986
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
loulou5986 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
loulou5986 Messages postés 12 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Copier coller column itération
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Style d'écriture a copier coller - Guide
- Arobase copier coller - Forum Windows 10
4 réponses
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 ...
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.
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.
Re,
Michel
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