Message a l'ouverture avec choix de fiche automatique

Bonjour,

je voudrais à l'ouverture de mon fichier me demande et ce qu'il s'agit d'une partie partielle ou perte totale, et d'après la réponse allez sur l'onglet base

si 1- perte partielle je veux n'afficher que le décompte sinistre et masqué l'onglet perte total

2- si perte ne total affiche que le décompte perte total et masqué l'onglet perte partielle

Merci d'avance

Bonjour toutes et tous

@abdernino

dommage avec tes shapes (rectangle) même si cela fait un jolie Design

j'pense que le mieux et de créer 2 onglets différents Sinistre et épave (dans 2 onglets différents Base_Sinistre et Base_Epave)

si, j'ai bien compris ta requête

bon en attendant lors de l'ouverture de ton classeur l'userform2 et voir dans le code ThisWorkbook

crdlt,

André

Bonjour toutes et tous

@abdernino

dommage avec tes shapes (rectangle) même si cela fait un jolie Design

j'pense que le mieux et de créer 2 onglets différents Sinistre et épave (dans 2 onglets différents Base_Sinistre et Base_Epave)

si, j'ai bien compris ta requête

bon en attendant lors de l'ouverture de ton classeur l'userform2 et voir dans le code ThisWorkbook

crdlt,

André

Bonjour ,

trés bonne idée pour 2 onglets different , peux tu m'aider?

Re,

@tester

Note: j'ai dupliqué la Base, puis, renommer les 2 onglets et supprimer un tableau sur 2

ci-joint

2 ème note: je te laisses regarder les formules si elles n'ont pas bougées

crdlt,

André

Bonsoir;

Parfait j'ai fait la même chose pour l'onglet-modèle, alors est ce que c'est possible quand je choisis perte partielle je voudrais masquer les onglets epave et la même chose si je choisis Épave masquée les onglets partiele

Re,

@tester

Note: j'ai dupliqué la Base, puis, renommer les 2 onglets et supprimer un tableau sur 2

ci-joint

2 ème note: je te laisses regarder les formules si elles n'ont pas bougées

crdlt,

André

Bonsoir;

Parfait j'ai fait la même chose pour l'onglet-modèle, alors est ce que c'est possible quand je choisis perte partielle je voudrais masquer les onglets epave et la même chose si je choisis Épave masquée les onglets partiele

Re,

voici, ci-joint

Note : 2 points modifiés dans l'usf2

1- la liste lors du clic

2- l'initialisation de l'usf2

Option Explicit

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub Service_Click()
On Error Resume Next
If Service = "Partie partielle" Then
Sheets("Base_Sinistre").Select
Unload UserForm2
ElseIf Service = "Partie totale" Then
Sheets("Base_Epave").Select
Unload UserForm2
ElseIf Service = "Modèle Sinistre" Then
Sheets("Modèle_Sinistre").Select
Unload UserForm2
ElseIf Service = "Modèle Epave" Then
Sheets("Modèle_Epave").Select
Unload UserForm2
End If
End Sub

Private Sub UserForm_Initialize()
 Me.Service.List = Array("Partie partielle", "Partie totale", "Modèle Sinistre", "Modèle Epave")
End Sub

crdlt,

André

RE

mais moi je veux masqué quand je choisi perte partiele je voudrais masqué basa epave et modéle epave et la meme chose quand je choisi perte totale masque les onglets base sinistre et modéle sinistre , ca veut a l'ouverture a voir deux choix

Re,

à mettre dans le bon sens à cette heure-ci mes yeux flanchent

Note : ThisWorkBook on affiche toutes les feuilles l'usf2 se lance , on clic sur 1 des 2 (totale et/ou partielle) et soit l'un ou l'autre, deux onglets sont cachés si, j'ai compris

en cas si erreur, je regarderai

ci-joint

crdlt,

André

re

oui c'est exact mais ca marche pas quand je cique tout les onglets s'affiche

Bonjour ,

Merci beaucoup pour ton aide

Bonjour toutes et tous

voilà, les autres onglets sont cachés

ci-joint

crdlt,

André

Bonjour toutes et tous

voilà, les autres onglets sont cachés

ci-joint

crdlt,

André

Bonjour ,

Mercci beaucoup

Rechercher des sujets similaires à "message ouverture choix fiche automatique"