Aide à la programmation Visual Basic

Fermé
tonio187 - 1 déc. 2009 à 20:40
 tonio187 - 4 déc. 2009 à 13:51
Bonjour,

Voilà mon code actuel

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

Comment faire pour que, lorsque je clique sur ma case "Yes", je revienne juste parès "usinage.hide"

Merci d'avance.
A voir également:

1 réponse

Un peu d'aide s'il vous plait
0