inputbox

zumba à dit:

ok peux tu m'envoyer le code de la macro 'tester'
Merci

Cliquez pour agrandir...

Private Sub CommandButton1_Click()
saisie_2:
Valeur = InputBox("entrer le numero de la ligne.....")
If Valeur < 6 Or Valeur > 10 Then
  MsgBox ("valeur incorrecte")
  GoTo saisie_2
End If
End Sub

Private Sub CommandButton1_Click()
Call Tester
End Sub

Sub Tester()
Dim Valeur
Valeur = InputBox("entrer le numero de la ligne.....")
While Valeur < 6 Or Valeur > 10
  MsgBox ("valeur incorrecte")
  Valeur = InputBox("entrer le numero de la ligne.....")
Wend
End Sub

zumba à dit:

J'ai essayé le code il marche nickel .Merci
Une petite question encore , quand la valeur est déclarée ( dim valeur ) elle n'est classée dans aucune catégorie string, integer.... par défaut ou se situe-t-elle ?

Cliquez pour agrandir...

Variant : Type de données particulier pouvant contenir des données numériques, des chaînes ou des dates, des types définis par l'utilisateur ainsi que les valeurs spéciales Empty et Null.
Le type de données Variant est doté d'une taille de stockage numérique de 16 octets et peut contenir la même plage de données que le type Decimal, ou d'une taille de stockage de caractère de 22 octets (plus la longueur de la chaîne). Dans ce dernier cas, il peut stocker tout texte.

Cliquez pour agrandir...