Discussion :

[arves]

Bonjour,

J'ai rechercher et également trouvé une bonne partie de l'aide que j'ai besoin pour résoudre mon problème. Malheureusement le problème n'est pas résolu entièrement, et donc je viens m'adresser directement à vous.

J'ai un fichier Excel qui comprends plusieurs feuilles. Sur l'une des feuilles, je désir avec une commande VBA poue supprimer toutes les lignes dont la colonne A commence par le caractère Z.

Pour ce faire j'utilise le code ci-dessous

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Sub test()
    Dim cell As Range
 
Set DataRange = Activesheet.Range("A:A")
 
    For Each cell In DataRange
 
        If Left$(cell.Value,1) = "Z" Then cell.EntireRow.Delete
    Next
End Sub

Le soucis est que il ne supprime pas lors du premier lancement de la macro tout les enregistrements. Il faut que je lance plusieurs fois pour que tout sois supprimer. J'ai l'impression que le problème viens quand j'ai 2 lignes qui se suivent et qui commence par Z...

D'avance merci pour votre aide

[Invité]

Bonjour,


Une solution possible :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Test()
 
Dim LigneDeTitre As Long
Dim DerniereLigne As Long
Dim I As Long
 
    LigneDeTitre = 1
    DerniereLigne = ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row
 
    For I = DerniereLigne To LigneDeTitre + 1 Step -1
        If Left$(Cells(I, 1), 1) = "Z" Then Cells(I, 1).EntireRow.Delete
    Next I
 
End Sub

Cordialement.

[arves]

Salut Eric,

Cela fonctionne ! Merci pour ta réponse simple et rapide.

Bonne journée