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

Sélectionner des feuilles en fonctions de dates variables.

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 !

Nonno 94

XLDnaute Occasionnel
Bonsoir le Forum,

nouveau "casse-tête" pour le ....nouveau que je suis,

Je n'arrive pas à créer une macro pour qu' à l'ouverture du classeur, une feuille soit sélectionnée en fonction de LA date qu'elle contient.

Exemple : dans cette feuille, en D1 figure la date du 1 er mars 2011.
Je voudrais que lorsque le classeur sera ouvert à partir du 1 er mars, cette feuille soit sélectionnée et que s'y exécute une macro.
Si une autre feuille contient la date du 4 mars, la macro devra s'y exécuter à partir de cette date.

Est-ce possible et de quelle façon ?

Remerciements pour vos conseils.
Cordialement.

Nonno 94.
 
Re : Sélectionner des feuilles en fonctions de dates variables.

Bonjour

Pas très claire ton explication
Dans un fichier, plusieurs feuilles, dans chaque feuille il faut vérifier la date et si c'est la date du jour, l'afficher et exécuter une macro.
C'est ça ?

Bonjour l'usine

Si pas ça joins un fichier

Bonne journée
 
Re : Sélectionner des feuilles en fonctions de dates variables.

Bonsoir Nonno 94, Banzai64,

En effet il vaudrait mieux voir le fichier.

En son absence, peut-être cette macro dans ThisWorkbook :

Code:
Private Sub Workbook_Open()
Dim F As Object, w As Worksheet
Application.ScreenUpdating = False
Set F = ActiveSheet 'facultatif
For Each w In Worksheets
  If IsDate(w.[D1]) And Date >= w.[D1] Then
    w.Activate
    MaMacro 'nom de la macro
  End If
Next
F.Activate 'facultatif
Application.ScreenUpdating = True
End Sub
Sur chaque feuille la date est supposée être en D1...

A+
 
Re : Sélectionner des feuilles en fonctions de dates variables.

Bonsoir,

remerciements pour la réponse.

"si c'est la date du jour", exécuter une macro dans la feuille (j'ai supposé que pour cela, il faut la sélectionner).
Si cette précision est insuffisante, je t'enverrai un fichier.
 
Re : Sélectionner des feuilles en fonctions de dates variables.

Bonjour le fil, le forum,

Si l'on veut que MaMacro ne soit exécutée qu'une fois sur chaque feuille, il faut créer un repère, par exemple en E1 (la colonne E peut être masquée).

Et puis généralement il est inutile d'activer les feuilles :

Code:
Private Sub Workbook_Open()
Dim w As Worksheet
For Each w In Worksheets
  If IsDate(w.[D1]) And Date >= w.[D1] _
    And w.[E1] <> w.[D1] Then MaMacro w
Next
End Sub

Sub MaMacro(w As Worksheet) 'exemple de macro
With w
  .[E1] = .[D1] 'repère
  MsgBox .Name & " faite"
End With
End Sub
A+
 
- 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

W
Réponses
4
Affichages
3 K
WhatIsVBA
W
M
Réponses
20
Affichages
3 K
manucmoi
M
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…