Private Sub C1_Click()
On Error Resume Next
For y = 2 To 10: Me("C" & y) = C1.List(C1.ListIndex, y - 1): Next y
End Sub
Private Sub C1_Click()
For y = 0 To C1.ListCount - 1: Feuil18.Range("C" & y + 2) = C1.List(y): Next y
End Sub
Bonjour à tous, JCGL
nordov6
Pourquoi ne pas être resté dans ton fil initial où tu avais déjà eu des réponses ?
https://www.excel-downloads.com/threads/userform-besoin-daide-svp.226655/
Il se suffisait de faire un up dans ce premier fil.