Copier une ligne en fonction d'une cellule

[David590]

Bonsoir à tous,

J'ai besoin de copier B2:E2 de la feuil2 pour coller dans la colonne J de la feuil3, sur une ligne définie par la cellule T5 de la feuil1

C'est à dire si T5 de la feuil1 = 43 alors B2:E2 feuil2 serait copier en J43 de la feuil3

Pouvez vous m'aidez?

Merci 🙂

 

[Pierrot93]

Re : Copier une ligne en fonction d'une cellule

Bonjour,

regarde ceci :

If Sheets("Feuil1").Range("T5").Value = 43 Then Sheets("Feuil2").Range("B2:E2").Copy _
    Destination:=Sheets("Feuil3").Range("J43")

bonne journée
@+

 

[David590]

Re : Copier une ligne en fonction d'une cellule

Bonjour Pierrot,

Merci pour ta reponse
Je me suis peut être mal exprimé, en effet ton code fonctionne pour 43 mais j'aimerai que ce soit valable pour toutes les lignes, c'est à dire que si T5=12 alors copie vers la ligne12, si T5=28 alors copie vers la ligne28 etc....

 

[Pierrot93]

Re : Copier une ligne en fonction d'une cellule

Re,

modifie peut être ainsi :

With Sheets("Feuil1").Range("T5")
    If IsNumeric(.Value) And Not IsEmpty(.Value) Then _
        Sheets("Feuil2").Range("B2:E2").Copy Destination:=Sheets("Feuil3").Range("J" & .Value)
End With

 

[David590]

Re : Copier une ligne en fonction d'une cellule

Super ça fonctionne impec

Merci Pierrot 😎

Bonne journée
@+