Deux boucles dans un même programme Résolu/Fermé

Question

Bonjour, 

je tourne en rond 

j'ai un fichier excel avec dans un premier  onglet une liste de produits. Dans un deuxième onglet  j'ai une deuxième liste de produits.
Je veux supprime les ligne du premier onglet en fonction de la liste du  deuxième onglet, 

j'ai la programmation suivante

Dim Ligne_lue As Long
    Dim Variete As Long
    Variete = 1
    Ligne_lue = 2
    While Cells(Ligne_lue, 2) <> ""
    Cells(Ligne_lue, 2).Select
    If ActiveCell.Text Like Sheets("liste propriétés").Cells(Variete, 1).Text Then
    Range(Cells(Ligne_lue, 1), Cells(Ligne_lue, 15)).Select
    Selection.ClearContents
    End If
    Ligne_lue = Ligne_lue + 1
    Wend
    End Sub

Je supprime bien tous les produits du premier onglet qui correspond au premier rang de ma liste du deuxième onglet.
Mais je n'arrive pas au passer aux rang suivant du deuxième onglet.
je ne sais pas ou mettre une incrémentation de ma variable "Variete". Sachant que je veus refaire la boucle à partir de Ligne_lue+2


Configuration: Windows XP / Firefox 3.6.13

pilas31 · Answer

Bonjour, 

Il faut mettre deux boucles imbriquées avec "for" ou  "while" si on souhaite garder des while voila ce que je propose : 
Le test sur cellule vide n'est pas fiable donc il vaut mieux mettre la derniere ligne  
dans une variable et tester la fin de boucle avec cette variable. 

Dim Ligne_lue As Long 
Dim Variete As Long 

Dim DernLigne As Long 
Dim DernVariete As Long 
DernLigne = Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row 
DernVariete = Sheets("liste propriétés").Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row 

Variete = 1 

    While Variete <= DernVariete 
        Ligne_lue = 2 
        While Ligne_lue <= DernLigne 
            Cells(Ligne_lue, 2).Select 
            If ActiveCell.Text Like Sheets("liste propriétés").Cells(Variete, 1).Text Then 
                Range(Cells(Ligne_lue, 1), Cells(Ligne_lue, 15)).Select 
                Selection.ClearContents 
            End If 
            Ligne_lue = Ligne_lue + 1 
        Wend 
        Variete = Variete + 1 
    Wend 
End Sub

A+ 

Cordialement,

Deux boucles dans un même programme

1 réponse

Discussions similaires