Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Effacer controls

Effacer controls

6 réponses
Avatar
GIBI68
Bonsoir à tous,

J'ai fait ça :
Private Sub MultiPage1_Change()
Dim ctrl As control, ctrl1 As control, ctrl2 As control
For Each ctrl In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl) = "TextBox" Then ctrl.Value = ""
Next

For Each ctrl1 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl1) = "ListBox" Then ctrl1.Value = ""
Next

For Each ctrl2 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl2) = "Combobox" Then ctrl2.Value = ""
Next

End Sub

Ca m'efface bien les "textbox" quand je change de page mais pas les listbox
ou combobox.
Quelqu'un peut-il me dire pourquoi ??
Merci d'avance.
JM
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
PMO
Bonjour,

Remplacez ctrl1.Value = "" et ctrl2.Value = "" par
ctrl1.RowSource = ""
ctrl2.RowSource = ""

Est-ce mieux ?

Cordialement.

PMO
Patrick Morange


Bonsoir à tous,

J'ai fait ça :
Private Sub MultiPage1_Change()
Dim ctrl As control, ctrl1 As control, ctrl2 As control
For Each ctrl In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl) = "TextBox" Then ctrl.Value = ""
Next

For Each ctrl1 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl1) = "ListBox" Then ctrl1.Value = ""
Next

For Each ctrl2 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl2) = "Combobox" Then ctrl2.Value = ""
Next

End Sub

Ca m'efface bien les "textbox" quand je change de page mais pas les listbox
ou combobox.
Quelqu'un peut-il me dire pourquoi ??
Merci d'avance.
JM





Avatar
anonymousA
bonsoir,

remplacer les .value="" pour Listbox et combobox par .value=Null

A+

Bonsoir à tous,

J'ai fait ça :
Private Sub MultiPage1_Change()
Dim ctrl As control, ctrl1 As control, ctrl2 As control
For Each ctrl In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl) = "TextBox" Then ctrl.Value = ""
Next

For Each ctrl1 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl1) = "ListBox" Then ctrl1.Value = ""
Next

For Each ctrl2 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl2) = "Combobox" Then ctrl2.Value = ""
Next

End Sub

Ca m'efface bien les "textbox" quand je change de page mais pas les listbox
ou combobox.
Quelqu'un peut-il me dire pourquoi ??
Merci d'avance.
JM




Avatar
anonymousA
j'ai bien sur supposé qu'il ne s'agissait que de remettre à zéro
l'affichage.
Si on veut tout supprimer, il faut écrire pour les listbox et les
combobox .clear au lieu de .value=null

A+



bonsoir,

remplacer les .value="" pour Listbox et combobox par .value=Null

A+


Bonsoir à tous,

J'ai fait ça :
Private Sub MultiPage1_Change()
Dim ctrl As control, ctrl1 As control, ctrl2 As control
For Each ctrl In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl) = "TextBox" Then ctrl.Value = ""
Next

For Each ctrl1 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl1) = "ListBox" Then ctrl1.Value = ""
Next

For Each ctrl2 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl2) = "Combobox" Then ctrl2.Value = ""
Next

End Sub

Ca m'efface bien les "textbox" quand je change de page mais pas les
listbox
ou combobox.
Quelqu'un peut-il me dire pourquoi ??
Merci d'avance.
JM






Avatar
GIBI68
Évidemment ça marche
Merci j'étais loin de la solution
Bonne soirée
JM

"anonymousA" a écrit dans le message de news:
420b9efe$0$2173$
j'ai bien sur supposé qu'il ne s'agissait que de remettre à zéro
l'affichage.
Si on veut tout supprimer, il faut écrire pour les listbox et les
combobox .clear au lieu de .value=null

A+



bonsoir,

remplacer les .value="" pour Listbox et combobox par .value=Null

A+


Bonsoir à tous,

J'ai fait ça :
Private Sub MultiPage1_Change()
Dim ctrl As control, ctrl1 As control, ctrl2 As control
For Each ctrl In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl) = "TextBox" Then ctrl.Value = ""
Next

For Each ctrl1 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl1) = "ListBox" Then ctrl1.Value = ""
Next

For Each ctrl2 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl2) = "Combobox" Then ctrl2.Value = ""
Next

End Sub

Ca m'efface bien les "textbox" quand je change de page mais pas les
listbox
ou combobox.
Quelqu'un peut-il me dire pourquoi ??
Merci d'avance.
JM








Avatar
Michel Gaboly
Bonsoir,

Pour les LisBox et les Combo, Value résulte de l'élément sélectionné.
Met la proprriéé ListIndex à - 1

NB - Par ailleurs, il est inutile de définir ctrl, ctrl1 et ctrl2. Tu
peux utiliser ctrl successivement ds les 3 boucles.


D'autre part, une boucle devrait suffire en principe (non testé) :

Dim Ctrl as Control
For each Ctrl in MultiPage1.Pages("page1").Controls
Select Case TypeName(Ctrl)
Case "TextBox"
Ctrl = ""
Case "ListBox", "ComboBox"
Ctrl.ListIndex = -1
End Select
Next



Bonsoir à tous,

J'ai fait ça :
Private Sub MultiPage1_Change()
Dim ctrl As control, ctrl1 As control, ctrl2 As control
For Each ctrl In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl) = "TextBox" Then ctrl.Value = ""
Next

For Each ctrl1 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl1) = "ListBox" Then ctrl1.Value = ""
Next

For Each ctrl2 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl2) = "Combobox" Then ctrl2.Value = ""
Next

End Sub

Ca m'efface bien les "textbox" quand je change de page mais pas les listbox
ou combobox.
Quelqu'un peut-il me dire pourquoi ??
Merci d'avance.
JM





--
Cordialement,

Michel Gaboly
www.gaboly.com

Avatar
GIBI68
Ca marche aussi
Les deux solutions sont bonnes
Merci à tous les deux
Bonne soirée
JM
"PMO" a écrit dans le message de news:

Bonjour,

Remplacez ctrl1.Value = "" et ctrl2.Value = "" par
ctrl1.RowSource = ""
ctrl2.RowSource = ""

Est-ce mieux ?

Cordialement.

PMO
Patrick Morange


Bonsoir à tous,

J'ai fait ça :
Private Sub MultiPage1_Change()
Dim ctrl As control, ctrl1 As control, ctrl2 As control
For Each ctrl In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl) = "TextBox" Then ctrl.Value = ""
Next

For Each ctrl1 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl1) = "ListBox" Then ctrl1.Value = ""
Next

For Each ctrl2 In TarifPneu.MultiPage1.Pages("page1").Controls
If TypeName(ctrl2) = "Combobox" Then ctrl2.Value = ""
Next

End Sub

Ca m'efface bien les "textbox" quand je change de page mais pas les
listbox


ou combobox.
Quelqu'un peut-il me dire pourquoi ??
Merci d'avance.
JM