Code permettant de copier une colonne sur 2

alias_2003 · 12 Octobre 2012

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 · 12 Octobre 2012

Re : Code permettant de copier une colonne sur 2

Bonsoir alias_2003,

code à tester :

VB:

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 · 13 Octobre 2012

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

Code permettant de copier une colonne sur 2

alias_2003

XLDnaute Occasionnel

Pièces jointes

Fred0o

XLDnaute Barbatruc

alias_2003

XLDnaute Occasionnel

Discussions similaires