VBA "Erreur d'exécution '438' "
Résolu/Fermé
A voir également:
- Erreur d'exécution 438
- Erreur 0x80070643 - Guide
- Erreur d'execution 1004 ✓ - Forum VB / VBA
- Une erreur s'est produite instagram ✓ - Forum Instagram
- Erreur vidéo freebox ✓ - Forum TV & Vidéo
- Erreur 38 free ✓ - Forum Mobile
2 réponses
Bonjour
For Each ctrl In Me.Controls balaye tous les contrôles de l'USF; Certains contrôles possédent la propriété Value et d'autres non ( comme les Labels)
If TypeName(ctrl) = "CheckBox" And ctrl.Value = True Then teste la propriété Value de l'objet ctrl, et s'il s'agit d'un Label => plantage
il faudrait faire le test en deux fois
A+
For Each ctrl In Me.Controls balaye tous les contrôles de l'USF; Certains contrôles possédent la propriété Value et d'autres non ( comme les Labels)
If TypeName(ctrl) = "CheckBox" And ctrl.Value = True Then teste la propriété Value de l'objet ctrl, et s'il s'agit d'un Label => plantage
il faudrait faire le test en deux fois
If TypeName(ctrl) = "CheckBox" Then
If ctrl.Value = True Then
A+