XL 2016 dupliquer une ligne en fonction d'une valeur dans une cellule

[jeremy18]

Bonjour,
Je travail sur un fichier excel comprenant 10 colonnes.
Dans une de ces colonnes ( "I"), j'ai un nombre.
Je souhaiterais dupliquer la ligne autant de fois que me donne le nombre dans ma cellule sur une autre feuille.

Auriez-vous un code à me proposer?

merci

PS: je ne peux pas partager le fichier car il est confidentiel.

 

[fanch55]

Bonjour,
Avec ce que vous donnez, essayez le code ci-dessous à placer dans la feuille source :

Sub test()
    With Me.Rows(Selection.Row).Columns("A:I")  ' <-- range à adapter
        .Copy Worksheets("Feuil2").[B3].Resize(.Columns("I"))
    End With
End Sub

 

[jeremy18]

Bonjour,
Avec ce que vous donnez, essayez le code ci-dessous à placer dans la feuille source :

Sub test()
    With Me.Rows(Selection.Row).Columns("A:I")  ' <-- range à adapter
        .Copy Worksheets("Feuil2").[B3].Resize(.Columns("I"))
    End With
End Sub

Merci de votre retour, cependant j'ai un message d'erreur concernant la partie "Me.Rows".
le message est "utilisation incorect du mot clé Me"

 

[fanch55]

Avez-vous placé le code dans celui de la feuille concernée ? --> me.rows....
Sinon si vous le préférez dans un module, remplacez me par worksheets("le nom de la feuille")