Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être saisi e
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un ongl et
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être saisi e
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un ongl et
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être saisi e
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un ongl et
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être sai sie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un on glet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" <pierrotle...@laposte.net> a écrit dans le message de news:
O0Evde3eIHA....@TK2MSFTNGP02.phx.gbl...
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être sai sie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un on glet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être sai sie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un on glet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" <pierrotle...@laposte.net> a écrit dans le message de news:
O0Evde3eIHA....@TK2MSFTNGP02.phx.gbl...
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur qu e le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
67758067-3979-46e3-9a6b-30dfab3f4...@q78g2000hsh.googlegroups.com...
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" <pierrotle...@laposte.net> wrote:
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" <pierrotle...@laposte.net> a écrit dans le message de news:
O0Evde3eIHA....@TK2MSFTNGP02.phx.gbl...
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur qu e le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur qu e le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
67758067-3979-46e3-9a6b-30dfab3f4...@q78g2000hsh.googlegroups.com...
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" <pierrotle...@laposte.net> wrote:
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" <pierrotle...@laposte.net> a écrit dans le message de news:
O0Evde3eIHA....@TK2MSFTNGP02.phx.gbl...
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Je joins à nouveau un fichier modifié pour y voir un peu plus clair !
Donc, en fait les nombres que l'on doit saisir dans les TextBox sont list és
dans un onglet (3 listes définies => liste1, liste2 et liste3).
A partir du nombre affiché dans le TextBox du bas (ici à l'occurence
"4.00"), ce sera la liste1 qui est concernée, si on saisie le chiffre "4 .80"
(il ne figure pas dans la liste), le bon chiffre peut-être soit "4.25",
"4.50", ou "4.75" alors un message d'erreur apparaît pour avertir
l'utilisateur que sa saisie n'est pas valable !!!
Si cela peut vous aider !
Merci
Pierrot du 93
http://cjoint.com/?dbqkjZT3Tj
"JB" a écrit dans le message de news:
:/ /cjoint.com/?dbpQb5Ukeg
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nomChamp = GrSaisie.Name
UserForm1(nomChamp) = Replace(UserForm1(nomChamp), ":", ",")
If Val(UserForm1(nomChamp)) > 24 Then
MsgBox ">24"
End If
If Not IsNumeric(UserForm1(nomChamp)) Then
MsgBox "Saisir numérique"
End If
End Sub
JB
On 1 mar, 13:58, "Pierre93" wrote:MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de new s:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans u n
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je joins à nouveau un fichier modifié pour y voir un peu plus clair !
Donc, en fait les nombres que l'on doit saisir dans les TextBox sont list és
dans un onglet (3 listes définies => liste1, liste2 et liste3).
A partir du nombre affiché dans le TextBox du bas (ici à l'occurence
"4.00"), ce sera la liste1 qui est concernée, si on saisie le chiffre "4 .80"
(il ne figure pas dans la liste), le bon chiffre peut-être soit "4.25",
"4.50", ou "4.75" alors un message d'erreur apparaît pour avertir
l'utilisateur que sa saisie n'est pas valable !!!
Si cela peut vous aider !
Merci
Pierrot du 93
http://cjoint.com/?dbqkjZT3Tj
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
4cba4e2e-a265-4442-81f1-c5f677ef1...@s19g2000prg.googlegroups.com...http:/ /cjoint.com/?dbpQb5Ukeg
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nomChamp = GrSaisie.Name
UserForm1(nomChamp) = Replace(UserForm1(nomChamp), ":", ",")
If Val(UserForm1(nomChamp)) > 24 Then
MsgBox ">24"
End If
If Not IsNumeric(UserForm1(nomChamp)) Then
MsgBox "Saisir numérique"
End If
End Sub
JB
On 1 mar, 13:58, "Pierre93" <pierrotle...@laposte.net> wrote:
MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
67758067-3979-46e3-9a6b-30dfab3f4...@q78g2000hsh.googlegroups.com...
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" <pierrotle...@laposte.net> wrote:
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" <pierrotle...@laposte.net> a écrit dans le message de new s:
O0Evde3eIHA....@TK2MSFTNGP02.phx.gbl...
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans u n
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je joins à nouveau un fichier modifié pour y voir un peu plus clair !
Donc, en fait les nombres que l'on doit saisir dans les TextBox sont list és
dans un onglet (3 listes définies => liste1, liste2 et liste3).
A partir du nombre affiché dans le TextBox du bas (ici à l'occurence
"4.00"), ce sera la liste1 qui est concernée, si on saisie le chiffre "4 .80"
(il ne figure pas dans la liste), le bon chiffre peut-être soit "4.25",
"4.50", ou "4.75" alors un message d'erreur apparaît pour avertir
l'utilisateur que sa saisie n'est pas valable !!!
Si cela peut vous aider !
Merci
Pierrot du 93
http://cjoint.com/?dbqkjZT3Tj
"JB" a écrit dans le message de news:
:/ /cjoint.com/?dbpQb5Ukeg
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nomChamp = GrSaisie.Name
UserForm1(nomChamp) = Replace(UserForm1(nomChamp), ":", ",")
If Val(UserForm1(nomChamp)) > 24 Then
MsgBox ">24"
End If
If Not IsNumeric(UserForm1(nomChamp)) Then
MsgBox "Saisir numérique"
End If
End Sub
JB
On 1 mar, 13:58, "Pierre93" wrote:MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de new s:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans u n
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Je joins à nouveau un fichier modifié pour y voir un peu plus clair !
Donc, en fait les nombres que l'on doit saisir dans les TextBox sont
listés
dans un onglet (3 listes définies => liste1, liste2 et liste3).
A partir du nombre affiché dans le TextBox du bas (ici à l'occurence
"4.00"), ce sera la liste1 qui est concernée, si on saisie le chiffre
"4.80"
(il ne figure pas dans la liste), le bon chiffre peut-être soit "4.25",
"4.50", ou "4.75" alors un message d'erreur apparaît pour avertir
l'utilisateur que sa saisie n'est pas valable !!!
Si cela peut vous aider !
Merci
Pierrot du 93
http://cjoint.com/?dbqkjZT3Tj
"JB" a écrit dans le message de news:
://cjoint.com/?dbpQb5Ukeg
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nomChamp = GrSaisie.Name
UserForm1(nomChamp) = Replace(UserForm1(nomChamp), ":", ",")
If Val(UserForm1(nomChamp)) > 24 Then
MsgBox ">24"
End If
If Not IsNumeric(UserForm1(nomChamp)) Then
MsgBox "Saisir numérique"
End If
End Sub
JB
On 1 mar, 13:58, "Pierre93" wrote:MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur
que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Je joins à nouveau un fichier modifié pour y voir un peu plus clair !
Donc, en fait les nombres que l'on doit saisir dans les TextBox sont
listés
dans un onglet (3 listes définies => liste1, liste2 et liste3).
A partir du nombre affiché dans le TextBox du bas (ici à l'occurence
"4.00"), ce sera la liste1 qui est concernée, si on saisie le chiffre
"4.80"
(il ne figure pas dans la liste), le bon chiffre peut-être soit "4.25",
"4.50", ou "4.75" alors un message d'erreur apparaît pour avertir
l'utilisateur que sa saisie n'est pas valable !!!
Si cela peut vous aider !
Merci
Pierrot du 93
http://cjoint.com/?dbqkjZT3Tj
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
4cba4e2e-a265-4442-81f1-c5f677ef1...@s19g2000prg.googlegroups.com...http://cjoint.com/?dbpQb5Ukeg
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nomChamp = GrSaisie.Name
UserForm1(nomChamp) = Replace(UserForm1(nomChamp), ":", ",")
If Val(UserForm1(nomChamp)) > 24 Then
MsgBox ">24"
End If
If Not IsNumeric(UserForm1(nomChamp)) Then
MsgBox "Saisir numérique"
End If
End Sub
JB
On 1 mar, 13:58, "Pierre93" <pierrotle...@laposte.net> wrote:
MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
67758067-3979-46e3-9a6b-30dfab3f4...@q78g2000hsh.googlegroups.com...
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" <pierrotle...@laposte.net> wrote:
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" <pierrotle...@laposte.net> a écrit dans le message de news:
O0Evde3eIHA....@TK2MSFTNGP02.phx.gbl...
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur
que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
Je joins à nouveau un fichier modifié pour y voir un peu plus clair !
Donc, en fait les nombres que l'on doit saisir dans les TextBox sont
listés
dans un onglet (3 listes définies => liste1, liste2 et liste3).
A partir du nombre affiché dans le TextBox du bas (ici à l'occurence
"4.00"), ce sera la liste1 qui est concernée, si on saisie le chiffre
"4.80"
(il ne figure pas dans la liste), le bon chiffre peut-être soit "4.25",
"4.50", ou "4.75" alors un message d'erreur apparaît pour avertir
l'utilisateur que sa saisie n'est pas valable !!!
Si cela peut vous aider !
Merci
Pierrot du 93
http://cjoint.com/?dbqkjZT3Tj
"JB" a écrit dans le message de news:
://cjoint.com/?dbpQb5Ukeg
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nomChamp = GrSaisie.Name
UserForm1(nomChamp) = Replace(UserForm1(nomChamp), ":", ",")
If Val(UserForm1(nomChamp)) > 24 Then
MsgBox ">24"
End If
If Not IsNumeric(UserForm1(nomChamp)) Then
MsgBox "Saisir numérique"
End If
End Sub
JB
On 1 mar, 13:58, "Pierre93" wrote:MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de news:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-être
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateur
que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -
J'y ai pensé, JB, mais pour les besoins de mon application et surtout po ur
un meilleure fluidité dans la saisie des chiffres, je préfère les Te xtBox.
En effet en dessous de ces TextBox, il y a d'autres TextBox que l'on doit
renseigner, mais là ce sont des lettres !
As tu compris ma démarche ?
Je te remercie pour tes efforts.
Pierrot du 93
"JB" a écrit dans le message de news:
Pourquoi pas des combo?
http://cjoint.com/?dbrdCdmfA8
Dim Cmb(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For i = 1 To 10
If Me.TextBox11 = "4.00" Then Me("combobox" & i).RowSource =
"liste1"
If Me.TextBox11 = "12.00" Then Me("combobox" & i).RowSource =
"liste2"
If Me.TextBox11 = "20.00" Then Me("combobox" & i).RowSource =
"liste3"
Set Cmb(i).GrSaisie = Me("ComboBox" & i)
Next i
End Sub
JB
On 1 mar, 16:10, "Pierre93" wrote:Je joins à nouveau un fichier modifié pour y voir un peu plus clair !
Donc, en fait les nombres que l'on doit saisir dans les TextBox sont
listés
dans un onglet (3 listes définies => liste1, liste2 et liste3).
A partir du nombre affiché dans le TextBox du bas (ici à l'occurence
"4.00"), ce sera la liste1 qui est concernée, si on saisie le chiffre
"4.80"
(il ne figure pas dans la liste), le bon chiffre peut-être soit "4.25" ,
"4.50", ou "4.75" alors un message d'erreur apparaît pour avertir
l'utilisateur que sa saisie n'est pas valable !!!
Si cela peut vous aider !
Merci
Pierrot du 93
http://cjoint.com/?dbqkjZT3Tj
"JB" a écrit dans le message de news:
://cjoint.com/?dbpQb5Ukeg
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nomChamp = GrSaisie.Name
UserForm1(nomChamp) = Replace(UserForm1(nomChamp), ":", ",")
If Val(UserForm1(nomChamp)) > 24 Then
MsgBox ">24"
End If
If Not IsNumeric(UserForm1(nomChamp)) Then
MsgBox "Saisir numérique"
End If
End Sub
JB
On 1 mar, 13:58, "Pierre93" wrote:MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de n ews:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-êt re
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateu r
que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
J'y ai pensé, JB, mais pour les besoins de mon application et surtout po ur
un meilleure fluidité dans la saisie des chiffres, je préfère les Te xtBox.
En effet en dessous de ces TextBox, il y a d'autres TextBox que l'on doit
renseigner, mais là ce sont des lettres !
As tu compris ma démarche ?
Je te remercie pour tes efforts.
Pierrot du 93
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
00b5b45c-3636-4548-9734-43709e180...@28g2000hsw.googlegroups.com...
Pourquoi pas des combo?
http://cjoint.com/?dbrdCdmfA8
Dim Cmb(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For i = 1 To 10
If Me.TextBox11 = "4.00" Then Me("combobox" & i).RowSource =
"liste1"
If Me.TextBox11 = "12.00" Then Me("combobox" & i).RowSource =
"liste2"
If Me.TextBox11 = "20.00" Then Me("combobox" & i).RowSource =
"liste3"
Set Cmb(i).GrSaisie = Me("ComboBox" & i)
Next i
End Sub
JB
On 1 mar, 16:10, "Pierre93" <pierrotle...@laposte.net> wrote:
Je joins à nouveau un fichier modifié pour y voir un peu plus clair !
Donc, en fait les nombres que l'on doit saisir dans les TextBox sont
listés
dans un onglet (3 listes définies => liste1, liste2 et liste3).
A partir du nombre affiché dans le TextBox du bas (ici à l'occurence
"4.00"), ce sera la liste1 qui est concernée, si on saisie le chiffre
"4.80"
(il ne figure pas dans la liste), le bon chiffre peut-être soit "4.25" ,
"4.50", ou "4.75" alors un message d'erreur apparaît pour avertir
l'utilisateur que sa saisie n'est pas valable !!!
Si cela peut vous aider !
Merci
Pierrot du 93
http://cjoint.com/?dbqkjZT3Tj
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
4cba4e2e-a265-4442-81f1-c5f677ef1...@s19g2000prg.googlegroups.com...http ://cjoint.com/?dbpQb5Ukeg
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nomChamp = GrSaisie.Name
UserForm1(nomChamp) = Replace(UserForm1(nomChamp), ":", ",")
If Val(UserForm1(nomChamp)) > 24 Then
MsgBox ">24"
End If
If Not IsNumeric(UserForm1(nomChamp)) Then
MsgBox "Saisir numérique"
End If
End Sub
JB
On 1 mar, 13:58, "Pierre93" <pierrotle...@laposte.net> wrote:
MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
67758067-3979-46e3-9a6b-30dfab3f4...@q78g2000hsh.googlegroups.com...
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" <pierrotle...@laposte.net> wrote:
Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" <pierrotle...@laposte.net> a écrit dans le message de n ews:
O0Evde3eIHA....@TK2MSFTNGP02.phx.gbl...
Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-êt re
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateu r
que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
J'y ai pensé, JB, mais pour les besoins de mon application et surtout po ur
un meilleure fluidité dans la saisie des chiffres, je préfère les Te xtBox.
En effet en dessous de ces TextBox, il y a d'autres TextBox que l'on doit
renseigner, mais là ce sont des lettres !
As tu compris ma démarche ?
Je te remercie pour tes efforts.
Pierrot du 93
"JB" a écrit dans le message de news:
Pourquoi pas des combo?
http://cjoint.com/?dbrdCdmfA8
Dim Cmb(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For i = 1 To 10
If Me.TextBox11 = "4.00" Then Me("combobox" & i).RowSource =
"liste1"
If Me.TextBox11 = "12.00" Then Me("combobox" & i).RowSource =
"liste2"
If Me.TextBox11 = "20.00" Then Me("combobox" & i).RowSource =
"liste3"
Set Cmb(i).GrSaisie = Me("ComboBox" & i)
Next i
End Sub
JB
On 1 mar, 16:10, "Pierre93" wrote:Je joins à nouveau un fichier modifié pour y voir un peu plus clair !
Donc, en fait les nombres que l'on doit saisir dans les TextBox sont
listés
dans un onglet (3 listes définies => liste1, liste2 et liste3).
A partir du nombre affiché dans le TextBox du bas (ici à l'occurence
"4.00"), ce sera la liste1 qui est concernée, si on saisie le chiffre
"4.80"
(il ne figure pas dans la liste), le bon chiffre peut-être soit "4.25" ,
"4.50", ou "4.75" alors un message d'erreur apparaît pour avertir
l'utilisateur que sa saisie n'est pas valable !!!
Si cela peut vous aider !
Merci
Pierrot du 93
http://cjoint.com/?dbqkjZT3Tj
"JB" a écrit dans le message de news:
://cjoint.com/?dbpQb5Ukeg
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nomChamp = GrSaisie.Name
UserForm1(nomChamp) = Replace(UserForm1(nomChamp), ":", ",")
If Val(UserForm1(nomChamp)) > 24 Then
MsgBox ">24"
End If
If Not IsNumeric(UserForm1(nomChamp)) Then
MsgBox "Saisir numérique"
End If
End Sub
JB
On 1 mar, 13:58, "Pierre93" wrote:MerciJB, mais ce n'est pas ce que je recherche exactement.
A+
"JB" a écrit dans le message de news:
http://cjoint.com/?dbnujHHA8z
Dim Txt(1 To 10) As New ClasseSaisie
Private Sub UserForm_Initialize()
For b = 1 To 10
Set Txt(b).GrSaisie = Me("textbox" & b)
Me("textbox" & b).MaxLength = 5
Next b
End Sub
Module de classe:
Public WithEvents GrSaisie As MSForms.TextBox
Private Sub GrSaisie_Change()
nom = GrSaisie.Name
UserForm1(nom) = Replace(UserForm1(nom), ",", ":")
End Sub
JB
On 1 mar, 11:34, "Pierre93" wrote:Voici un exemple :
http://cjoint.com/?dblIj1GGrA
Pierrot du 93
"Pierre93" a écrit dans le message de n ews:Bonjour !
J'ai dans un userform plusieurs TextBox (10). Une valeur peut-êt re
saisie
mais pas quelle n'importe valeur. Ces valeurs sont stockées dans un
onglet
de mon classeur.
Comment, à l'aide d'un message par exemple, avertir l'utilisateu r
que
le
chiffre qu'il vient de saisir n'est pas valide ?
Merci.
Pierre du 93- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte de s
messages précédents -
- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -