XL 2013 EXCEL VBA

[pangasoul]

Bonsoir à tous je voudrais demander un soutien en codes vba je voudrais que si je clique sur mon bouton supprimer que l'enregistrement et la ligne soit supprimés
Sub Suppression()

NbreLigneMax = Cells(Rows.Count, 1).End(xlUp).Row

For i = NbreLigneMax To 1 Step -1

If Range("A" & i).Value = "" Then

Rows(i).EntireRow.Delete

End If

Next

End Sub

ce code ne fonctionne pas merci de m'aider

 

[Phil69970]

Bonjour @pangasoul

Evidement cela ne fonctionne pas
Tu cherches la dernière ligne de la colonne A
Et ensuite tu supprimes la ligne si la colonne A est vide 🤔

Ceci fonctionnera bien mieux

Sub Suppression()
NbreLigneMax = Cells(Rows.Count, 1).End(xlUp).Row
For i = NbreLigneMax To 1 Step -1
    If Range("A" & i).Value <> "" Then
        Rows(i).EntireRow.Delete
    End If
Next
End Sub

Et pour être raccord avec la charte § 2.3 modifie le titre =

Merci de ton retour

 

[pangasoul]

Merci beaucoup