Code permettant de copier une colonne sur 2

[alias_2003]

Bonjour à tous ,
J'ai besoin de votre aide pour écrire un code me permettent de ne copier que certaines cellules 1 colonne sur 2 et de les coller dans un autre tableau placé sur la même feuille.
J'espère que le fichier exemple ci joint sera assez clair...
Merci beaucoup de votre aide,
Bonne soirée,
Amicalement

 

[Fred0o]

Re : Code permettant de copier une colonne sur 2

Bonsoir alias_2003,

code à tester :

Sub copie()
    Dim i As Integer
    For i = 1 To Range("IV1").End(xlToLeft).Column
        If Cells(1, i) = "nom" Then
            Range(Cells(2, i), Cells(5, i)).Copy Destination:=Cells(10, i)
        End If
    Next
End Sub

A+

 

[alias_2003]

Re : Code permettant de copier une colonne sur 2

Bonjour Fred0o et merci !!
Juste une question, est-il possible d'intégrer le code à une feuille (copie automatique sans passer par un bouton) ??
Merci beaucoup,
Amicalement