TextBox avec valeur precise

Pierrot93

XLDnaute Barbatruc

• 6 Janvier 2008

• #2

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.

Code:

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.

Code:

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
@+

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 6 Janvier 2008

• #3

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😉😉

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Janvier 2008

• #4

Re : TextBox avec valeur precise

Re

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

@+

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 6 Janvier 2008

• #5

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😉😉

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Janvier 2008

• #6

Re : TextBox avec valeur precise

Re

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

Code:

    If TypeOf c Is MSForms.TextBox Then

@+

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 6 Janvier 2008

• #7

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 😉😉

 

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 6 Janvier 2008

• #8

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 😉😉

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 6 Janvier 2008

• #9

Re : TextBox avec valeur precise

Re

Ci joint, ton fichier modifié.

bonne soirée
@+

 

Pièces jointes

• classeur1.zip

  20.6 KB · Affichages: 27
• classeur1.zip

  20.6 KB · Affichages: 34
• classeur1.zip

  20.6 KB · Affichages: 32

Vote positif 0 Vote négatif

Dennnisss

XLDnaute Occasionnel

• 6 Janvier 2008

• #10

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 😉😉

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 7 Janvier 2008

• #11

Re : TextBox avec valeur precise

Bonjour Denis,

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

Code:

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
@+

 

Vote positif 0 Vote négatif