Discussion :

[fidecourt]

bonsoir le forum,

dans mon exemple :

http://www.cjoint.com/c/FKhrtH8kxfz

je veux supprimer toutes les lignes de la feuille RESERVATIONS dont la cellule D: est égale à une TextBoxCde (nr de commande)

cela supprime 1 ligne sur 2 au lieu de toutes les lignes correspondantes

par contre si je fais la même macro et demande de passer le texte en rouge sur la même condition, cela traite bien toutes les lignes

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
'============================================================================================================================
'3 - SUPPRESSION DE TOUTES LES LIGNES DE LA CDE SORTIE DANS LA FEUILLE RESERVATIONS
'============================================================================================================================
Sheets("RESERVATIONS").Select
Range("D1").Select
Dim derlig As Long
Dim cde As Range
 
With Feuil2 'feuille RESERVATIONS
 
 
        derlig = .Cells(.Rows.Count, "D").End(xlUp).Row
        For Each cde In .Range("D1:D" & derlig)
 
            If UCase(cde.Text) = TextBoxCde.Value Then
            cde.EntireRow.Delete 'supprime une ligne sur 2 ????
            'cde.EntireRow.Font.ColorIndex = 3 'colore bien toutes les lignes
            End If
        Next cde
End With

je ne comprends pas pourquoi le delete saute une ligne ?
Une idée lumineuse à me soumettre ?

d'avance merci

[joe.levrai]

Bonjour,

Le comportement est normal et logique, une erreur classique et de faire une suppression en partant du haut pour aller vers le bas

petite exercice de logique pour comprendre :

- sur une feuille vierge, écrit en A1 le chiffre 1, puis en A2 le chiffre 2, puis en A3 le chiffre 3 etc....
- supprime la ligne 1, et regarde quelle "ancienne ligne" vient à la ligne 1 dorénavant ... et imagine donc ce que fait ta procédure quand elle fait son deuxième tour de boucle ==> elle va supprimer quelle ligne "réellement" ?



donc on supprime toujours en partant du bas, et en remontant

[patricktoulon]

re
le mieux c'est d'utiliser un filtre simple non?
exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub test_filtre()
    With ActiveSheet.Range("D1:D" & Cells(Rows.Count, "D").End(xlUp).Row)  ' plage a adapter
        .AutoFilter Field:=1, Criteria1:="toto"    'mot recherché a adapter
        adresse = .Parent.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Address
        .AutoFilter    ' stop le filtre
        .Range(adresse).EntireRow.Delete
    End With
End Sub