Discussion :

[pomodorina]

Bonjour à tous!

Je suis toute nouvelle sur le forum donc d'avance désolée si je ne suis pas claire (c'est même la première fois que je poste sur un forum )

Voilà mon soucis:

J'ai un planning de vacances avec une feuille par mois (je vous le met directement en annexe car très difficile de vous expliquer mon problème: Vacances.xlsm). Sur chaque feuille, en B94 la date du 1er du mois. En ligne 8 une formule qui reprend la date mentionnée en B94 pour afficher une colonne par jour.

Il arrive que les employés enregistre le fichier sur une feuille qui ne concerne pas le mois en cours. Donc lorsque j'ouvre le fichier, je me retrouve sur la mauvaise feuille, ce qui ne m'arrange pas.

Je vois 2 solutions:
Soit créer un bouton sur chaque feuille qui permettrait d'atteindre directement la feuille sur laquelle il y a la date du jour.
OU
Que lorsque j'ouvre le document, il s'ouvre automatiquement sur la feuille sur laquelle il y a la date du jour.

Après des heures de recherches sur les forums, je viens à vous car je n'ai rien trouvé qui fonctionne avec mon fichier.

Je tiens à préciser que je ne connais pas bien le VBA. Je sais faire des boutons simple en utilisant "Enregistrer une macro", mais dès qu'il faut écrire moi-même le code, c'est la cata.

Quelqu'un peut m'aider?

Grand merci pour votre aide

[a_diard]

par exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub AtteindreDate()
DateDuJour = Date
k = Sheets.Count
For i = 1 To k
Dim cellule As Range
For Each cellule In Sheets(i).Range("E8:AK8")
If cellule = DateDuJour Then
Sheets(i).Select
Cells(8, cellule.Column).Select
End If
Next cellule
Next i
End Sub

a mettre dans

Code :

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

Private Sub Workbook_Open()

pour l'actionner a l'ouverture du fichier



aller dans vba puis this workbook pour ajouter le code

[Valtrase]

Salut,
Une autre solution consisterait à cacher les feuille qui ne sont pas concernées, dans le module1 tu colle ce code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub DisplayMonth()    Dim wsh As Worksheet
    Dim Ele As Variant
 
 
    For Each wsh In ThisWorkbook.Worksheets
        Ele = Split(wsh.Name, " ")(0) ' // On récupère le nom du mois de la feuille
        If UCase(Ele) = UCase(MonthName(Month(Date))) Then ' // On vérifie l'égalité avec le mois en cours
            wsh.Visible = xlSheetVisible ' // Egal au moi en cours on affiche la feuille
        Else
            wsh.Visible = xlSheetVeryHidden ' // Pas égal alors on cache la feuille
        End If
    Next
End Sub

Ensuite il ne reste plus qu'a appeler la sub à l'ouverture du classeur donc dans ThisWorkbook_Open tu colles ce code :

Code :

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

1
2
3
4
5
6
Option Explicit
 
 
Private Sub Workbook_Open()
    Module1.DisplayMonth
End Sub

Voilà bonne prog.

[pomodorina]

Merci pour vos retours!

La solution proposée par a_diard fonctionne à merveille

Génial ce forum!