effacer les lignes vide dans listview si il sont vide

creolia · 9 Mars 2012

bonsoir à tous j'ai essayer de creer une macro pour effacer les lignes vide dans ma listview mais sa fonctionne pas

Code:

With ListView4
      For i = 1 To .ListItems.Count
          If ListView4.ListItems(i).ListSubItems(1).Text = "" Then ListView4.ListItems(i).Remove
           
           
          End If
        
       
    Next i
          End With

End Sub

quelqu'un aurais t il une idée de mon erreur svp merci

Grand Chaman Excel · 9 Mars 2012

Re : effacer les lignes vide dans listview si il sont vide

Bonjour creolia,

Je crois que la façon correcte est ainsi :

Code:

With ListView4
      For i = 1 To .ListItems.Count
          If ListView4.ListItems(i).ListSubItems(1).Text = "" Then 
               ListView4.ListItems.Remove i
          End If
    Next i
End With

End Sub

A+

creolia · 10 Mars 2012

Re : effacer les lignes vide dans listview si il sont vide

Bonjour grand chaman excel

ton aide ma été precieuse tous fonctionne parfaitement merci beaucoup pour ta participation

à trés bientot

effacer les lignes vide dans listview si il sont vide

creolia

XLDnaute Impliqué

Grand Chaman Excel

XLDnaute Impliqué

creolia

XLDnaute Impliqué

Discussions similaires