Erreur de syntaxe au niveau de la msgbox mais je ne vois pas l erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub supprcouleur_Click() Dim reponse As Integer With listecouleur For i = 0 To .ListCount - 1 If .Selected(i) Then reponse=MsgBox ("Voulez vous supprimer la couleur" & .Selected(i) & "et sa réference associée ?,vbquestion + vbyesno,"Suppression d'une couleur") End If End With End Sub
Partager