Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Encadrer une valeur saisie dans une inputbox

Encadrer une valeur saisie dans une inputbox

4 réponses
Avatar
Syr Ano
Bonjour,

Comment puis-je tester si une valeur saisie dans une inputbox
appartient bien a une plage de valeurs entieres dans un array ,
par exemple ?


Merci

patrice.dignac@wanadoo.fr
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
LeSteph
Doit on tester si toutes les valeurs D'array sont entières ou seul la valeur
par rapport à cet array
A la volée une idée serait ici pou un range :
Sub montest()
Dim maval As Integer
Dim myarray As String 'ou à toi de typer
Dim test As String
myarray = "a1:b10" 'ou à toi de définir
maval = InputBox("Saisir une valeur", "Test Plage")
For Each c In Range(myarray).Cells

If maval = c.Value Then
test = "oui"
Exit For
Else
test = "non"
End If
Next
MsgBox test
End Sub


LeSteph

"Syr Ano" a écrit dans le message de
news:cgsftl$inj$
Bonjour,

Comment puis-je tester si une valeur saisie dans une inputbox
appartient bien a une plage de valeurs entieres dans un array ,
par exemple ?


Merci








Avatar
Syr Ano
"LeSteph" a écrit dans le message de news:
4131de12$0$29666$
Doit on tester si toutes les valeurs D'array sont entières ou seul la
valeur

par rapport à cet array
A la volée une idée serait ici pou un range :
Sub montest()

Dim maval As Integer
Dim myarray As integer
Dim test As String
myarray = array(1,2,3,4,5,6,7)

do
maval = InputBox("Saisir une valeur", "Test Plage")
loop while not maval in myarray()

La syntaxe est erronnée, mais voilà ce que je recherche........


Merci TheSteph !........

Avatar
Alain CROS
Bonjour.

Peut être ça ?

Sub TonTest()
Dim Maval
Do
Maval = Application.InputBox("Entrer Une valeur entre 1 et 7", _
"Valeur saisie appartenant a une plage de valeurs", , , , , , 1)
Loop Until Maval > 0 And Maval < 8
MsgBox "Valeur saisie = " & Maval
End Sub

Alain CROS

"Syr Ano" a écrit dans le message de news: cgspvv$cua$

"LeSteph" a écrit dans le message de news:
4131de12$0$29666$
Doit on tester si toutes les valeurs D'array sont entières ou seul la
valeur

par rapport à cet array
A la volée une idée serait ici pou un range :
Sub montest()

Dim maval As Integer
Dim myarray As integer
Dim test As String
myarray = array(1,2,3,4,5,6,7)

do
maval = InputBox("Saisir une valeur", "Test Plage")
loop while not maval in myarray()

La syntaxe est erronnée, mais voilà ce que je recherche........


Merci TheSteph !........




Avatar
LeSteph
Ou est-ce ceci qu'il faut comprendre:
Il y a 7 valeurs entières dans Array (pas forcément consécutives)
dans un array elles se désigent de 0à 6et non de 1 à 7

Sub testarray()
Dim maval As Integer
Dim test
Dim i As Integer
rebique:
maval = InputBox("entrer", "Entier")
myarray = Array(1, 2, 4, 5, 6, 8, 9)
For i = 0 To 6
test = myarray(i)
If maval = test Then Exit For
Next
If maval <> test Then
MsgBox ("incorrect")
GoTo rebique
Else
MsgBox myarray(i) & " est correct"
End If

End Sub

LeSteph

"Syr Ano" a écrit dans le message de
news:cgspvv$cua$

"LeSteph" a écrit dans le message de news:
4131de12$0$29666$
Doit on tester si toutes les valeurs D'array sont entières ou seul la
valeur

par rapport à cet array
A la volée une idée serait ici pou un range :
Sub montest()

Dim maval As Integer
Dim myarray As integer
Dim test As String
myarray = array(1,2,3,4,5,6,7)

do
maval = InputBox("Saisir une valeur", "Test Plage")
loop while not maval in myarray()

La syntaxe est erronnée, mais voilà ce que je recherche........


Merci TheSteph !........