Ouverture page en fonction d'une valeur

[karinette]

Re-bonjour à tous,
Serait il possible d'ouvrir une feuille en fonction de la valeur d'une cellule ? 😕
Exemple :
Si ma cellule B3 se nomme LUNDI, j'ouvre la page LUNDI par macro ...
Si elle se nomme JANVIER, elle m'ouvre la page JANVIER ...
Sachant que suivant les valeurs qui seront saisies, je créerais les page correspondantes ....
Merci ...

 

[gwenlorin]

Re : Ouverture page en fonction d'une valeur

Re,

Oui c'est possible.

Sheets(ActiveSheet.[B3].Value).Activate

où B3 est la cellule qui contient le nom de la feuille à activer

Est-ce que tes différentes demandes concerne le même projet ?
Si oui, il serait bon de nous donner toutes les infos pour qu'on puisse t'aider au mieux sur le projet dans sa globalité

A+

 

[Robert]

Re : Ouverture page en fonction d'une valeur

Bonjour Karinette, bonjour le forum,

Je te propose la macro événementielle Change à placer dans le composant WorkSheet où tu désires qu'il fonctionne (Feuil1(Feuil1) par exemple) :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub 'si le changement a lieu ailleurs qu'en B3, sort de la procédure
On Error GoTo fin 'gestion des erreurs (si l'onglet n'existe pas) via l'étiquette "fin"
Sheets(Range("B3").Value).Activate 'active l'onglet renseigné en B3
fin: 'étiquette
End Sub

Édition :

Bonjour Gwenlorin on s'est croisé...

 

[karinette]

Re : Ouverture page en fonction d'une valeur

🙂
Merci à vous, je vais tester ça ....