Lancer une recherche sur plusieur feuille.

Question

J'ai fichier excel avec un bouton qui lorsqu'on appuie dessus
recherche le jour actuel (c'est un calendrier). 

 

Option Explicit
Dim LaDate As Date

Sub Today_Click()
LaDate = Date
Dim Cellule As Range
For Each Cellule In Sheets("Avril - Mai - Juin").Range("C6:GD6") 'Plage o&#249; se situe tes dates
If Cellule.Value = LaDate Then
Cellule.Activate
Exit Sub
End If
Next
End Sub

 
voila le code actuel.

 
Pour des questions pratique, j'ai s&#233;parer le fichier en plusieur feuille (3 mois par feuille)
Malheureusement, le code que j'ai actuellement ne marche que sur la feuille appel&#233; avril-mai-juin.

Est-ce que l'un d'entre vous aurait une id&#233;e comment faire pour qu'a partir d'une autre feuille
(en cliquant sur le bouton) cela change automatiquement de feuille et arrive sur le jour actuel.
 
Merci

FFkiller · Answer

Ce que tu peux faire est de colorer ta cellule de fa&#231;on &#224; ce que quand tu reviendras sur la feuille tu verras la cellule

FFkiller

jpleroisse · Answer

si ton code fonctionne (chez moi cela ne marche pas, il me s&#233;lectionne toujours la cellule GD6, enfin &#231;a n'a pas d'importance)
Place un bouton sur chaque feuille, il sont invisible &#224; l'impression et dans l'&#233;venement Click, sur celui de la feuille Avril - Mai - Juin tu mets 

Sub Bouton1_QuandClic()
Sheets("juillet - aout - Sept").Activate 
 Call ToDay_Click
End sub
Tu fais de m&#234;me pour les feuilles suivantes

jpleroisse

Lancer une recherche sur plusieur feuille.

2 réponses

Discussions similaires