Remettre la value à ""

  • Initiateur de la discussion Initiateur de la discussion David59
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

D

David59

Guest
Bonjour le forum

Pour remettre à zéro après la selection sur un combobox il suffit de mettre en dernier ligne
Code:
ComboBox1 = ""
ou
Code:
ComboBox1 = Clean
Mais sur une ListBox ça ne fonctionne pas Pourquoi et comment faire 😕

merci
david @+

" UNE TRES BONNE FIN ANNEE A TOUS "
 
Re : Remettre la value à ""

Bonjour le forum

Pour remettre à zéro après la selection sur un combobox il suffit de mettre en dernier ligne
Code:
ComboBox1 = ""
ou
Code:
ComboBox1 = Clean
Mais sur une ListBox ça ne fonctionne pas Pourquoi et comment faire 😕

merci
david @+

" UNE TRES BONNE FIN ANNEE A TOUS "

Bonjour david59,

Erreur de syntaxe, rectifies comme celà :

Code:
ComboBox1 = Clear

Cordialement, et bonne fin d'année également.
 
Re : Remettre la value à ""

Bonjour Papou-Net et david.

Pour remettre à "zéro" tout ce qu'il y a dans un UserForm :

Code:
[SIZE=3][FONT=Times New Roman]Private Sub B_raz_Click()[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]Dim c As Control[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] For Each c In Me.Controls[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]   Select Case TypeName(c)[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]      Case "TextBox"[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]         c.Value = ""[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]       Case "CheckBox"[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]         c.Value = False[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]       Case "ListBox", "ComboBox"[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]         c.ListIndex = -1[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]    End Select[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman] Next c[/FONT][/SIZE]
[SIZE=3][FONT=Times New Roman]End Sub[/FONT][/SIZE]
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Retour