Discussion :

[Franc]

Bonjour à tous,
Pour éviter de répéter le même code sur chaque formulaire, j'aimerais créer une seule macro utilisable sur tous les formulaires.
J'ai essayé ceci pour effacer le contenu de toutes les textbox d'un formulaire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub EffaceTexte(usrform As Object)
 
Dim ctrl As Control
 
For Each ctrl In usrform.Controls
 If TypeOf ctrl Is MSForms.TextBox Then ctrl.Value = ""
 Next
 
End Sub

Ensuite, sur le bouton de commande de chaque formulaire j'appelle la macro simplement par EffaceTexte (Me).
Je me doutais que ça ne fonctionnerait pas car le ctrl n'a pas la propriété .value et donc je ne vois pas comment m'y prendre, quelqu'un peut m'éclairer ? Merci.

[tototiti2008]

Bonjour,

avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ctrl.Text= ""

?

[Franc]

Aaaaaargh! C'était une bête erreur de ma part. Dans l'appel de procédure je ne devais pas mettre Me entre parenthèses