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
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
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" <patibul@chez.com> a écrit dans le message de
news:cgsftl$inj$1@news-reader2.wanadoo.fr...
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 ?
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
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 !........
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
4131de12$0$29666$636a15ce@news.free.fr...
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........
"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 !........
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 !........
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" <patibul@chez.com> a écrit dans le message de news: cgspvv$cua$1@news-reader2.wanadoo.fr...
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
4131de12$0$29666$636a15ce@news.free.fr...
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........
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 !........
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 !........
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" <patibul@chez.com> a écrit dans le message de
news:cgspvv$cua$1@news-reader2.wanadoo.fr...
"LeSteph" <lecocosteph@frite.fr> a écrit dans le message de news:
4131de12$0$29666$636a15ce@news.free.fr...
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........
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........