TextBox avec valeur precise

[Dennnisss]

Bonjour a tous

j'ai un Userform de former et dans ce user j'ai des textBox qui doivent etre precis , dans les textBox 2 , 5 , 8 , 11 , 14 , 17 l'utilisateur doit entrer un sexe tel que h , ou f et il se met en majuscule a l'entree et pour bien entrer les coordonnees et dans les TextBox 3 , 6 , 9 , 12 , 15 , 18 l'utilisateur doit entree des moyennes de joueurs . je dois pour qu'il ne se produise pas d'erreur a l'entrees des donnees j'essaie de faire un message box , que si je me trompe j'ecris soit la moyenne dans le sexe et le sexe dans la moyenne , je cherche a faire que si cela se produit qu'il m'ouvre un message qui me dit je me suis tromper
vous regarderai mes codes je crois que j'identifie mal mon compteur variable i et j
je me mele sur ce sujet

alors j'aurais besoin d'aide svp
merci a l'avance de votre aide et attend une suggestion

merci dennnisss 😉😉

 

[Pierrot93]

Re : TextBox avec valeur precise

Bonsoir Denis,

dans ton code, tu utilises "Entree_joueurs", je ne vois pas à quel objet tu fais référence.

Entree_joueurs.Controls("TextBox" & CStr(i + j)).SetFocus

une soltution utiliser la propriété "tag" des testbox, tu mets par exemple "sx" pour les textbox faisant référence au sexe du joueur et "my" pour ceux faisant référence à la moyenne.

ce qui te permets de ne faire qu'une boucle, ci dessous exemple de code à adapter et à tester.

Dim c As Control
For Each c In Me.Controls
    If TypeOf c Is TextBox Then
        If c.Tag = "sx" Then
                If c.Value <> "H" Or c.Value <> "F" Then MsgBox "mauvaise saisie"
            ElseIf c.Tag = "my" Then If Not IsNumeric(c.Value) Then MsgBox "mauvaise saisie"
        End If
    End If
Next c

bonne soirée
@+

 

[Dennnisss]

Re : TextBox avec valeur precise

Salut Pierrot 93

J'ai essayer d'incorporer ton code dans mon user j'ai enlever les codes que j'avais mis car tu avait raison le code de la feuilles ou du userform Entrer_donnees n'avait pas d'affaire la j'avais ete copier un exemple que j'essayais de recreer , j'ai mis ton code ta suggestion dans mes codes du userform je l'ai essayer avec Private Sub command button_click1() et je l,ai essayer aussi dans Private Sub Userform Initialize() et je n'ai pas reussi a faire valoir les corrections
Alors je t'envoie une reponse pour l'effort et le temps que tu a pris pour moi et j'apprecie beaucoup to aide , alors je retourne sur mon clavier et j'essaie de nouveau et comprendre la facon que je doit le placer dans mes codes , alors j,ai encore besoin de toi , ton aide et merci Pierrot

dennnisss😉😉

 

[Pierrot93]

Re : TextBox avec valeur precise

Re

as tu bien valorisé la propriété "tag" par "sx" ou "my" des textbox concernés ?

@+

 

[Dennnisss]

Re : TextBox avec valeur precise

Salut Pierrot

Je ne crois pas non , j'etait justement en train de creer les question pour ne pas qu'il mele les textbox de nom avec ceux des sexes et ceux des moyennes
je te revient

A plus

dennnisss😉😉

 

[Pierrot93]

Re : TextBox avec valeur precise

Re

par contre modifies la ligne le 1er "if" comme suit :

    If TypeOf c Is MSForms.TextBox Then

@+

 

[Dennnisss]

Re : TextBox avec valeur precise

salut pierrot

J'etais debarquer je ne s'avais pas , car je n'avais pas cocher la case se souvenir de moi alors le programme nous sort apres un certain temps

j'avais quitter mon ordi pour aller diner , je suis de retour

a plus , je continue mon casse tete de code et je revient

merci dennnisss 😉😉

 

[Dennnisss]

Re : TextBox avec valeur precise

Salut Pierrot

Tu m'a mentionner cette phrase

as tu bien valorisé la propriété "tag" par "sx" ou "my" des textbox concernés ?

alors je crois pas avoir identifies les textbox voulue car je ne comprend pas bien ta pensee , alors mon embrouille possiblement est la

merci dennnisss 😉😉

 

[Pierrot93]

Re : TextBox avec valeur precise

Re

Ci joint, ton fichier modifié.

bonne soirée
@+

 

[Dennnisss]

Re : TextBox avec valeur precise

Salut Pierrot

Oui c'est Ok il fait bien sont avertissement , mais je ne comprend pas pourquoi moi lorsque j'ai ces codes aa sub Command_click1() ca na pas marcher

Alors merci a toi Pierrot de ton acharnement et ta patience j'apprecie beaucoup car votre site est tellement bien et formidable

merci a toi

dennnisss 😉😉

 

[Pierrot93]

Re : TextBox avec valeur precise

Bonjour Denis,

tu avais bien modifié la ligne ci dessous, comme indiqué dans mon post de 17h55 :

If TypeOf c Is [B][COLOR="Red"]MSForms[/COLOR][/B].TextBox Then

si c'est le cas, je ne comprends pas, pour t'en dre plus il faudrait avoir le fichier utilisé...

bonne journée
@+