Bonjour à tous.
 
Voilà, je vous explique mon problème :  
 
J'ai une nouvelle question :
 
Private Sub jetdeau_Click()
 
jet = Sheets("devis" ).Range("L9999" ).End(xlUp).Row + 1
Dim test As String
test = ("Jet d'eau" )
Sheets("devis" ).Range("L" & jet).Value = test
 
Usinage.Hide
 
tusinage = InputBox("Indiquez le temps d'usinage" )
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
 
Select Case MsgBox("Mode de découpe ajouté à votre devis, voulez vous en rajouter ?", vbYesNo, "Validation" )
    Case vbNo
    Sheets("Accueil" ).Select
    Case vbYes
    Sheets("Accueil" ).Select
End Select
     
 
End Sub  
 
Voilà ma fonction actuelle.
 
Comment faire pour que, lorsqu'on clique sur oui dans le vbcase de la fin, je revienne au début et que je recommence donc ma procédure ?  
 
Merci d'avance.

Cette syntaxe me parait étrange. Peut-être que cela marcherait mieux avec

Do
    Do
Quantite = InputBox("Indiquez finalement la quantité souhaitée de ce type de tole, la valeur doit être au minimum de 1." )
numericcheck = IsNumeric(Quantite)
Loop While numericcheck <> True
    Loop While Quantite < 1
niua4 = Sheets("devis" ).Range("F9999" ).End(xlUp).Row + 1
Sheets("devis" ).Range("F" & niua4).Value = Quantite
 
Voilà ce que je viens d'écrire, et ca marche.

J'ai une nouvelle question :
 
Private Sub jetdeau_Click()
 
jet = Sheets("devis" ).Range("L9999" ).End(xlUp).Row + 1
Dim test As String
test = ("Jet d'eau" )
Sheets("devis" ).Range("L" & jet).Value = test
 
Usinage.Hide
 
tusinage = InputBox("Indiquez le temps d'usinage" )
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
 
Select Case MsgBox("Mode de découpe ajouté à votre devis, voulez vous en rajouter ?", vbYesNo, "Validation" )
    Case vbNo
    Sheets("Accueil" ).Select
    Case vbYes
    Sheets("Accueil" ).Select
End Select
     
 
End Sub
 
 
Voilà ma fonction actuelle.
 
Comment faire pour que, lorsqu'on clique sur oui dans le vbcase de la fin, je revienne au début et que je recommence donc ma procédure ?  
 
Merci d'avance.

Up, help s'il vous plait!

Comment faire pour que, lorsqu'on clique sur oui dans le vbcase de la fin, je revienne au début et que je recommence donc ma procédure ?  

 
Bonjour
 
je te suggère ceci:
 
 
Private Sub jetdeau_Click()
début:
jet = Sheets("devis" ).Range("L9999" ).End(xlUp).Row + 1
 
--------------//----------------
    Case vbYes
    GoTo début
 
End Select    
 
Tu places là où tu veux recommencer un mot suivi de 2 points ( : ), puis pour ta réponse Yes,  GoTo suivi de ce mot SANS les 2 pts
 
Est-ce bien ce que tu voulais?
 
Cordialement
A bientôt
 
 

précision:
 
j'ai pris ici le mot "début", tu peux prendre n'importe quoi, ainsi même qu'un nombre (mais alors sans les 2 pts.
 
arrivé au choix Yes, GoTo  envoie la macro au mot choisi, ici en haut, et donc recommence la procédure jusqu'à un autre choix.
 
clair?

Bonsoir tonio,
tu peux aussi essayer ceci en utilisant le do .....loop while...
 
 
Private Sub jetdeau_Click()  
 DO
jet = Sheets("devis" ).Range("L9999" ).End(xlUp).Row + 1  
.
.
.
 
rep= MsgBox("Mode de découpe ajouté à votre devis, voulez vous en rajouter ?", vbYesNo, "Validation" )  
     
    Sheets("Accueil" ).Select  
     
    loop while rep = vbYes
End Sub  
 
A demain