For boucle = 0 To listview.Items.Count - 1 If listview.Items(boucle).SubItems(2).Text <> "" And listview.Items(boucle).SubItems(0).Text <> "" Then listview.Items(boucle).SubItems.Add("test")' ecrire dans la colonne 4 End If
For i = 0 To listview1.Items.Count - 1 With listview1.Items(i) If .SubItems(2).Text <> String.Empty AndAlso .SubItems(0).Text <> String.Empty Then .SubItems(3).Text = "test" ' écrire dans la quatrième colonne End If End With Next