Discussion :

[PIEPLU]

Bonjour,

J'ai un gros problème a vous soumettre.
Je vois joint un XLS pour vous montrer.
J'ai en Colonne D, une quantité à chaque ligne. Exemple pour la première ligne, j'ai une quantité de 3.
le but du jeu est de diviser cette ligne en 3. C'est à dire rajouter 2 lignes sous la ligne 2 avec les données de la ligne 2.
Le but final, est de ne plus avoir de quantité supérieur à 1 mais bien 1 dans Quantité.

Merci de votre aide, c'est très important

[jfontaine]

Bonjour,

Essai le code ci dessous

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
18
19
20
21
22
23
24
Sub duplique()
 
 
Dim i As Long
Dim Inb As Integer
Dim j As Integer
 
 
i = 2
 
Do While Range("B" & i).Value <> ""
 
    Inb = Range("D" & i).Value
    Range("D" & i).Value = 1
    For j = 2 To Inb
        Rows(i).Copy
        Rows(i + 1).Insert Shift:=xlDown
        Range("D" & i + 1).Value = 1
    Next j
    i = i + Inb
 
Loop
 
End Sub

[mercatog]

Une autre proposition

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
18
Sub Scinder()
Dim LastLig As Long, i As Long
Dim Q As Integer
 
Application.ScreenUpdating = False
With Sheets("Inventaire MXX Mars 2010")
   LastLig = .Cells(.Rows.Count, "D").End(xlUp).Row
   For i = LastLig To 2 Step -1
      Q = .Range("D" & i).Value
      If Q > 1 Then
         .Range("D" & i).Value = 1
         .Rows(i).Copy
         .Rows(i & ":" & i + Q - 2).Insert
         Application.CutCopyMode = False
      End If
   Next i
End With
End Sub