Discussion :

[oasis742]

Hello,
Mon objectif est de sélectionner les lignes qui contiennent le mot Depense dans une liste, puis de copier les lignes correspondantes et de les coller sur une autre feuille.
J'ai donc crée une boucle For pour parcourir ma liste mais je rencontre un problème, j'ai l'impression que la macro copie seulement la 1ere ligne où il rencontre le mot Depense puis colle plusieurs fois cette ligne.
Voici mon 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
If ComboBox1.Value = "Depense" Then
    Set ts = ThisWorkbook.Sheets("Gestion")
    Der_Ligne = ts.Cells(Rows.Count, "A").End(xlUp).Row 'Dernière ligne de la feuille Gestion
    Der_LigneD = Sheets("Depense").Cells(Rows.Count, "A").End(xlUp).Row
 
    iLigne = 1
    For i = 1 To Der_Ligne
        If ts.Cells(iLigne, "D").Value = "Depense" Then 'Verifie la valeur Recette dans la colonne
            Der_LigneD = Der_LigneD + 1
            ts.Range("A" & iLigne & ":E" & iLigne).Copy _
            Destination:=Sheets("Depense").Cells(Der_LigneD, "A")
           ' UserForm3.Hide
            'ThisWorkbook.Sheets("Depense").Select
       Else
        iLigne = iLigne + 1
       End If
    Next

Merci de votre aide

[SfJ5Rpw8]

Bonjour,


que viens faire ce else ...? l'incrémentation de numéro de iLigne ne doit pas être conditionné ... sort la de ton if..

[oasis742]

Ah oui en effet ça marche mieux
Merci de ton aide