Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 activer une feuille selon la valeur d'une cellule

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ozerte
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
O

ozerte

XLDnaute Nouveau
Bonjour,
j'ai créer un tableur de gestion personnel avec 12 feuilles chacunes correspondant à un mois de l'année dans chaque feuilles la cellule X4 compte les semaines de 1 à 5 dans la feuille du mois en cour, elle n'affiche rien sur les autre mois. Je voudrai que lorsque j'ouvre mon classeur la feuille du mois en cour s'ouvre automatiquement si la cellule affiche un chiffre sinon elle ouvre le mois suivant et ainsi de suite. J'ai essayer ce code mais ça na marche pas :
VB: 
Private Sub Workbook_Open()
    If Worksheets("Janvier").Range("X4").Value >= 1 Then Sheets("Janvier").Activate
    If Worksheets("Février").Range("X4").Value >= 1 Then Sheets("Février").Activate
    If Worksheets("Mars").Range("X4").Value >= 1 Then Sheets("Mars").Activate
    If Worksheets("Avril").Range("X4").Value >= 1 Then Sheets("Avril").Activate
    If Worksheets("Mai").Range("X4").Value >= 1 Then Sheets("Mai").Activate
    If Worksheets("Juin").Range("X4").Value >= 1 Then Sheets("Juin").Activate
    If Worksheets("Juillet").Range("X4").Value >= 1 Then Sheets("Juillet").Activate
    If Worksheets("Aout").Range("X4").Value >= 1 Then Sheets("Aout").Activate
    If Worksheets("Septembre").Range("X4").Value >= 1 Then Sheets("Septembre").Activate
    If Worksheets("Octobre").Range("X4").Value >= 1 Then Sheets("Octobre").Activate
    If Worksheets("Novembre").Range("X4").Value >= 1 Then Sheets("Novembre").Activate
    If Worksheets("Décembre").Range("X4").Value >= 1 Then Sheets("Décembre").Activate
    
End Sub
 
Solution
Bonjour,
J'ai essayé de comprendre votre fichier, et votre macro du post #1;
Ci joint un essai.
VB: 
Private Sub Workbook_Open()
    Dim ListeMois, NoMois%, Ajoute%
    ' Liste des mois, le premier est "rien" car l'array commence en 0, Décembre est doublé car on reste sur ce mois si on est en décembre
    ListeMois = Array("Rien", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septmbre", "Octobre", "Novembre", "Décembre", "Décembre")
    NoMois = Month(Now)                                     ' Calcule le numéro du mois courant
    On Error Resume Next
    If Sheets(ListeMois(NoMois)).[X4] >= 1 Then Ajoute = 0 Else Ajoute = 1  ' Ajoute 1 si X4>=1
    If Sheets(ListeMois(NoMois)).[X4] = "" Then Ajoute = 1...
Trier par date Trier par votes
Bonjour Ozerte et bienvenu sur XLD,
Votre truc ne peut pas marcher car jamais on ne se pose la question de quel mois on est.
VB: 
Private Sub Workbook_Open()
    Dim ListeMois, NoMois%, Ajoute%
    ' Liste des mois, le premier est "rien" car l'array commence en 0, Décembre est doublé car on reste sur ce mois si on est en décembre
    ListeMois = Array("Rien", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septmbre", "Octobre", "Novembre", "Décembre", "Décembre")
    NoMois = Month(Now)                                     ' Calcule le numéro du mois courant
    If Sheets(ListeMois(NoMois)).[X4] >= 1 Then Ajoute = 1  ' Ajoute 1 si X4>=1
    Sheets(ListeMois(NoMois + Ajoute)).Activate             ' Active mois courant ou mois prochain suivant valeur de Ajoute
End Sub
Pas testé. Si ça ne colle pas, donner nous un petit fichier test pour fignoler.
 
Vote positif 0 Vote négatif
Re,

1-Pourquoi avoir modifier ma macro ?
Dans Sheets(ListeMois(NoMois + Ajoute)), Ajoute à son importance puisque c'est lui qui décide si on reste sur le mois en cours ou on passe au mois suivant.

2- Décembre X4 est en erreur, c'est pour ça que ça coince.
En PJ on reste sur le mois courant si X4 est en erreur avec : On Error Resume Next
Ensuite reste à comprendre et supprimer l'erreur dans X4, peut être avec un SIERREUR.

ADD : Dans votre feuille Liste, cellule L5 vous avez la formule "=JOURSEM(B5;15)", à quoi correspond le 15 ?
Etes vous sur que ce paramètre peut valoir 15.

JOURSEM, fonction - Support Microsoft

support.microsoft.com
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
sylvanu à dit:
Donc ça marche ? et en Liste L5 vous n'avez pas d'erreur ?
( car sur XL2007 cela donne une erreur, le paramètre ne peut valoir que 1,2 ou 3 )
Donc c'est résolu ?
Cliquez pour agrandir...
oui ça c'est bon, mais votre formule ne fonctionne pas comme je voudrai car si je régle mon pc sur le 1er décembre, sur mon classeur on est toujour dans la derniére semaine de novembre or la ça m'ouvre décembre idem pour d'autre mois qui se chevauche.
 
Vote positif 0 Vote négatif
j'ai rajouter comme ça mais ça ne fonctionne pas :
VB: 
Private Sub Workbook_Open()
    Dim ListeMois, NoMois%, Ajoute%
    ' Liste des mois, le premier est "rien" car l'array commence en 0, Décembre est doublé car on reste sur ce mois si on est en décembre
    ListeMois = Array("Rien", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septmbre", "Octobre", "Novembre", "Décembre", "Décembre")
    NoMois = Month(Now)                                     ' Calcule le numéro du mois courant
    If Sheets(ListeMois(NoMois)).[X4] = "" Then Ajoute = 1  ' Ajoute 1 si X4>=1
    Sheets(ListeMois(NoMois + Ajoute)).Activate             ' Active mois courant ou mois prochain suivant valeur de Ajoute
End Sub
 
Vote positif 0 Vote négatif
Bonjour,
J'ai essayé de comprendre votre fichier, et votre macro du post #1;
Ci joint un essai.
VB: 
Private Sub Workbook_Open()
    Dim ListeMois, NoMois%, Ajoute%
    ' Liste des mois, le premier est "rien" car l'array commence en 0, Décembre est doublé car on reste sur ce mois si on est en décembre
    ListeMois = Array("Rien", "Janvier", "Février", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septmbre", "Octobre", "Novembre", "Décembre", "Décembre")
    NoMois = Month(Now)                                     ' Calcule le numéro du mois courant
    On Error Resume Next
    If Sheets(ListeMois(NoMois)).[X4] >= 1 Then Ajoute = 0 Else Ajoute = 1  ' Ajoute 1 si X4>=1
    If Sheets(ListeMois(NoMois)).[X4] = "" Then Ajoute = 1                  ' Ajoute 1 si X4 est vide
    Sheets(ListeMois(NoMois + Ajoute)).Activate           ' Active mois courant ou mois prochain suivant valeur de Ajoute
End Sub
A l'ouverture fichier on regarde X4 du mois en cours.
Si cette valeur est supérieure ou égale à 1 on reste sur cette feuille.
Si cette valeur est inférieure à 1 ou vide alors on passe au mois suivant.
Sauf en décembre où dans tous les cas on reste sur cette feuille.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Bonjour,
je vient d'essayer le problême si je regle mon pc sur le 1er Février il voit que X4 est vide alors il passe en Mars alors que le 1er Février on est toujour sur la dernière semaine de Janvier, il ne serais pas préférable de ne pas considerer les feuille comme des mois mais comme de simple feuille et créer une variable qui lui dirait d'afficher celle ou X4 affiche quelque chose.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
A
  • Résolu(e)
Microsoft 365 Formule de copie a la suite VBA
Réponses
8
Affichages
464
Alexis84430
A
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
128
Yogean
Y
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
254
sebastien176
S
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
449
sebastien176
S
D
  • Question Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
715
dadu35
D
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
582
GClaire
G
N
  • Résolu(e)
XL 2019 Joindre des données de plusieurs feuilles
Réponses
4
Affichages
650
Nasseuz
N
  • Question Question
Microsoft 365 Afficher récap mois en cours dans un Label
Réponses
12
Affichages
499
AIXELS
C
  • Question Question
Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne
Réponses
0
Affichages
446
Casim
C
G
  • Question Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
893
Staple1600
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
600
loreak
L
L
  • Question Question
XL 2021 Comment utiliser la colonne d'une adresse en Private Sub - svp ?
Réponses
3
Affichages
505
vgendron
A
  • Résolu(e)
XL 2016 Combiner CHOISIR avec RECHERCHEV
2
Réponses
16
Affichages
1 K
amgue
A
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
668
escudo
E
  • Question Question
XL 2016 Excel vba : faire une action sur certaines feuilles d'un classeur
Réponses
7
Affichages
845
Dranreb
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
481
ZiM
Z
S
  • Question Question
XL 2013 enregistrer une feuille excel converti en pdf dans un répertoire selon la valeur d'une cellule
Réponses
5
Affichages
314
Phil69970
M
  • Résolu(e)
XL 2016 Filtre auto VBA
Réponses
3
Affichages
893
MickaeL_D
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…