Bonjour,
mettre Option Explicit en haut du module pour obliger à déclarer les variables
Sub test() Dim colonne As Integer Dim ligne As Integer Dim i As Integer Dim j As Integer colonne = ListView1.ColumnHeaders.Count ligne = ListView1.ListItems.Count For i = 1 To ligne If ListView1.ListItems(i).ListSubItems(7) < "0" Then ListView1.ListItems(i).ForeColor = RGB(255, 0, 0) For j = 1 To colonne - 1 ListView1.ListItems(i).ListSubItems(j).ForeColor = RGB(255, 0, 0) Next j End If Next i End Sub
Voilà
8 sept. 2022 à 11:33
Bonjour Le Pivert,
Merci pour votre aide. Le code fonctionne mais c'est seulement la première colonne qui passe en rouge mais pas toute la ligne.
Pour que toute la ligne passe en rouge, je suis obligé de cliquer sur la ligne. Est-ce qu'il est possible de forcer le passage en rouge de toute la ligne et pas seulement la colonne ?
Merci pour votre aide.
Modifié le 9 sept. 2022 à 09:00
Bonjour Le Pivert,
Finalement j'ai trouvé l'astuce. J'ai crée un bouton dans la listview sur lequel j'ai associé le code. Et au moment de l'activation du Userform1, le bouton se déclenche et lance le code.
Merci infiniment.
Je clôture la discussion.
8 sept. 2022 à 11:51
A la place du bouton tu peux mettre le code dans une Sub comme dans l'exemple donné, que tu appelles à l'ouverture
@+
9 sept. 2022 à 09:03
Bonjour à vous deux
J'ai clôturé la discussion ( "marqué en résolu" ) .
voir les 3 ... du premier message de la discussion avec un clic droit .