Bonjour le forum,
J’utilise le code suivant pour sélectionner un nom avec un double clic dans ma ListView1.
Le nom est colorié en rouge et est enregistré sur ma feuil4.
J’aimerais maintenant utiliser ce code pour toutes mes feuilles.
Que faut-il que je modifie pour que je puisse utiliser le code pour toutes mes feuilles.
Merci d’avance.
PJ87
Private Sub ListView1_DblClick()
gr = IIf(Equipe_1 = Label57, True, False)
col = IIf(Equipe_1 = Label57, 27, 28)
n = ListView1.SelectedItem.Index
If ListView1.ListItems(n).ListSubItems(13).ForeColor = vbRed Then
ListView1.ListItems(n).ListSubItems(13).ForeColor = -2147483640
Feuil4.Cells(Selection.Row, col) = « »
MsgBox « nom supprimé »
Else
ListView1.ListItems(n).ListSubItems(13).ForeColor = vbRed
Feuil4.Cells(Selection.Row, col) = ListView1.ListItems(n).ListSubItems(13)
MsgBox "nom sélectionner " & ListView1.ListItems(n).ListSubItems(1)
End If
If gr = True Then
Label101 = n
Else
Label102 = n
End If
End Sub