PPN83
Messages postés24Date d'inscriptiondimanche 8 octobre 2006StatutMembreDernière intervention15 septembre 2010
-
30 avril 2007 à 14:29
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 2018
-
1 mai 2007 à 00:05
Bonjour,
si j'applique True dans la propriété MatchRequired de ma Combobox, je ne peux pas afficher un Setfocus dans le Combobox après une mise à zéro de la valeurs précédemment rentrée .Il apparait le message "Propriété non valide" , j'ai bien laisser un blanc dans ma liste mais j'ai le même problème, de plus je dois cliquer 2 fois sur le OK pour sortir de la boite de dialogue ou appuyer sur echap
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 30 avril 2007 à 18:52
Bonjour,
"je ne peux pas afficher un Setfocus dans le Combobox"
Je ne comprends pas le sens de cette phrase ! SetFocus est un événement !!!
Il est clair que si tu as écrit quelquechose du genre :
Combo1(i).setfocus "blabla" ou combo1.setrfocus "blabla"
VB ne comprend rien à la chose !
Expose avec clarté et précision ce que tu souhaites faire et montre-le code impliqué (celà nous aidera à y voir plus clair...)
PPN83
Messages postés24Date d'inscriptiondimanche 8 octobre 2006StatutMembreDernière intervention15 septembre 2010 30 avril 2007 à 21:07
Ok voici une partie de mon projet
Public Sub CmdAjou_Click()
TxtCiv.SetFocus
If TxtCiv.Value = "" Then
MsgBox "Veuillez saisir la civilité", vbCritical, "Erreur de saisie"
TxtCiv.SetFocus 'affiche le curseur dans la zone
Exit Sub
End If
If TxtNom.Value = "" Then
MsgBox "Veuillez saisir le nom", vbCritical, "Erreur de saisie"
TxtNom.SetFocus
Exit Sub
End If
If TxtCiv.Value "Madame" And TxtFill.Value "" Then
MsgBox "Veuillez saisir le nom patronymique", vbCritical, "Complément d'information"
TxtFill.SetFocus
Exit Sub
Else
If TxtCiv.Value <> "Madame" And TxtFill.Value <> "" Then
MsgBox "Nom patronymique non valide", vbCritical, "Erreur de saisie"
TxtFill.Value = ""
TxtPre.SetFocus
Exit Sub
End If
End If
suite....
Worksheets("Base").Select 'feuille où je crée ma base de donnée
Range("c2").Select
Do While ActiveCell.Value <> ""
ActiveCell.Offset(1, 0).Select
Loop
ActiveCell.Value = TxtCiv.Value
ActiveCell.Offset(0, 1).Value = TxtNom.Value
If TxtFill.Value <> "" Then
ActiveCell.Offset(0, 2).Value = TxtFill.Value
End If
suite....
Mise_à_zéro_formulaire
End Sub
'MISE A ZERO DU FORMULAIRE ------------------------------------------------------
jmfmarques
Messages postés7666Date d'inscriptionsamedi 5 novembre 2005StatutMembreDernière intervention22 août 201427 30 avril 2007 à 21:27
Et quel est donc la description exacte de ce que tu attends et qui ne se produit pas ?
En même temps que ta réponse : peux-tu nous dire si certaines des textboxes apparaissant dans ton code subissent des instructions lors d'événements GotFocus et/ou LostFocus ? (il est peut-être important de le préciser ici, s'il te plait)
cs_MPi
Messages postés3877Date d'inscriptionmardi 19 mars 2002StatutMembreDernière intervention17 août 201823 1 mai 2007 à 00:05
Pourquoi utiliser MatchRequired ?
Il y a certainement une raison, mais je n'ai jamais utilisé...
Dans le code que tu donnes, il n'est nullement question de combobox...
Ç'aurait été bien...
Comme tu utilises beaucoup les SetFocus, voici ce que je peux lire dans la MSDN
Remarques
Si valeur de la propriété MatchRequired est True,
l'utilisateur ne peut pas quitter le contrôle ComboBoxtant que le texte
saisi ne correspond pas à une entrée de la liste existante. MatchRequired maintient l'intégrité de la liste en exigeant de l'utilisateur qu'il sélectionne
une entrée existante.