Commande inputbox

Version imprimable

Commande inputbox

Hello ,

J'ai un petit souci avec la commande inputbox !

1 / Je veux connaitre la différence entre application.inputbox et inputbox seule !

2 / J'ai une qui permet de réccuperer des données via un inputbox ,mais le problème qui se pose c'est quan j'appuie sur annuler il sort pas !!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 For i = 1 To n
 
        j = Application.InputBox("Entrer la durée opératoire de la pièce" & "  " & i, "Durée opératoire pièce")
 
        If Not IsNumeric(j) Or j < 0 Then
 
            MsgBox "La durée opératoire doit être une valeur numérique positive", vbCritical, "Erreur saisie"
            i = i - 1
 
        ElseIf j - Int(j) <> 0 Then
 
            MsgBox "La durée opératoire doit un entier", vbCritical, "Erreur saisie"
            i = i - 1
 
        Else
 
        p(i) = j
 
        End If
 
    Next i

merci d'avance de votre aide !!

Salut,

Je te suggère d'aller au plus simple :

Code:

1
2
3
4
5
6
7
8
9
For i = 1 To 3
   j = Application.InputBox("Entrer la durée opératoire de la pièce (entier positif uniquement) ou Annuler pour abandonner" & "  " & i, "Durée opératoire pièce")
   If j = False Then Exit For
   If Not j Like String(Len(j), "#") Then
       MsgBox "seul un entier positifr est attendu !"
   Else
       p(i) = j
    End If
 Next i

merci beaucoup pour la simplification !!!

Hello,

Juste un souci au niveau du code .

Pourquoi quand je souhaite inserer un msg box entre

Code:

If j = False Then

Code:

Exit Sub

ça marche pas .

code complet :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
For i = 1 To n
 
       j = Application.InputBox("Entrer la date d'arrivée de la pièce" & "  " & i, "Durée opératoire pièce")
 
    If j = False Then 
    msgbox("hhhhh")
   Exit Sub
 
 
 
    If Not j Like String(Len(j), "#") Then
 
       MsgBox "Veuillez rentrer un entier positif"
 
    Else
 
       r(i) = h(i) = j
 
    End If
 
 Next i

merci d'avance !

16/04/2010, 07h56
babaothe

cela fonctionne pourtant bien chez moi. Quel est donc le problème précis ?
Et utilise Exit For (qui fait abandonner la seule boucle), plutôt que Exit Sub (qui fait abandonner la totalité de la procédure SUB°.

une idée

bonjour

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
For i = 1 To n
 
       j = Application.InputBox("Entrer la date d'arrivée de la pièce" & "  " & i, "Durée opératoire pièce")
 
    If j = False Then        'ici tu remplace "=false" par <0 puisque tu est sencé entrer un chiffre dans ton imputbox
    msgbox("hhhhh")
   Exit Sub
 
 
 
    If Not j Like String(Len(j), "#") Then
 
       MsgBox "Veuillez rentrer un entier positif"
 
    Else
 
       r(i) = h(i) = j
 
    End If
 
 Next i

Bonsoir à tou(te)s

Perso, j'aurais vu un code comme celui-là :

Code:

1
2
3
4
5
6
7
8
For i = 1 To 10
   j = Application.InputBox("Entrer la durée opératoire de la pièce" & "  " & i, "Durée opératoire pièce")
   While Not IsNumeric(j) Or j < 0 Or j - Int(j) <> 0
      MsgBox "La durée opératoire doit être un entier positif, Recommencez", vbCritical, "Erreur saisie"
      j = Application.InputBox("Recommencez, Entrer la durée opératoire de la pièce" & "  " & i, "Durée opératoire pièce")
   Wend
      p(i) = j
Next i

Bonne soirée

18/04/2010, 22h12
babaothe

Salut casefayere,

Rappel en ce qui concerne le point qui préoccupait le demandeur :

Citation:

J'ai une qui permet de réccuperer des données via un inputbox ,mais le problème qui se pose c'est quan j'appuie sur annuler il sort pas !!

;)

Bonsoir babaothe,

Code:

1
2
3
4
5
6
7
8
9
For i = 1 To n
   j = Application.InputBox("Entrer la durée opératoire de la pièce" & "  " & i, "Durée opératoire pièce")
   While Not IsNumeric(j) Or j < 0 Or j - Int(j) <> 0
      MsgBox "La durée opératoire doit être un entier positif, Recommencez", vbCritical, "Erreur saisie"
      j = Application.InputBox("Recommencez, Entrer la durée opératoire de la pièce" & "  " & i, "Durée opératoire pièce")
   If j = 0 Then Exit Sub 'là il quitte
   Wend
      p(i) = j
Next i

Hello,

J'ai une erreur " 13 " avec le code suivant , le programme se situe au niveau du while :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
For i = 1 To n
 
 
   j = Application.InputBox("Entrer la date d'arrivée de la pièce" & "  " & i, "Date arrivée")
 
   If j = 0 Then Exit Sub
 
   While Not IsNumeric(j) Or j < 0 Or j - Int(j) <> 0
 
      MsgBox "La durée opératoire doit être un entier positif, Recommencez", vbCritical, "Erreur saisie"
 
      j = Application.InputBox("Recommencez, Entrer la date d'arrivée de la pièce" & "  " & i, "Date arrivée")
 
   Wend
      p(i) = j
Next i

Merci d'avance !

Voila la solution choisie :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
For i = 1 To n                                                    ' rentrer la date d'arrivée pour les n pièces
 
    ' rentrer la date d'arrivée pour la pièce i
    j = Application.InputBox("Entrer la date d'arrivée de la pièce" & "  " & i, "Durée opératoire pièce")
 
    ' Message d'erreur dans le cas ou l'utilisateur appuie sur "Annuler"
    If j = False Then
            MsgBox "Appuyer sur le boutton Reset avant de recommencer", vbInformation
    End If
 
 
    If j = False Then Exit Sub                                    ' Sortir dans le cas ou l'utilisateur appuie sur "Annuler"
 
 
     Do While Not j Like String(Len(j), "#") Or j = ""   ' Message d'erreur si la valeur est différente d'un entier positif
        MsgBox "Veuillez rentrer un entier positif"
         j = Application.InputBox(",Réessayer, Entrer la date d'arrivée de la pièce" & "  " & i, "Durée opératoire pièce")
 
     Loop
 
 
       r(i) = h(i) = j                                            ' enregistrer la valeur rentrer par l'utilisateur dans le vecteur r et h
 
 
 Next i

Merci à tous

21/04/2010, 14h28
Tonioyo

Bonjour,

Cette ligne de code

Code:

If j = False Then Exit Sub

peut être écrite comme ceci

Code:

If Not j Then Exit Sub