Copier/Coller une colonne en VBA Fermé

Question

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 =)

melanie1324 · Answer

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

Copier/Coller une colonne en VBA

1 réponse

Discussions similaires