OVH Cloud OVH Cloud

UserForm - reset variable

4 réponses
Avatar
Markos
Bonjour à toutes et tous,
Comment remettre à zero tous les menus déroulant et textbox d'un userForm.
je connais bien set cboTOTO.value=" "...
mais est-il possible de le faire avec une seule instruction ?
Merci....

4 réponses

Avatar
verificator
bonjour Markos,
--------------------------------------
For Each ctrl In Me.Controls

If TypeName(ctrl) = "ComboBox" Then
ctrl.Clear
Else
If TypeName(ctrl) = "TextBox" Then
ctrl.Text = ""
End If
End If

Next
--------------------------------------
devrait convenir
Amicalement.


-----Original Message-----
Bonjour à toutes et tous,
Comment remettre à zero tous les menus déroulant et
textbox d'un userForm.

je connais bien set cboTOTO.value=" "...
mais est-il possible de le faire avec une seule
instruction ?

Merci....


.



Avatar
Markos
Merci,
pour le tuyau, j'ai un peu bricolé, mais ça marche.
A bientôt.
"verificator" a écrit dans le message de
news:0c5301c4e5b9$4bb35190$
bonjour Markos,
--------------------------------------
For Each ctrl In Me.Controls

If TypeName(ctrl) = "ComboBox" Then
ctrl.Clear
Else
If TypeName(ctrl) = "TextBox" Then
ctrl.Text = ""
End If
End If

Next
--------------------------------------
devrait convenir
Amicalement.


-----Original Message-----
Bonjour à toutes et tous,
Comment remettre à zero tous les menus déroulant et
textbox d'un userForm.

je connais bien set cboTOTO.value=" "...
mais est-il possible de le faire avec une seule
instruction ?

Merci....


.



Avatar
Markos
Merci ça marche.
"verificator" a écrit dans le message de
news:0c5301c4e5b9$4bb35190$
bonjour Markos,
--------------------------------------
For Each ctrl In Me.Controls

If TypeName(ctrl) = "ComboBox" Then
ctrl.Clear
Else
If TypeName(ctrl) = "TextBox" Then
ctrl.Text = ""
End If
End If

Next
--------------------------------------
devrait convenir
Amicalement.


-----Original Message-----
Bonjour à toutes et tous,
Comment remettre à zero tous les menus déroulant et
textbox d'un userForm.

je connais bien set cboTOTO.value=" "...
mais est-il possible de le faire avec une seule
instruction ?

Merci....


.



Avatar
verificator
bonjour Markos,

de rien

amicalement


-----Original Message-----
Merci ça marche.
"verificator" a écrit dans le
message de

news:0c5301c4e5b9$4bb35190$
bonjour Markos,
--------------------------------------
For Each ctrl In Me.Controls

If TypeName(ctrl) = "ComboBox" Then
ctrl.Clear
Else
If TypeName(ctrl) = "TextBox" Then
ctrl.Text = ""
End If
End If

Next
--------------------------------------
devrait convenir
Amicalement.


-----Original Message-----
Bonjour à toutes et tous,
Comment remettre à zero tous les menus déroulant et
textbox d'un userForm.

je connais bien set cboTOTO.value=" "...
mais est-il possible de le faire avec une seule
instruction ?

Merci....


.




.