Bonjour le forum,
Voilà mon problème : je souhaite faire afficher sur une feuille nommée « Base » des renseignements saisis via un userform. J’ai sur ce userform un bouton de commande nommé « Ajouter », en appuyant sur celui-ci, les données sont censées alimenter la feuille. J’ai sur ce userform deux boutons d’option « Monsieur » et « Madame ». Je souhaite d’abord vérifier que l’utilisateur coche bien l’une ou l’autre option. Mais quand je coche Madame avec les autres éléments tout va bien, par contre avec Monsieur la macro ne vérifie pas correctement puisque je peux laisser des champs vierges et il valide quand même. Je ne comprends pas pourquoi. Voici la partie du code concerné.
Private Sub Ajouter_Click()
Dim Civ As String
If Civilité.Monsieur Then ‘ si je coche Monsieur
Civ = "Monsieur" ‘alors la variable est égale à Monsieur
Else
If Civilité.Madame Then ‘ sinon si je coche Madame
Civ = "Madame" ‘ alors la variable est égale à Madame
End If
End If
…
If Civilité.Monsieur <> False Or Civilité.Madame <> False then
ActiveCell.Offset(0, 1) = Civ ‘ attribution de la valeur de la variable à la cellule concernée
...
If Civilité.Monsieur = False And Civilité.Madame = False Then ‘ vérification que l’une des deux option est cochée.
MsgBox "Vous devez saisir la civilité !"
…
D'avance merci.
Selecteur
Voilà mon problème : je souhaite faire afficher sur une feuille nommée « Base » des renseignements saisis via un userform. J’ai sur ce userform un bouton de commande nommé « Ajouter », en appuyant sur celui-ci, les données sont censées alimenter la feuille. J’ai sur ce userform deux boutons d’option « Monsieur » et « Madame ». Je souhaite d’abord vérifier que l’utilisateur coche bien l’une ou l’autre option. Mais quand je coche Madame avec les autres éléments tout va bien, par contre avec Monsieur la macro ne vérifie pas correctement puisque je peux laisser des champs vierges et il valide quand même. Je ne comprends pas pourquoi. Voici la partie du code concerné.
Private Sub Ajouter_Click()
Dim Civ As String
If Civilité.Monsieur Then ‘ si je coche Monsieur
Civ = "Monsieur" ‘alors la variable est égale à Monsieur
Else
If Civilité.Madame Then ‘ sinon si je coche Madame
Civ = "Madame" ‘ alors la variable est égale à Madame
End If
End If
…
If Civilité.Monsieur <> False Or Civilité.Madame <> False then
ActiveCell.Offset(0, 1) = Civ ‘ attribution de la valeur de la variable à la cellule concernée
...
If Civilité.Monsieur = False And Civilité.Madame = False Then ‘ vérification que l’une des deux option est cochée.
MsgBox "Vous devez saisir la civilité !"
…
D'avance merci.
Selecteur