faire une boucle plus simpleRésolu

Question

bonjour,

j'ai une petite boucle qui fonctionne mais pas parfaite en terme de programmation

pouvez vous me dire ce que vous en pensez

    Range("B1").Select
    y = 1
    Do
20  If Cells(y, 2).Value = "A" Then GoTo 10
    Cells(y, 2).Select
    Rows(ActiveCell.Row).Select
    Selection.Delete
    GoTo 20
10  y = y + 1
    Loop Until Cells(y, 2) = ""

merci de vos remarques

bye - bye  [Insert_Emoticon('/imgs2/smile_wink.gif'); ]

mortalino · Accepted Answer

salut, plus rapide : Dim oRange as range for each oRange in Range("B1:B" & Range("B1").End(xlDown).Row) If oRange.Value <> "A" then Rows(oRange.Row).Delete next oRange ~ Mortalino ~ [code.aspx?ID=39466 Colorisation automatique] @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA

bouv · Answer

Je suis pas trop sur mais ceci ne serait-il pas mieux :

    Do
        If Cells(y, 2).Value = "A" Then
            y = y + 1
        Else
            Cells(y, 2).Select
            Rows(ActiveCell.Row).Select
            Selection.Delete
        End If
    Loop Until Cells(y, 2) = ""

Bonne prog
++

pegou · Answer

merci à vous deux

mortalito : ta macro fontionne mais il faut la lancer plusieurs fois mais je suis dessus....

bye - bye  [Insert_Emoticon('/imgs2/smile_wink.gif'); ]

mortalino · Answer

Exact, vu qu'il y a suppression de lignes, il faut partir d'en bas et remonter : Dim i As Integer For i = Range("B1").End(xlDown).Row To 1 Step -1 If Cells(i, 2).Value <> "A" Then Rows(i).Delete Next i ~ Mortalino ~ [code.aspx?ID=39466 Colorisation automatique] @++ le mystérieux chevalier,"Provençal, le gaulois" Forum Office & VBA

Faire une boucle plus simple

4 réponses

Votre réponse

Discussions similaires