Aide à la programmation Visual Basic
tonio187
-
tonio187 -
tonio187 -
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.
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:
- Aide à la programmation Visual Basic
- Visual basic - Télécharger - Langages
- Visual basic editor - Télécharger - Langages
- Visual petanque - Télécharger - Sport
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual c++ 2019 - Guide