Une Macro qui copie...

Cousinhub

XLDnaute Barbatruc

• 1 Juin 2008

• #2

Re : Une Macro qui copie...

Bonsoir,

essaie avec ce code :

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 :

 

Pièces jointes

• Feuille-résumé_v1.zip

  10 KB · Affichages: 16

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 1 Juin 2008

• #3

Re : Une Macro qui copie...

bonjour emmanuel75

Vois si cela te convient

Edit : Encore a la traine moi !!!

Salut bh^2

 

Pièces jointes

• Feuille-résumé.zip

  13.2 KB · Affichages: 21

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 1 Juin 2008

• #4

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...😀

 

Dernière édition: 1 Juin 2008

Vote positif 0 Vote négatif

E

emmanuel75

Guest

• 1 Juin 2008

• #5

Re : Une Macro qui copie...

Merci à toi Bhbh...

Emmanuel

 

Vote positif 0 Vote négatif

E

emmanuel75

Guest

• 1 Juin 2008

• #6

Re : Une Macro qui copie...

Merci pierrejean...

 

Vote positif 0 Vote négatif