Discussion :

[guigui69]

Bonjour à tous,

J'ai cette macro pour supprimer la ligne si la cellule en A sont vide

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub efface_vide()
Dim l As Long
'For l = Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
For l = 3 To 1 Step -1
MsgBox (Cells(l, "A").Value)
    If Cells(l, "A").Value = "" Or Cells(l, "A").Value Like "commande" Then Cells(l, 1).EntireRow.Delete
 
Next l
End Sub

J'ai rajouter en plus que si il y a une cellule vide ou bien le terme "commande" cela supprime la ligne.

Pour les cellules vide cela s'applique correctement.
Mais pour le mot "commande" rien ne se fait cela ne supprime pas la ligne.

J'ai remarqué au niveau du texte contenu dans la cellule, le mot "commande" est placé sur la gauche alors que dans les autres cellules (se sont des chiffres) sont placés sur la droite.

Quelle est l’erreur?

Guigui69

[Godzestla]

Bonjour,

si commande est écrit de cette manière cela fonctionne !!!

De la manière suivante il ignore aussi la casse.

Code :

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

If Cells(l, "A").Value = "" Or UCase(Cells(l, "A").Value) Like "COMMANDE" Then Cells(l, 1).EntireRow.Delete