Je vous remercie de prendre le temps d'écrire ce message.
Votre nom (ou pseudo) :
Votre e-mail :
S'abonner à ce fil de discussion :
Vous répondez à 3Stone qui a écrit :
Private Sub CocherListe_AfterUpdate() Dim itemListe As Integer For itemListe = 0 To Me.lst_Epices.ListCount - 1 Me.lst_Epices.Selected(itemListe) = CocherListe Next itemListeEnd Sub