XL 2016 CHOIX TABLEAU / MSGBOX

[VENEZIO]

Bonjour et Bonne année à vous.
Je suis débutant dans les macros, on m'a demandé de créer un tableau Type dans le cadre de mon travail, j'ai créer la macro ci-dessous :

Sub Macro1()
'
' Macro1 Macro
If MsgBox("Tva CA12 sans PS ?", vbYesNo, "Choix") = vbYes Then
Sheets("Feuil1").Select
Sheets("TVA CA12").Visible = True
Sheets("TVA CA12").Select
Rows("16:35").Select
Selection.EntireRow.Hidden = True
End If
If MsgBox("Tva CA12 avec PS ?", vbYesNo, "Choix") = vbYes Then
Sheets("Feuil1").Select
Sheets("TVA CA12").Visible = True
Sheets("TVA CA12").Select
End If
If MsgBox("Tva CA3 sans PS ?", vbYesNo, "Choix") = vbYes Then
Sheets("Feuil1").Select
Sheets("TVA CA3").Visible = True
Sheets("TVA CA3").Select
Rows("16:35").Select
Selection.EntireRow.Hidden = True
End If
If MsgBox("Tva CA3 avec PS ?", vbYesNo, "Choix") = vbYes Then
Sheets("Feuil1").Select
Sheets("TVA CA3").Visible = True
Sheets("TVA CA3").Select
End If
End Sub
La macro permet de choisir un modele de tableau selon son besoin, mais je ne trouve comment si le premier est Ok passser à la fin de la macro "End Sub"
Et serait-il possible de demander à l'utilisateur de données un Nom ou date etc.. et que cette réponse s'intègre automatiquemant dans une cellule X.
Merci par avance pour votre aide.
@+ Vini.

 

[D.D.]

Bonjour,

Un "Exit sub" juste avant chaque "End If" te permettra d'interrompre ta macro.

 

[VENEZIO]

Merci, super.

 

[D.D.]

Et serait-il possible de demander à l'utilisateur de données un Nom ou date etc.. et que cette réponse s'intègre automatiquemant dans une cellule X.

tu peux mettre un
Range("A1") = InputBox("Entrer data")
Apres le
Sheets("TVA CA12").Select
Pour cela.

 

[VENEZIO]

Merci pour votre aide, c'est KOOL.

 

[D.D.]

You're welcome.