Discussion :

[lafafmentvotre]

Bonjour

Est-il possible d'insérer un nombre de lignes en fonction d'une valeur en récupérant les valeurs de lignes (copie).

Je m'explique, j'ai des lignes avec références;prix1;prix2;remise;Nb d'étiquettes.
Je souhaiterais que la Ref1 (voir image) située en ligne 2 soit dupliquée 4 fois (valeur de la cellule E2) sous la ligne 2. Ensuite que la Ref2 située en ligne 3 soit dupliquée 14 fois (valeur de la cellule E3) sous la ligne 3, etc.....

Est-ce possible ?

Merci par avance pour votre aide

[mercatog]

Bonjour,
Sujet identique ici: http://www.developpez.net/forums/d98...nction-nombre/

[MarcelG]

Bonsoir le forum, lafafmentvotre et mercatog

On cherche, on cherche et...
C'est normal, et je m'incline avec respect.

Néammoins, je vous soumets ce code qui peut répondre, je pense, au besoin de notre ami.

Peux-tu me donner un avis, mercatog.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Essai()
 
Dim C As Range, ligninsert As Range
 
Range("A2").Activate
Do While Not IsEmpty(ActiveCell)
    Set C = ActiveCell
    Set ligninsert = Range(C, C.Offset(C.Offset(0, 4).Value, 4))
    décal = ligninsert.Rows.Count * (-1)
    ligninsert.Offset(1, 0).EntireRow.Insert
    Set ligninsert = ligninsert.Resize(ligninsert.Rows.Count * 0.5, 5)
    C.Copy Destination:=ligninsert.Columns(1)
    C.Offset(ligninsert.Rows.Count, 0).EntireRow.Delete
    C.Offset(ligninsert.Rows.Count, 0).Activate
Loop
 
End Sub

Franchement, çà me ferait plaisir!

Cordialement.

Marcel

[lafafmentvotre]

Hello

Merci pour le lien, c'est tout à fait ce que je souhaitais.

Bonne soirée