Bonjour, voilà mon code actuel :


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
23
24
25
26
27
28
29
30
31
32
33
34
35
Private Sub jetdeau_Click()
Dim test As String
Dim continuer As String
Dim numericcheck10 As Boolean
 
 
jet = Sheets("devis").Range("L9999").End(xlUp).Row + 1
 
test = ("Jet d'eau")
Sheets("devis").Range("L" & jet).Value = test
 
Usinage.Hide
 
Do
    Do
        Do
    tusinage = InputBox("Indiquez le temps d'usinage")
    numericcheck10 = IsNumeric(tusinage)
    Loop While numericcheck <> True
        Loop while tusinage < 0
 
jet2 = Sheets("devis").Range("M9999").End(xlUp).Row + 1
Sheets("devis").Range("M" & jet2).Value = tusinage
 
commentaire = InputBox("Avez-vous un commentaire à ajouter sur cette opération ?")
Comment = Sheets("devis").Range("Q9999").End(xlUp).Row + 1
Sheets("devis").Range("Q" & Comment).Value = commentaire
 
    rep$ = InputBox("Tapez 'oui' si vous désirez arrêter la saisie, sinon tapez 'non'")
    If rep$ = "non" Then
    Sheets("accueil").Select
    End If
Loop Until rep$ = "oui"
 
End
Le problème est que, lorsque je rentre une valeur dans mon inputbox de début pour tusinage, le programme tourne en rond, quelque soit ce que je rentre... et je ne comprend pas du tout pourquoi..

Quelqu'un pourrait-il m'aider ?