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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
papou
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" a écrit dans le message de 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
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" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: E1E656C1-853A-421A-A17D-1CC67504DCA1@microsoft.com...
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.
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" a écrit dans le message de 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
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
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.
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
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" a écrit dans le message de 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
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" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: E1E656C1-853A-421A-A17D-1CC67504DCA1@microsoft.com...
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.
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" a écrit dans le message de 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
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
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.
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
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" a écrit dans le message de 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" a écrit dans le message de 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
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" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: 8C00145C-F0AF-41E9-96F7-6E1BDC4BC21C@microsoft.com...
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" <Sunburn@discussions.microsoft.com> a écrit dans le message de
news: E1E656C1-853A-421A-A17D-1CC67504DCA1@microsoft.com...
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.
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" a écrit dans le message de 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" a écrit dans le message de 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.
