Bonjour je rencontre un petit problème avec un code macro je ne comprend pas?
Ci-joint mon code
Voici le message d'erreur
Erreur d'éxécution -2147024809(80070057):
Objet spécifique introuvable
Merci pour votre aide.
Private Sub CmdValideInfoParc_Click()
Dim i As Byte
For i = 1 To 15
If Controls("TextBox" & i) = "" Then (c'est cette ligne qui pose problème!)
MsgBox "Vous devez remplir le champ " & Controls("label" & i)
Controls("Textbox" & i).SetFocus
Exit For
End If
Next i
S'il n'y a que ces 15 Textbox sur l'USF, on peut utiliser ce type d'instruction pour remplacer la boucle for i= 1 to 15 :
Code:
For each ctrl in me.controls
If TypeName(ctrl) = "TextBox" Then
If ctrl = "" Then
MsgBox "Vous devez remplir le champ " '***& Controls("label" & i) '
ctrl.SetFocus
Exit For
end if
end if
Next
Non testé ( pas de classeur joint)
S'il y avait encore des soucis, joignez un classeur sans données confidentielles.
Merci pour la réponse rapide par contre est-il possible de garder ouvert usf tant qu'il reste un champ vide?
Cette fois je joint le classeur, l'usf et usfDonnesParc.
Merci