Copier/Coller une colonne en VBA
Chtitmiss
-
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis en train de travailler sur un programme en VBA (Excel). Je souhaite copier une colonne de la feuille précédent celle active sur la feuille active.
J'ai essayé mais ca ne fonctionne pas =$
Voici mon code actuel :
Dim col_a_copier As Range
Dim col_ou_coller As Range
If m <> 1 Then
col_a_copier = An2009.Worksheets(m - 1).Range("B:B") 'm étant le numéro de la feuille active
col_ou_coller = ActiveSheet.Range("C:C")
col_a_copier.Copy
col_ou_coller.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End If
Je ne trouve pas l'erreur. Pouvez-vous m'aider s'il vous plaît ?
Merci d'avance =)
Je suis en train de travailler sur un programme en VBA (Excel). Je souhaite copier une colonne de la feuille précédent celle active sur la feuille active.
J'ai essayé mais ca ne fonctionne pas =$
Voici mon code actuel :
Dim col_a_copier As Range
Dim col_ou_coller As Range
If m <> 1 Then
col_a_copier = An2009.Worksheets(m - 1).Range("B:B") 'm étant le numéro de la feuille active
col_ou_coller = ActiveSheet.Range("C:C")
col_a_copier.Copy
col_ou_coller.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
End If
Je ne trouve pas l'erreur. Pouvez-vous m'aider s'il vous plaît ?
Merci d'avance =)
A voir également:
- Copier/Coller une colonne en VBA
- Déplacer une colonne excel - Guide
- Historique copier coller - Guide
- Copier coller pdf - Guide
- Copier-coller - Accueil - Informatique
- Trier une colonne excel - Guide
1 réponse
Bonjour,
dans ton code, je vois plein d'erreur soit tu ne l'as pas mis en entier soit il manque des choses.
A quoi correspond m??
ensuite, tu mets if m <>1 mais tu ne mets pas de end if.
de plus, pour copier et coller une colonne entière, il faut forcément la sélectionner, la copies. tu sélectionnes la feuille destination ainsi que la cellule destination et tu peux coller
Ensuite, tes feuilles me paraissent bizarres. voici le code modifié mais tu devras l'adapter :
sub copiercoller
Dim col_a_copier As Range
Dim col_ou_coller As Range
m=2
If m <> 1 Then
col = Activesheet.name
sheets("An2009").select
columns("B").select
sheets(col).select
cells(1,2).select
Activesheet.PasteSpecial (xlPasteValues)
End If
dans ton code, je vois plein d'erreur soit tu ne l'as pas mis en entier soit il manque des choses.
A quoi correspond m??
ensuite, tu mets if m <>1 mais tu ne mets pas de end if.
de plus, pour copier et coller une colonne entière, il faut forcément la sélectionner, la copies. tu sélectionnes la feuille destination ainsi que la cellule destination et tu peux coller
Ensuite, tes feuilles me paraissent bizarres. voici le code modifié mais tu devras l'adapter :
sub copiercoller
Dim col_a_copier As Range
Dim col_ou_coller As Range
m=2
If m <> 1 Then
col = Activesheet.name
sheets("An2009").select
columns("B").select
sheets(col).select
cells(1,2).select
Activesheet.PasteSpecial (xlPasteValues)
End If