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

jeremy18 · 20 Avril 2021

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 · 20 Avril 2021

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

VB:

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

jeremy18 · 20 Avril 2021

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

VB:

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 · 20 Avril 2021

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")

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

jeremy18

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

jeremy18

XLDnaute Nouveau

fanch55

XLDnaute Barbatruc

Discussions similaires