tomy
XLDnaute Nouveau
bonjour,
j'ai creer un formulaire avec des chmaps texte A,B,C et D
quand l'utilisateur valide sa saisie ( boutton 'Ajouter')
je lance un test voir si les chmaps sont vides :
Private Sub cmdAjouter_Click()
'ERREUR si un champs vide
If A = "" Then
MsgBox "Erreur le champ 'A' est vide"
ElseIf B = "" Then
MsgBox "Erreur le champ 'B' est vide"
ElseIf C = "" Then
MsgBox "Erreur le champ 'C' est vide"
ElseIf D = "" Then
MsgBox "Erreur D est vide"
End If
D'ailleur Meme si je rentre une infos dans la cellule ca me dit encore cellule vide ????
j'aimerai pouvoir integre une petite fonction pour :
- faire que l'utlisateur revienne au formulaire
- faire que les champs non vides restent non vide ( reprise des valeurs deja entrées, sachant qu'au demarrage de mon formulaire j'ai un script qui remet tout à Zéro par commodité)
optionnel :
- faire que le titre du champ vide devienne rouge
Merci de votre aide.
tomy
j'ai creer un formulaire avec des chmaps texte A,B,C et D
quand l'utilisateur valide sa saisie ( boutton 'Ajouter')
je lance un test voir si les chmaps sont vides :
Private Sub cmdAjouter_Click()
'ERREUR si un champs vide
If A = "" Then
MsgBox "Erreur le champ 'A' est vide"
ElseIf B = "" Then
MsgBox "Erreur le champ 'B' est vide"
ElseIf C = "" Then
MsgBox "Erreur le champ 'C' est vide"
ElseIf D = "" Then
MsgBox "Erreur D est vide"
End If
D'ailleur Meme si je rentre une infos dans la cellule ca me dit encore cellule vide ????
j'aimerai pouvoir integre une petite fonction pour :
- faire que l'utlisateur revienne au formulaire
- faire que les champs non vides restent non vide ( reprise des valeurs deja entrées, sachant qu'au demarrage de mon formulaire j'ai un script qui remet tout à Zéro par commodité)
optionnel :
- faire que le titre du champ vide devienne rouge
Merci de votre aide.
tomy