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

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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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
O

ozerte

XLDnaute Nouveau
Merci pour votre réponse mais ça ne fonctionne que en parti, je veut que si la cellule n'affiche rien on reste sur le mois en cour, je joint un fichier
 

Pièces jointes

  • Budget.xlsm
    184.7 KB · Affichages: 6
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
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.

WEEKDAY function - Support Microsoft

support.microsoft.com
 

Pièces jointes

  • Budget.xlsm
    160.3 KB · Affichages: 13
Dernière édition:
Vote positif 0 Vote négatif
O

ozerte

XLDnaute Nouveau
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
O

ozerte

XLDnaute Nouveau
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

sylvanu

XLDnaute Barbatruc
Supporter XLD
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

  • Budget (4).xlsm
    160 KB · Affichages: 4
Vote positif 0 Vote négatif
Solution
O

ozerte

XLDnaute Nouveau
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.

Discussions similaires

A
  • Résolu(e)
Microsoft 365 Formule de copie a la suite VBA
Réponses
8
Affichages
341
Alexis84430
A
S
  • Résolu(e)
Microsoft 365 Ecrasement d'une ligne si déjà existante
Réponses
2
Affichages
156
sebastien176
S
  • 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
358
sebastien176
S
N
  • Résolu(e)
XL 2019 Joindre des données de plusieurs feuilles
Réponses
4
Affichages
560
Nasseuz
N
D
  • Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
597
dadu35
D
  • Question
Microsoft 365 Afficher récap mois en cours dans un Label
Réponses
12
Affichages
388
AIXELS
C
  • Question
Microsoft 365 Créer dossiers, sous-dossiers et enregistrer sous OneDrive en ligne
Réponses
0
Affichages
372
Casim
C
A
  • Résolu(e)
XL 2016 Combiner CHOISIR avec RECHERCHEV
2
Réponses
16
Affichages
899
amgue
A
G
  • Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
457
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…