Remettre la value à ""

David59

XLDnaute Junior
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 :confused:

merci
david @+

" UNE TRES BONNE FIN ANNEE A TOUS "
 

Papou-net

XLDnaute Barbatruc
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 :confused:

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.
 

13GIBE59

XLDnaute Accro
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]
 

Discussions similaires

Réponses
18
Affichages
783

Statistiques des forums

Discussions
312 538
Messages
2 089 396
Membres
104 158
dernier inscrit
obad