Liste déroulante, qui affiche 1 page

Le
Sunburn
Bonjour,
Je voudrais savoir comment faire ceci en VBA :
J'ai 3 feuilles cachées ("SA", "SAS", "SARL").
Je voudrais, sur ma page "3", celule "G205", une liste avec les choix
suivants : "SNC", "SARL", "EURL", "SAS", "SASU", "SA", "ASSOCIATION"

Et en fonction du choix effectué sur cette liste, seule la feuille "SA" ou
"SAS" ou "SARL" qui corresponde devienne visible.

liste : SNC & SARL & EURL => feuille "SARL"
liste : SAS & SASU => feuille "SAS"
liste : SA => feuille "SA"
liste : ASSOCIATION => Aucune feuille.

Je vous remercie
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
papou
Le #5391661
Bonjour
En espérant avoir tout bien compris ;-)
Quand tu dis visible, j'imagine que tu veux dire affichée ?
Dans ta feuille (que tu appelles page 3), en cellule G205 :
Données Validation
Autoriser = Liste
Source = "SNC";"SARL";"EURL";"SAS";"SASU";"SA";"ASSOCIATION"
Ensuite tu valides sur OK.
Puis : Clic droit sur l'onglet de ta feuille (Page 3), Visualiser le code et
placer ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$205" And Target.Value = "" Then Exit Sub
On Error Resume Next
Worksheets(Target.Value).Activate
If Err <> 0 Then
Err.clear
On Error Goto 0
Msgbox "La feuille " & Target.Value & " n'a pas été trouvée dans ce
classeur",VbInformation,"Erreur"
End If
End Sub

Cordialement
Pascal

"Sunburn" news:
Bonjour,
Je voudrais savoir comment faire ceci en VBA :
J'ai 3 feuilles cachées ("SA", "SAS", "SARL").
Je voudrais, sur ma page "3", celule "G205", une liste avec les choix
suivants : "SNC", "SARL", "EURL", "SAS", "SASU", "SA", "ASSOCIATION"

Et en fonction du choix effectué sur cette liste, seule la feuille "SA" ou
"SAS" ou "SARL" qui corresponde devienne visible.

liste : SNC & SARL & EURL => feuille "SARL"
liste : SAS & SASU => feuille "SAS"
liste : SA => feuille "SA"
liste : ASSOCIATION => Aucune feuille.

Je vous remercie


Ellimac
Le #5391631
Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$205" Then Exit Sub
If Target = "SA" Then
Sheets("SA").Visible = True
ElseIf Target = "SAS" Or Target = "SASU" Then
Sheets("SAS").Visible = True
Else
Sheets("SARL").Visible = True
End If
End Sub

Camille


Bonjour,
Je voudrais savoir comment faire ceci en VBA :
J'ai 3 feuilles cachées ("SA", "SAS", "SARL").
Je voudrais, sur ma page "3", celule "G205", une liste avec les choix
suivants : "SNC", "SARL", "EURL", "SAS", "SASU", "SA", "ASSOCIATION"

Et en fonction du choix effectué sur cette liste, seule la feuille "SA" ou
"SAS" ou "SARL" qui corresponde devienne visible.

liste : SNC & SARL & EURL => feuille "SARL"
liste : SAS & SASU => feuille "SAS"
liste : SA => feuille "SA"
liste : ASSOCIATION => Aucune feuille.

Je vous remercie


Sunburn
Le #5391611
Bonjour Papou
en fait, ce n'est pas tout à fait ça.
les propriétés de mes 3 feuilles "SA", "SAS" et "SARL" sont visible =
0-xlSheetHidden (modifié à la mano dans les propriété de la page en VBA).
Donc je voudrais, que si ma cellule G205 = "SARL" ou "EURL" ou "SNC", alors,
la feuille "SARL" devienne 1-xlSheetVisible.
Tu vois ce que je veux dire ?

PS : j'ai créé la liste, pas de soucis, c'était juste pour savoir si je
pouvais tout faire en VBA.

Actuellement, celà ne m'affiche aucune page.
yann


Bonjour
En espérant avoir tout bien compris ;-)
Quand tu dis visible, j'imagine que tu veux dire affichée ?
Dans ta feuille (que tu appelles page 3), en cellule G205 :
Données Validation
Autoriser = Liste
Source = "SNC";"SARL";"EURL";"SAS";"SASU";"SA";"ASSOCIATION"
Ensuite tu valides sur OK.
Puis : Clic droit sur l'onglet de ta feuille (Page 3), Visualiser le code et
placer ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$205" And Target.Value = "" Then Exit Sub
On Error Resume Next
Worksheets(Target.Value).Activate
If Err <> 0 Then
Err.clear
On Error Goto 0
Msgbox "La feuille " & Target.Value & " n'a pas été trouvée dans ce
classeur",VbInformation,"Erreur"
End If
End Sub

Cordialement
Pascal

"Sunburn" news:
Bonjour,
Je voudrais savoir comment faire ceci en VBA :
J'ai 3 feuilles cachées ("SA", "SAS", "SARL").
Je voudrais, sur ma page "3", celule "G205", une liste avec les choix
suivants : "SNC", "SARL", "EURL", "SAS", "SASU", "SA", "ASSOCIATION"

Et en fonction du choix effectué sur cette liste, seule la feuille "SA" ou
"SAS" ou "SARL" qui corresponde devienne visible.

liste : SNC & SARL & EURL => feuille "SARL"
liste : SAS & SASU => feuille "SAS"
liste : SA => feuille "SA"
liste : ASSOCIATION => Aucune feuille.

Je vous remercie







Sunburn
Le #5391581
re
merci, ça m'a aidé, mai je l'ai un poil adapté ..., même si y'a ptèt plus
simple, mais jsui pas un pro, :°)
---
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$205" Then Exit Sub
If Target = "SA" Then
Sheets("SA").Visible = True
Sheets("SARL").Visible = False
Sheets("SAS").Visible = False
ElseIf Target = "SAS" Or Target = "SASU" Then
Sheets("SAS").Visible = True
Sheets("SA").Visible = False
Sheets("SARL").Visible = False
ElseIf Target = "SARL" Or Target = "EURL" Or Target = "SNC" Then
Sheets("SARL").Visible = True
Sheets("SAS").Visible = False
Sheets("SA").Visible = False
Else
Sheets("SARL").Visible = False
Sheets("SAS").Visible = False
Sheets("SA").Visible = False
End If
End Sub
-------

Merci.
Yann


Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$205" Then Exit Sub
If Target = "SA" Then
Sheets("SA").Visible = True
ElseIf Target = "SAS" Or Target = "SASU" Then
Sheets("SAS").Visible = True
Else
Sheets("SARL").Visible = True
End If
End Sub

Camille


Bonjour,
Je voudrais savoir comment faire ceci en VBA :
J'ai 3 feuilles cachées ("SA", "SAS", "SARL").
Je voudrais, sur ma page "3", celule "G205", une liste avec les choix
suivants : "SNC", "SARL", "EURL", "SAS", "SASU", "SA", "ASSOCIATION"

Et en fonction du choix effectué sur cette liste, seule la feuille "SA" ou
"SAS" ou "SARL" qui corresponde devienne visible.

liste : SNC & SARL & EURL => feuille "SARL"
liste : SAS & SASU => feuille "SAS"
liste : SA => feuille "SA"
liste : ASSOCIATION => Aucune feuille.

Je vous remercie




papou
Le #5391521
Re
Dans ce cas :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$205" And Target.Value = "" Then Exit Sub
On Error Resume Next
Worksheets(Target.Value).Visible = xlSheetVisible
If Err <> 0 Then
Err.clear
On Error Goto 0
Msgbox "La feuille " & Target.Value & " n'a pas été trouvée dans ce
classeur",VbInformation,"Erreur"
End If
End Sub

Cordialement
Pascal

"Sunburn" news:
Bonjour Papou
en fait, ce n'est pas tout à fait ça.
les propriétés de mes 3 feuilles "SA", "SAS" et "SARL" sont visible > 0-xlSheetHidden (modifié à la mano dans les propriété de la page en VBA).
Donc je voudrais, que si ma cellule G205 = "SARL" ou "EURL" ou "SNC",
alors,
la feuille "SARL" devienne 1-xlSheetVisible.
Tu vois ce que je veux dire ?

PS : j'ai créé la liste, pas de soucis, c'était juste pour savoir si je
pouvais tout faire en VBA.

Actuellement, celà ne m'affiche aucune page.
yann


Bonjour
En espérant avoir tout bien compris ;-)
Quand tu dis visible, j'imagine que tu veux dire affichée ?
Dans ta feuille (que tu appelles page 3), en cellule G205 :
Données Validation
Autoriser = Liste
Source = "SNC";"SARL";"EURL";"SAS";"SASU";"SA";"ASSOCIATION"
Ensuite tu valides sur OK.
Puis : Clic droit sur l'onglet de ta feuille (Page 3), Visualiser le code
et
placer ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$G$205" And Target.Value = "" Then Exit Sub
On Error Resume Next
Worksheets(Target.Value).Activate
If Err <> 0 Then
Err.clear
On Error Goto 0
Msgbox "La feuille " & Target.Value & " n'a pas été trouvée dans ce
classeur",VbInformation,"Erreur"
End If
End Sub

Cordialement
Pascal

"Sunburn" news:
Bonjour,
Je voudrais savoir comment faire ceci en VBA :
J'ai 3 feuilles cachées ("SA", "SAS", "SARL").
Je voudrais, sur ma page "3", celule "G205", une liste avec les choix
suivants : "SNC", "SARL", "EURL", "SAS", "SASU", "SA", "ASSOCIATION"

Et en fonction du choix effectué sur cette liste, seule la feuille "SA"
ou
"SAS" ou "SARL" qui corresponde devienne visible.

liste : SNC & SARL & EURL => feuille "SARL"
liste : SAS & SASU => feuille "SAS"
liste : SA => feuille "SA"
liste : ASSOCIATION => Aucune feuille.

Je vous remercie









Publicité
Poster une réponse
Anonyme