Bonjour à toutes et à tous,
et bonne année!
je débute seulement en VBA... et ai pu apprendre bcp par ce forum donc je me tourne vers vous pour de l'aide si vous me le permettez.
Voilà mon petit soucis sur VBA:
Je travaille sur un classeur dont j'ai masqué la plupart des feuilles. Ces feuilles masquées ont pour nom des chiffres qui ne sont ni classés (dé/croissant) ni respectant une logique simple (par ex la position de la feuille dans le classeur).
Je voudrais, si vous voulez bien m'aider, faire la chose suivante:
Lorsque je clic sur une cellule, prendre sa valeur
Démasquer (afficher) la feuille dont le nom est en fait la valeur de la cellule selectionnée
Enfin me rendre sur cette feuille fraichement affichée
Ex:
Je clic sur C4 dont la valeur est "11"
Alors je voudrais que ma macro s'actionne à mon clic, m'affiche (par opposition à masquer) la feuille nommée "11" puis me dirige vers la feuille de calcul nommée "11"
Mille mercis d'avance pour l'attention que vous porterez mon problème
(mon code pour l'instant ressemble à ceci et ne fonctionne pas:
Private Sub Workbook_Selection(ByVal Target As Range)
xlSheet.Name = Target.Value
xlSheet.Name.Visible = True
xlSheet.Name.Select
End Sub)
et bonne année!
je débute seulement en VBA... et ai pu apprendre bcp par ce forum donc je me tourne vers vous pour de l'aide si vous me le permettez.
Voilà mon petit soucis sur VBA:
Je travaille sur un classeur dont j'ai masqué la plupart des feuilles. Ces feuilles masquées ont pour nom des chiffres qui ne sont ni classés (dé/croissant) ni respectant une logique simple (par ex la position de la feuille dans le classeur).
Je voudrais, si vous voulez bien m'aider, faire la chose suivante:
Lorsque je clic sur une cellule, prendre sa valeur
Démasquer (afficher) la feuille dont le nom est en fait la valeur de la cellule selectionnée
Enfin me rendre sur cette feuille fraichement affichée
Ex:
Je clic sur C4 dont la valeur est "11"
Alors je voudrais que ma macro s'actionne à mon clic, m'affiche (par opposition à masquer) la feuille nommée "11" puis me dirige vers la feuille de calcul nommée "11"
Mille mercis d'avance pour l'attention que vous porterez mon problème
(mon code pour l'instant ressemble à ceci et ne fonctionne pas:
Private Sub Workbook_Selection(ByVal Target As Range)
xlSheet.Name = Target.Value
xlSheet.Name.Visible = True
xlSheet.Name.Select
End Sub)