GADENSEB
XLDnaute Impliqué
Hello le forum,
Je voudrais, à l'ouverture de mon usf, formater tous les txtbox en mm temps sous le format monétaire €.
Le code suivant ne fonctionne pas; il me déclare une erreur d'exécution 438 !!!!! alors que je déclare ctrl ...
Qqn aurait une idée ??
Bonne am
Seb
Je voudrais, à l'ouverture de mon usf, formater tous les txtbox en mm temps sous le format monétaire €.
Le code suivant ne fonctionne pas; il me déclare une erreur d'exécution 438 !!!!! alors que je déclare ctrl ...
Code:
With Usf_Soldes
Dim ctrl As Control
For Each ctrl In Usf_Soldes.Controls
If TypeOf ctrl Is MSForms.TextBox Then
ctrl.Format = "#,##0.00 €"
End If
Next
End With
Qqn aurait une idée ??
Bonne am
Seb