Une Macro qui copie...

[emmanuel75]

Bonjour à tous,

Je cherche parmi les macros "basiques", un programme qui copie des colonnes dont la première cellule contient un champ récurrent: "A COPIER".
Ces colonnes sont copiées dans un deuxième feuillet les unes à la suite des autres...est ce qu'un excelnaute pourrait m'indiquer un début de réponse ?

Si ma présentation est confuse, peut-être que la P.J sera plus claire...

Merci

 

[Cousinhub]

Re : Une Macro qui copie...

Bonsoir,

essaie avec ce code :

Sub copier()
Dim cel As Range, DerLig As Long, DerCol As Byte
For Each cel In Range("C4", Cells(4, [IV4].End(xlUp).Column))
    If cel = "A COPIER" Then
    DerLig = Cells(65000, cel.Column).End(xlUp).Row
        With Sheets("RESUME")
            DerCol = IIf(.[IV4].End(xlToLeft).Column < 2, 3, .[IV4].End(xlToLeft).Column + 1)
            Range(Cells(4, cel.Column), Cells(DerLig, cel.Column)).Copy .Cells(4, DerCol)
        End With
    End If
Next cel
End Sub

Le fichier :

 

[pierrejean]

Re : Une Macro qui copie...

bonjour emmanuel75

Vois si cela te convient

Edit : Encore a la traine moi !!!

Salut bh^2

 

[Cousinhub]

Re : Une Macro qui copie...

Salut, pierrejean 🙂

Oui, c'est (à peu de choses près) le même code, mais le tien contient quand même le nettoyage en plus...😀

 

[emmanuel75]

Re : Une Macro qui copie...

Merci à toi Bhbh...

Emmanuel

 

[emmanuel75]

Re : Une Macro qui copie...

Merci pierrejean...