Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Test de valeur d'un InputBox

Test de valeur d'un InputBox

4 réponses
Avatar
Dédé
Bonjour à tous !

J'ai un petite question concernant la validité d'une entrée d'un inputbox
...

Voici un bout de mon code ...
MyValue = InputBox("Entrez les coordonnées demandées" & Chr(13) & "pour
connaître la correspondance exacte.", "Renseignements...", "Veuillez insérer
ici les coordonnées du code voulu")
If Len(MyValue) <> 2 Then msgboc "FAUX !!!!)

Donc, si ma valeur comprend plus que 3 caractère cela m'affiche un message
d'erreur ...
Par contre, ce que je test c'est uniquement le nombre de caractère ... et
j'aimerais tester si le premier caractère est une lettre ... et le second un
chiffre ...

Est-ce que quelqu'un pourrait me donner une piste ?

J'avais déjà fais cela en suivant un exemple qui était sur le cd-rom fourni
avec le bouquin intitulé "Excel et la VBA" de John W. mais vu que je
déménage, il est enfoui au fond d'un carton et je sais même pas lequel c'est
;-((

Merci d'avance pour vos prochaine lumières ;-))

Salutations et bonne journée
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
=CAR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Dédé
heuu petite correction ...

si ma valeur comprend plus de 2 caractères (et non pas 3 ...) ben c'est
"FAUX !!!"

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Dédé" a écrit dans le message de
news:
Bonjour à tous !

J'ai un petite question concernant la validité d'une entrée d'un inputbox
...

Voici un bout de mon code ...
MyValue = InputBox("Entrez les coordonnées demandées" & Chr(13) & "pour
connaître la correspondance exacte.", "Renseignements...", "Veuillez
insérer

ici les coordonnées du code voulu")
If Len(MyValue) <> 2 Then msgboc "FAUX !!!!)

Donc, si ma valeur comprend plus que 3 caractère cela m'affiche un message
d'erreur ...
Par contre, ce que je test c'est uniquement le nombre de caractère ... et
j'aimerais tester si le premier caractère est une lettre ... et le second
un

chiffre ...

Est-ce que quelqu'un pourrait me donner une piste ?

J'avais déjà fais cela en suivant un exemple qui était sur le cd-rom
fourni

avec le bouquin intitulé "Excel et la VBA" de John W. mais vu que je
déménage, il est enfoui au fond d'un carton et je sais même pas lequel c'e
st

;-((

Merci d'avance pour vos prochaine lumières ;-))

Salutations et bonne journée
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!

ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)


&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php




Avatar
papou
Bonjour Dédé
MyValue = InputBox("Entrez les coordonnées demandées" & Chr(13) _
& "pourconnaître la correspondance exacte.", "Renseignements...", "Veuillez
insérer ici les coordonnées du code voulu")
Dim CFAUX As Boolean
If Len(MyValue) > 2 Then
CFAUX = True
ElseIf Not IsNumeric(Right(Left(MyValue, 2), 1)) And IsNumeric(Left(MyValue,
1)) Then
CFAUX = True
Else: CFAUX = False
End If
If CFAUX Then MsgBox "FAUX !"
Cordialement
Pascal


"Dédé" a écrit dans le message de
news:%
heuu petite correction ...

si ma valeur comprend plus de 2 caractères (et non pas 3 ...) ben c'est
"FAUX !!!"

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!

ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)


&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Dédé" a écrit dans le message de
news:
Bonjour à tous !

J'ai un petite question concernant la validité d'une entrée d'un
inputbox


...

Voici un bout de mon code ...
MyValue = InputBox("Entrez les coordonnées demandées" & Chr(13) & "pour
connaître la correspondance exacte.", "Renseignements...", "Veuillez
insérer

ici les coordonnées du code voulu")
If Len(MyValue) <> 2 Then msgboc "FAUX !!!!)

Donc, si ma valeur comprend plus que 3 caractère cela m'affiche un
message


d'erreur ...
Par contre, ce que je test c'est uniquement le nombre de caractère ...
et


j'aimerais tester si le premier caractère est une lettre ... et le
second


un
chiffre ...

Est-ce que quelqu'un pourrait me donner une piste ?

J'avais déjà fais cela en suivant un exemple qui était sur le cd-rom
fourni

avec le bouquin intitulé "Excel et la VBA" de John W. mais vu que je
déménage, il est enfoui au fond d'un carton et je sais même pas lequel
c'e


st
;-((

Merci d'avance pour vos prochaine lumières ;-))

Salutations et bonne journée
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!



ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)




&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php








Avatar
Dédé
merci tout plein pour ta réponse !

Je vais voir tout ça de suite ;-))

Salutations et à +

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"papou" <nspm> a écrit dans le message de
news:
Bonjour Dédé
MyValue = InputBox("Entrez les coordonnées demandées" & Chr(13) _
& "pourconnaître la correspondance exacte.", "Renseignements...",
"Veuillez

insérer ici les coordonnées du code voulu")
Dim CFAUX As Boolean
If Len(MyValue) > 2 Then
CFAUX = True
ElseIf Not IsNumeric(Right(Left(MyValue, 2), 1)) And
IsNumeric(Left(MyValue,

1)) Then
CFAUX = True
Else: CFAUX = False
End If
If CFAUX Then MsgBox "FAUX !"
Cordialement
Pascal


"Dédé" a écrit dans le message de
news:%
heuu petite correction ...

si ma valeur comprend plus de 2 caractères (et non pas 3 ...) ben c'est
"FAUX !!!"

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!



ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)




&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Dédé" a écrit dans le message de
news:
Bonjour à tous !

J'ai un petite question concernant la validité d'une entrée d'un
inputbox


...

Voici un bout de mon code ...
MyValue = InputBox("Entrez les coordonnées demandées" & Chr(13) &
"pour



connaître la correspondance exacte.", "Renseignements...", "Veuillez
insérer

ici les coordonnées du code voulu")
If Len(MyValue) <> 2 Then msgboc "FAUX !!!!)

Donc, si ma valeur comprend plus que 3 caractère cela m'affiche un
message


d'erreur ...
Par contre, ce que je test c'est uniquement le nombre de caractère ...
et


j'aimerais tester si le premier caractère est une lettre ... et le
second


un
chiffre ...

Est-ce que quelqu'un pourrait me donner une piste ?

J'avais déjà fais cela en suivant un exemple qui était sur le cd-rom
fourni

avec le bouquin intitulé "Excel et la VBA" de John W. mais vu que je
déménage, il est enfoui au fond d'un carton et je sais même pas lequel
c'e


st
;-((

Merci d'avance pour vos prochaine lumières ;-))

Salutations et bonne journée
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!





ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)






&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php












Avatar
Dédé
Pour info ... voilà le code final que j'ai trouvé (grâce à ton aide ;-))

Private Sub Access_Click()
Dim Reponse As VbMsgBoxResult
MyValue = InputBox("Veuillez entrer les coordonnées demandées" & Chr(13) &
"pour connaître la correspondance exacte.", "Renseignements...", "Veuillez
insérer ici les coordonnées du code voulu")
If Len(MyValue) = 2 And IsNumeric(Right(MyValue, 1)) And
IsNumeric(Left(MyValue, 1)) = False Then
Reponse = MsgBox(Range(Left(MyValue, 1) & Right(MyValue, 1) + 1).Value,
vbOKOnly)
Else
MsgBox "Le code insérer n'est pas correct !"
End If
End Sub

Mes salutations les meilleures !

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule ligne
!
ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)
&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102
)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Dédé" a écrit dans le message de
news:%23eT$
merci tout plein pour ta réponse !

Je vais voir tout ça de suite ;-))

Salutations et à +

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!

ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)


&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"papou" <nspm> a écrit dans le message de
news:
Bonjour Dédé
MyValue = InputBox("Entrez les coordonnées demandées" & Chr(13) _
& "pourconnaître la correspondance exacte.", "Renseignements...",
"Veuillez

insérer ici les coordonnées du code voulu")
Dim CFAUX As Boolean
If Len(MyValue) > 2 Then
CFAUX = True
ElseIf Not IsNumeric(Right(Left(MyValue, 2), 1)) And
IsNumeric(Left(MyValue,

1)) Then
CFAUX = True
Else: CFAUX = False
End If
If CFAUX Then MsgBox "FAUX !"
Cordialement
Pascal


"Dédé" a écrit dans le message de
news:%
heuu petite correction ...

si ma valeur comprend plus de 2 caractères (et non pas 3 ...) ben
c'est



"FAUX !!!"

Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une seule
ligne

!





ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)






&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -
http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1
Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php

"Dédé" a écrit dans le message de
news:
Bonjour à tous !

J'ai un petite question concernant la validité d'une entrée d'un
inputbox


...

Voici un bout de mon code ...
MyValue = InputBox("Entrez les coordonnées demandées" & Chr(13) &
"pour



connaître la correspondance exacte.", "Renseignements...", "Veuillez
insérer

ici les coordonnées du code voulu")
If Len(MyValue) <> 2 Then msgboc "FAUX !!!!)

Donc, si ma valeur comprend plus que 3 caractère cela m'affiche un
message


d'erreur ...
Par contre, ce que je test c'est uniquement le nombre de caractère
...




et
j'aimerais tester si le premier caractère est une lettre ... et le
second


un
chiffre ...

Est-ce que quelqu'un pourrait me donner une piste ?

J'avais déjà fais cela en suivant un exemple qui était sur le cd-rom
fourni

avec le bouquin intitulé "Excel et la VBA" de John W. mais vu que je
déménage, il est enfoui au fond d'un carton et je sais même pas
lequel




c'e
st
;-((

Merci d'avance pour vos prochaine lumières ;-))

Salutations et bonne journée
Dédé

--
Pour me répondre, copiez cette formule dans excel ;-) et sur une
seule




ligne
!







ÊR(83)&CAR(117)&CAR(103)&CAR(117)&CAR(115)&CAR(49)&CAR(50)&CAR(48)&CAR(48)








&CAR(50)&CAR(64)&CAR(121)&CAR(97)&CAR(104)&CAR(111)&CAR(111)&CAR(46)&CAR(102

)&CAR(114)

Sites de références,
Word :
http://faq.ms.word.free.fr/
Barre de menu disparues ? voir ici -

http://faq.ms.word.free.fr/Environnement/Environnement_reponses.htm#e1




Incrémentation chronologique ?
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v3
Chiffres en lettres ? (Word et Excel)
http://faq.ms.word.free.fr/VBA/VBA_reponses.htm#v4
Excel :
http://www.excelabo.net/
http://jacxl.free.fr/cours_xl/cours_xl_jac.html#accueil_xl
http://dj.joss.free.fr/faq.htm
http://perso.wanadoo.fr/frederic.sigonneau/
http://excel.1.free.fr/
Module de classe ? ici :
http://www.info-3000.com/vbvba/modulesdeclasse.php