XL 2013 EXCEL VBA

pangasoul · Jeudi à 18:30

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 · Jeudi à 18:55

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

VB:

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

Phil69970 · Jeudi à 18:55

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

VB:

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 · Jeudi à 19:26

Merci beaucoup

XL 2013 EXCEL VBA

pangasoul

XLDnaute Nouveau

Phil69970

Phil69970

XLDnaute Barbatruc

pangasoul

XLDnaute Nouveau

Discussions similaires