Discussion :

[neoboy]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!

[babaothe]

Salut,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[neoboy]

merci beaucoup pour la simplification !!!

Hello,

Juste un souci au niveau du code .

Pourquoi quand je souhaite inserer un msg box entre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If j = False Then

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Exit Sub

ça marche pas .

code complet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[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°.

[patricktoulon]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[casefayere]

Bonsoir à tou(te)s

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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