Copier/Coller une colonne en VBA
Chtitmiss
-
melanie1324 Messages postés 1561 Statut Membre -
melanie1324 Messages postés 1561 Statut Membre -
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 =)
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
