Bonjour à tous
j'utilise un userform pour compléter certaines cellules à partir d'une listbox
le code du bouton OK est le suivant:
Private Sub CommandButton1_Click()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & " "
Next i
ActiveCell = Left(temp, Len(temp) - 0)
Unload Me
End Sub
je voudrai ajouter un bouton qui me vide complètement la cellule concernée
auriez vous une idée de code ?
merci
Kinel
j'utilise un userform pour compléter certaines cellules à partir d'une listbox
le code du bouton OK est le suivant:
Private Sub CommandButton1_Click()
For i = 0 To Me.ListBox1.ListCount - 1
If Me.ListBox1.Selected(i) = True Then temp = temp & Me.ListBox1.List(i) & " "
Next i
ActiveCell = Left(temp, Len(temp) - 0)
Unload Me
End Sub
je voudrai ajouter un bouton qui me vide complètement la cellule concernée
auriez vous une idée de code ?
merci
Kinel