macro commune a plusieurs userforms
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:
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.
