Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un set de
tennis de table.
Merci de votre aide,
Steph
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un set de
tennis de table.
Merci de votre aide,
Steph
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un set de
tennis de table.
Merci de votre aide,
Steph
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un set de
tennis de table.
Merci de votre aide,
Steph
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un set de
tennis de table.
Merci de votre aide,
Steph
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un set de
tennis de table.
Merci de votre aide,
Steph
les résultats doivent être rentrer dans
ce format 11-09 ou 15-03 ou 05-11....
bonjour Stef,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
x = TextBox1.Value
Nb = Len(x)
p = Val(Left(x, 2))
d = Val(Right(x, 2))
diff = Abs(p - d)
If Nb = 5 And p >= 11 And d < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p >= 11 And _
Mid(x, 3, 1) = "-" And diff = 2 Then
TextBox1 = x
Else
TextBox1 = ""
TextBox1.SetFocus
MsgBox "Vous devez entrer les données sous cette forme" & Chr(10) & _
"11-09" & Chr(10) & _
"ou" & Chr(10) & _
"05-11" & Chr(10) & _
"ou" & Chr(10) & _
"16-14" & Chr(10) & _
"ou" & Chr(10) & _
"13-15" & Chr(10) & _
"si le pointage dépasse 11, il doit y avoir un minimun" & Chr(10) & _
"de deux point de différence entre les deux chiffres."
End If
End Sub
isabelle
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les
feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées
lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer
dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au
moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un
set de
tennis de table.
Merci de votre aide,
Steph
les résultats doivent être rentrer dans
ce format 11-09 ou 15-03 ou 05-11....
bonjour Stef,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
x = TextBox1.Value
Nb = Len(x)
p = Val(Left(x, 2))
d = Val(Right(x, 2))
diff = Abs(p - d)
If Nb = 5 And p >= 11 And d < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p >= 11 And _
Mid(x, 3, 1) = "-" And diff = 2 Then
TextBox1 = x
Else
TextBox1 = ""
TextBox1.SetFocus
MsgBox "Vous devez entrer les données sous cette forme" & Chr(10) & _
"11-09" & Chr(10) & _
"ou" & Chr(10) & _
"05-11" & Chr(10) & _
"ou" & Chr(10) & _
"16-14" & Chr(10) & _
"ou" & Chr(10) & _
"13-15" & Chr(10) & _
"si le pointage dépasse 11, il doit y avoir un minimun" & Chr(10) & _
"de deux point de différence entre les deux chiffres."
End If
End Sub
isabelle
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les
feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées
lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer
dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au
moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un
set de
tennis de table.
Merci de votre aide,
Steph
les résultats doivent être rentrer dans
ce format 11-09 ou 15-03 ou 05-11....
bonjour Stef,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
x = TextBox1.Value
Nb = Len(x)
p = Val(Left(x, 2))
d = Val(Right(x, 2))
diff = Abs(p - d)
If Nb = 5 And p >= 11 And d < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p >= 11 And _
Mid(x, 3, 1) = "-" And diff = 2 Then
TextBox1 = x
Else
TextBox1 = ""
TextBox1.SetFocus
MsgBox "Vous devez entrer les données sous cette forme" & Chr(10) & _
"11-09" & Chr(10) & _
"ou" & Chr(10) & _
"05-11" & Chr(10) & _
"ou" & Chr(10) & _
"16-14" & Chr(10) & _
"ou" & Chr(10) & _
"13-15" & Chr(10) & _
"si le pointage dépasse 11, il doit y avoir un minimun" & Chr(10) & _
"de deux point de différence entre les deux chiffres."
End If
End Sub
isabelle
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les
feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées
lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer
dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au
moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un
set de
tennis de table.
Merci de votre aide,
Steph
bonjour Stef,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
x = TextBox1.Value
Nb = Len(x)
p = Val(Left(x, 2))
d = Val(Right(x, 2))
diff = Abs(p - d)
If Nb = 5 And p >= 11 And d < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p >= 11 And _
Mid(x, 3, 1) = "-" And diff = 2 Then
TextBox1 = x
Else
TextBox1 = ""
TextBox1.SetFocus
MsgBox "Vous devez entrer les données sous cette forme" & Chr(10) & _
"11-09" & Chr(10) & _
"ou" & Chr(10) & _
"05-11" & Chr(10) & _
"ou" & Chr(10) & _
"16-14" & Chr(10) & _
"ou" & Chr(10) & _
"13-15" & Chr(10) & _
"si le pointage dépasse 11, il doit y avoir un minimun" & Chr(10) & _
"de deux point de différence entre les deux chiffres."
End If
End Sub
isabelle
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les
feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées
lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer
dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au
moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un
set de
tennis de table.
Merci de votre aide,
Steph
bonjour Stef,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
x = TextBox1.Value
Nb = Len(x)
p = Val(Left(x, 2))
d = Val(Right(x, 2))
diff = Abs(p - d)
If Nb = 5 And p >= 11 And d < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p >= 11 And _
Mid(x, 3, 1) = "-" And diff = 2 Then
TextBox1 = x
Else
TextBox1 = ""
TextBox1.SetFocus
MsgBox "Vous devez entrer les données sous cette forme" & Chr(10) & _
"11-09" & Chr(10) & _
"ou" & Chr(10) & _
"05-11" & Chr(10) & _
"ou" & Chr(10) & _
"16-14" & Chr(10) & _
"ou" & Chr(10) & _
"13-15" & Chr(10) & _
"si le pointage dépasse 11, il doit y avoir un minimun" & Chr(10) & _
"de deux point de différence entre les deux chiffres."
End If
End Sub
isabelle
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les
feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées
lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer
dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au
moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un
set de
tennis de table.
Merci de votre aide,
Steph
bonjour Stef,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
x = TextBox1.Value
Nb = Len(x)
p = Val(Left(x, 2))
d = Val(Right(x, 2))
diff = Abs(p - d)
If Nb = 5 And p >= 11 And d < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p >= 11 And _
Mid(x, 3, 1) = "-" And diff = 2 Then
TextBox1 = x
Else
TextBox1 = ""
TextBox1.SetFocus
MsgBox "Vous devez entrer les données sous cette forme" & Chr(10) & _
"11-09" & Chr(10) & _
"ou" & Chr(10) & _
"05-11" & Chr(10) & _
"ou" & Chr(10) & _
"16-14" & Chr(10) & _
"ou" & Chr(10) & _
"13-15" & Chr(10) & _
"si le pointage dépasse 11, il doit y avoir un minimun" & Chr(10) & _
"de deux point de différence entre les deux chiffres."
End If
End Sub
isabelle
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les
feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées
lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer
dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au
moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un
set de
tennis de table.
Merci de votre aide,
Steph
bonjour Stef,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
x = TextBox1.Value
Nb = Len(x)
p = Val(Left(x, 2))
d = Val(Right(x, 2))
diff = Abs(p - d)
If Nb = 5 And p >= 11 And d < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p >= 11 And _
Mid(x, 3, 1) = "-" And diff = 2 Then
TextBox1 = x
Else
TextBox1 = ""
TextBox1.SetFocus
MsgBox "Vous devez entrer les données sous cette forme" & Chr(10) & _
"11-09" & Chr(10) & _
"ou" & Chr(10) & _
"05-11" & Chr(10) & _
"ou" & Chr(10) & _
"16-14" & Chr(10) & _
"ou" & Chr(10) & _
"13-15" & Chr(10) & _
"si le pointage dépasse 11, il doit y avoir un minimun" & Chr(10) & _
"de deux point de différence entre les deux chiffres."
End If
End Sub
isabelle
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les
feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées
lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer
dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au
moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un
set de
tennis de table.
Merci de votre aide,
Steph
bonjour Stef,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
x = TextBox1.Value
Nb = Len(x)
p = Val(Left(x, 2))
d = Val(Right(x, 2))
diff = Abs(p - d)
If Nb = 5 And p >= 11 And d < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p >= 11 And _
Mid(x, 3, 1) = "-" And diff = 2 Then
TextBox1 = x
Else
TextBox1 = ""
TextBox1.SetFocus
MsgBox "Vous devez entrer les données sous cette forme" & Chr(10) & _
"11-09" & Chr(10) & _
"ou" & Chr(10) & _
"05-11" & Chr(10) & _
"ou" & Chr(10) & _
"16-14" & Chr(10) & _
"ou" & Chr(10) & _
"13-15" & Chr(10) & _
"si le pointage dépasse 11, il doit y avoir un minimun" & Chr(10) & _
"de deux point de différence entre les deux chiffres."
End If
End Sub
isabelle
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les
feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées
lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer
dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au
moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un
set de
tennis de table.
Merci de votre aide,
Steph
bonjour Stef,
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
x = TextBox1.Value
Nb = Len(x)
p = Val(Left(x, 2))
d = Val(Right(x, 2))
diff = Abs(p - d)
If Nb = 5 And p >= 11 And d < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p < 11 And _
Mid(x, 3, 1) = "-" And diff >= 2 Then
If diff > 2 And (p = 11 Or d = 11) Then
TextBox1 = x
End If
ElseIf Nb = 5 And d >= 11 And p >= 11 And _
Mid(x, 3, 1) = "-" And diff = 2 Then
TextBox1 = x
Else
TextBox1 = ""
TextBox1.SetFocus
MsgBox "Vous devez entrer les données sous cette forme" & Chr(10) & _
"11-09" & Chr(10) & _
"ou" & Chr(10) & _
"05-11" & Chr(10) & _
"ou" & Chr(10) & _
"16-14" & Chr(10) & _
"ou" & Chr(10) & _
"13-15" & Chr(10) & _
"si le pointage dépasse 11, il doit y avoir un minimun" & Chr(10) & _
"de deux point de différence entre les deux chiffres."
End If
End Sub
isabelle
Bonsoir,
Je suis en train de développer un fichier Excel pour imprimer les
feuilles
de match de Tennis de Table (AFFBTT).
(au cas ou qq serais intéresser !!??)
J'ai choisis de faire inscrire les résultats des matchs 1 par 1 dans un
Userform via un Textbox, je souhaiterais vérifier les données rentrées
lors
du cliques sur le bouton "Valider" qui me transfère les résultats sur la
feuille.
Les matchs de tennis de table se joue en 5 sets de 11 points. J'ai donc
placer sur mon Userform 5 Textbox, les résultats doivent être rentrer
dans
ce format 11-09 ou 15-03 ou 05-11....
Comment vérifier que j'ai bien 5 caractères, qu'il y a bien 2 chiffres
suivis d'un tiret suivis de 2 chiffres, que la différence entre les 2
nombres doit être de minimum 2 et que un des 2 nombres doit faire au
moins
11 ?
En résumé que le résultat rentrer est bien un résultat plausible d'un
set de
tennis de table.
Merci de votre aide,
Steph