Discussion :

[Invité]

Bonjour, à tous

Dans mon classeur, j'ai 12 onglets intitulés "Janvier 2017"; "Février 2017"...."Décembre 2017"

J'ai réalisé aussi dans une feuille, mon menu général, qui me servira à naviguer dans mon classeur.

Dans la cellule $Q$9 j'affiche le jour actuel, et dans ma cellule $Q$12 le mois et l'année
$Q$9=JOUR(MAINTENANT())
$Q$10=NOMPROPRE(TEXTE(MAINTENANT();"mmmm"))&" "&ANNEE(MAINTENANT())

ce qui me donne: en $Q$9 => 11, et $Q$10 => Février 2017.

J'ai aussi, une liste déroulante, qui me liste tous les mois de l'année, de Janvier 2017 à Décembre 2017.

Je n’arrive pas à ce que cette liste déroulante, m'indique à l'ouverture du classeur, le mois en cours, c'est à dire actuellement "Février 2017"
pour faire simple, que cette liste soit liée à $Q$10.
Cela me permettrai, avec un bouton de contrôle de formulaire, de me rendre directement dans l'onglet du mois affiché.

merci encore de votre réponse

Titi32600

[unparia]

Bonjour
Impossible de te répondre de manière éclairée sans ces deux précisions indispensables :

J'ai aussi, une liste déroulante, qui me liste tous les mois de l'année, de Janvier 2017 à Décembre 2017.

- De quel nature est cette "liste déroulante" ? Controle formulaire ou Contrôle activex ?
- comment et par quoi cette liste déroulante a-t-elle exactement été abondée ?

Par ailleurs :

Cela me permettrai, avec un bouton de contrôle de formulaire, de me rendre directement dans l'onglet du mois affiché.

Pourquoi passer par une liste déroulante et un bouton pour te rendre sur un onglet ?

[Invité]

Salut unparia

- De quel nature est cette "liste déroulante" ? Controle formulaire ou Contrôle activex ?

Cette liste est un contrôle de formulaire.

- comment et par quoi cette liste déroulante a-t-elle exactement été abondée ?

Elle va chercher une liste dans la feuille " Config!$C$6:$C$17".
Cette liste est tous les mois de cette année.

Par ailleurs :

Pourquoi passer par une liste déroulante et un bouton pour te rendre sur un onglet ?[/QUOTE]

C'est vrais tu as raison, pourquoi faire un bouton, alors que l'onglet pourras être obtenu, à la suite du choix de cette liste.

Titi32600

[unparia]

C'est vrais tu as raison, pourquoi faire un bouton, alors que l'onglet pourras être obtenu, à la suite du choix de cette liste.

Ben ... si l'onglet existe, il figure dans la barre des onglets et est ouvrable par un simple clic sur l'onglet que l'on veut ouvrir, non ?

[Invité]

Ben ... si l'onglet existe, il figure dans la barre des onglets et est ouvrable par un simple clic sur l'onglet que l'on veut ouvrir, non ?

Non, les onglets seront cachés, et la navigation dans le classeur, ce faira à partir d'un menu général.

Comme je ne veux pas faire 12 boutons correspondant aux 12 mois, j'utiliserais une liste déroulante.

Titi32600

[unparia]

Non, les onglets seront cachés

Et tu ne trouves pas quelque peu paradoxal de les "cacher" (dans la barre), mais en même temps de les "montrer" (dans ta liste) ?

[Invité]

Et tu ne trouves pas quelque peu paradoxal de les "cacher" (dans la barre), mais en même temps de les "montrer" (dans ta liste) ?

dans un sens tu as raison, mais c'est juste une question de presentation du classeur

[unparia]

mais c'est juste une question de presentation du classeur

Alors choisis au moins ce qui est plus agile et maniable : une liste déroulante choisie parmi les contrôles activex et sa propriété ListFillRange --->> Config!$C$6:$C$17
Au click (une sélection que tu y fais) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ListBox1_Click()
   onglet_choisi = ListBox1.List(ListBox1.ListIndex)
End Sub

Te reste donc à activer l'onglet, dont tu connais maintenant le nom !

[Invité]

Alors choisis au moins ce qui est plus agile et maniable : une liste déroulante choisie parmi les contrôles activex et sa propriété ListFillRange --->> Config!$C$6:$C$17
Au click (une sélection que tu y fais) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub ListBox1_Click()
   onglet_choisi = ListBox1.List(ListBox1.ListIndex)
End Sub

Te reste donc à activer l'onglet, dont tu connais maintenant le nom !

Merci de prendre du temps à ma requête.

mais j'ai pas bien compris dans ta ligne de code, le "onglet_choisi"

[unparia]

mais j'ai pas bien compris dans ta ligne de code, le "onglet_choisi"

Ce n'est qu'une variable ! Appelle-la toto, si tu préfères toto !
Cette variable, de type String, contient tout simplement le nom de l'onglet choisi dans la liste déroulante.
Et c'est donc CET onglet, que tu dois activer.
Mais là, on en est vraiment aux rudiments de chez rudiments ... Ne me dis pas que tu ne sais pas non plus activer un onglet dont tu connais le nom). Sais-tu ce qu'est la collection WorkSheets ? Si non : il est temps de t'y intéresser, puis de t'intéresser à l'objet WorSheet. L'ouverture de ton aide VBA (toujours de mise, surtout, mais pas seulement) si l'on est débutant) à la rubrique Worksheet, objet contient ta réponse.

[Invité]

Ce n'est qu'une variable ! Appelle-la toto, si tu préfères toto !
Cette variable, de type String, contient tout simplement le nom de l'onglet choisi dans la liste déroulante.
Et c'est donc CET onglet, que tu dois activer.
Mais là, on en est vraiment aux rudiments de chez rudiments ... Ne me dis pas que tu ne sais pas non plus activer un onglet dont tu connais le nom). Sais-tu ce qu'est la collection WorkSheets ? Si non : il est temps de t'y intéresser, puis de t'intéresser à l'objet WorSheet. L'ouverture de ton aide VBA (toujours de mise, surtout, mais pas seulement) si l'on est débutant) à la rubrique Worksheet, objet contient ta réponse.

Comme tu le dis si bien, je n'ai que quelques rudiments sur le VBA.

Même si je te remercie de bien vouloir prendre du temps pour m’aider, tu devrais être mois hautin dans tes commentaires.

Merci encore de ton aide.

Titi32600

[unparia]

Comme tu le dis si bien, je n'ai que quelques rudiments sur le VBA.

Même si je te remercie de bien vouloir prendre du temps pour m’aider, tu devrais être mois hautin dans tes commentaires.

Bien.
Nous allons donc conclure un marché :
Je te promets de ne pas te paraître "hautain" dès que tu te montreras "lucide"
D'accord ?
Je verrai, selon ta réponse, si je dois continuer ou aller à la pêche (mon vrai passe-temps) ...

[Invité]

Bien.
Nous allons donc conclure un marché :
Je te promets de ne pas te paraître "hautain" dès que tu te montreras "lucide"
D'accord ?
Je verrai, selon ta réponse, si je dois continuer ou aller à la pêche (mon vrai passe-temps) ...

Salut

Comme indiqué plus haut, tu m'a bien aidé pour résoudre mon souci, et te remercie encore.

C'est pour cela, que je ne vais pas te faire perdre plus de temps que ça.

Je te dirai pas de partir à la pêche (c'est aussi un petit passe temps que j'aime bien, ça repose l’esprit!!), le temps froid ne s'y prête pas trop.

Je te souhaite donc une bonne soirée.

Merci

Titi32600

[geogeo70]

Bonsoir,

Je ne sais si tu as besoin encore d'idées, j'ai essayé de répondre à ton problème. (mais je n'ai pas eu le temps de répondre avant)



J'ai créé un combobox sur la cellule Q13 de même dimension liée avec la liste des mois. Cela fonctionne bien mais pour la mise à jour je te propose d'utiliser la procédure événementielle feuille.activate dans ce cas à chaque ouverture de la feuille le mois sera à jour.

J'ai eu un problème pour le résultat qui se mettait en anglais, j'ai donc utiliser une bidouille en rendant invisible puis visible le combo et l'affichage se met en français...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Activate()
With menu.Shapes("combo").ControlFormat
   .ListIndex = [Q11].Value
End With
 menu.Shapes("combo").Visible = msoFalse
 menu.Shapes("combo").Visible = msoCTrue
 
End Sub

(J'ai nommé la feuille menu et le combobox combo pour plus de lisibilité)

Cordialement
geogeo