Discussion :

[leirbag1]

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

[riaolle]

Bonjour,
Je ne vois pas trop où est ton problème..
En faisant une boucle for sur les lignes de la feuil1, tu descends d'une ligne à chquae itération de la boucle.

[leirbag1]

Bonjour,

Merci d'avoir pris le temps de regarder.
C'est la façons d’écrire cette boucle pour la feuille 1 et à quel endroit?
Ps:je tâtonne sans résultat, mes compétences en VBA sont au niveau bricoleur

Merci

[riaolle]

Ta boucle m'a l'air bien placée. As-tu testé ton code? Si oui, que donne-t-il? As-tu un message d'erreur? Si oui, lequel et où pointe-t-il dans ton code? Si non, quels sont les résultats une fois que le code a tourné?

[leirbag1]

Le soucis est que je copie uniquement la première ligne dans la feuille 2.
je n'arrive pas à changer de ligne sur le classeur 1 une fois la boucle "var" finie.

[Philippe Tulliez]

Bonjour,

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.

Pas vu de code publié dans ta demande. Est-ce si compliqué de faire un copier/coller de ton code présent dans l'éditeur VBA vers la page de ce site en n'oubliant pas de le baliser ?

[leirbag1]

Voila le code

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
36
37
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

[Marc-L]

Bonjour,

dans le cas d'une copie selon condition(s) , plus simple et plus rapide qu'une boucle forcément lente
car travaillant cellule par cellule voir du côté des filtres avancés ou élaborés dans Excel !

___________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[leirbag1]

Bonjour,

En effet c'est un peu lent. Intéressant comme solution,

Merci

Je n'ai pas trouvé mon bonheur avec les filtres avancés le problème est que j'ai des conditions différentes pour chaque ligne
avec cette action à répéter un grand nombre de fois.

[Philippe Tulliez]

Bonjour,

Je n'ai pas trouvé mon bonheur avec les filtres avancés le problème est que j'ai des conditions différentes pour chaque ligne

Si tu sais exprimer les conditions dans une structure décisionnelle se trouvant dans une structure répétitive (boucle), il n'y a pas de raison de ne pouvoir les transcrire dans une formule d'excel avec les fonctions ET et/ou OU et ainsi de pouvoir utiliser les filtres avancés d'excel (Méthode AdvancedFilter)

[leirbag1]

Simplement pour ré-explique ma recherche
Il s'agit de multiplier chaque ligne de la feuille1 par la valeur de la colonne G dans la feuille2.

Je ne vois pas comment le faire avec la méthode "AdvancedFilter"

Merci