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