Excel VBA - Effacer TextBox - Multipage

Question

Bonjour,

Je suis en mesure d'effacer le contenu d'un textBox dans un formulaire.

Dans un formulaire multipage j'aimerais effacer le contenu de chaque TextBox dans chaque page.

Le formulaire dans lequel est créé le multipage « Compilation et analyse des données receuillies lors du sondage » se nome « Données_sondage » et j'ai cinqu onglets qui vont de « Section 1 à Section 5 ». voici le code que j'aissai et l'image qui suit.

'Effacer toutes les TextBox dans la Section 1

Private Sub CommandButton1_Click()

MsgBox "Êtes-vous certain de vouloir supprimer le contenu de cette page ?", vbYesNo + vbCritical

Dim c As Control

For Each c In Me.MultiPage.Section("Section1").Controls 

    If TypeOf c Is MSForms.TextBox Then 

        c.Value = "" 

    End If 

Next c 

End Sub

Answer 1

Salut Dénis,

Oui

Answer 2

Sondage’´) au lieu de sondage)‘’

Note : j’ai mis deux apostrophes à la place d’une double quote.

Daniel

Answer 3

Salut,

Un bug

Private Sub CommandButton1_Click()

MsgBox "Êtes-vous certain de vouloir supprimer le contenu de cette page ?", vbYesNo + vbCritical

Dim C As Control, P

For Each P In UserForm1.MultiPages("Compilation et analyse des données recueillies lors du sondage)".Pages

For Each C In P.Controls

If TypeOf C Is MSForms.TextBox Then 

C.Value = "" 

End If 

Next C

Next P

End Sub

Ligne en rouge = Erreur de compilation, erreur de syntaxe

J'aoute que mon bouton est sur la multipage et non sur le Userform.

Merci

Answer 4

Salut Daniel,

Heureux de te lire.

Est-ce que ce code effacera tout les TextBox de toutes les pages?

Je désire le faire par page ex : p1 ou p2 ou etc. Effacer TextBox de la page 1, Effacer les textBox de la page 2, etc.

Merci

Answer 5

Bonjour,

Modifie le nom du multipage :

Dim C As Control, P
For Each P In UserForm1.MultiPages("Compilation et analyse des données receuillies lors du sondage)".Pages
For Each C In P.Controls
If TypeOf C Is MSForms.TextBox Then
C.Value = ""
End If
Next C
Next P

Daniel