Bonjour,
Besoin d'aide pour un petit projet Excel.
Alors j'aimerais copier (ou insérer) des lignes de ma feuille1 dans la feuille2 avec pour condition la valeur de ma cellule G. (Copier la même ligne autant de fois que la valeur de la cellule G) Ce pour chaque ligne de ma feuille1.
Voilà le code que j'essaye d'utiliser, mon problème est de créer une boucle pour descendre d'une ligne dans la feuille 1 après chaque copier.
J'espère être suffisamment clair pour que vous puissiez m'orienter.
D'avance merci
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
25
26
27
28
29
30
31
32
33
34
35 Sub For_X_to_Next_Colonne() Dim FL1 As Worksheet, Cell As Range, NoCol As Integer Dim NoLig As Long, DerLig As Long, Var As Variant Dim i As Integer Dim FL2 As Worksheet Set FL1 = Worksheets("Feuil1") Set FL2 = Worksheets("Feuil2") DerLig = Split(FL1.UsedRange.Address, "$")(4) NoCol = 7 For NoLig = 2 To DerLig Var = FL1.Cells(NoLig, NoCol).Value Do Until Var = 1 FL1.Activate Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Sheets("feuil2").Select Rows("2:1").Select Selection.Insert Shift:=xlDown Var = Var - 1 Loop Next Set FL1 = Nothing End Sub
Partager