Fonction recherche

[Summer75]

Bonjour à tous,

Je souhaite intégrer une fonction recherche à un fichier qui fonctionnerait de la manière suivante :
a) Je dispose d'une série de date
b) Une cellule contient la formule =aujourdhui()
c) Lorsque je clique sur cette cellule, excel me renvoie directement à la cellule de la série de date correspondante, c'est à dire à la date du jour (à l'instar de la fonction ctrl+f d'excel).

Merci par avance de votre aide.

Summer

 

[Guiv]

Re : Fonction recherche

Bonjour,
Un exemple (en admettant que tes dates soient en colonne...)

Guiv

 

[Summer75]

Re : Fonction recherche

C'est exactement ça !
Bravo !
Mais comment as-tu fait ?

 

[Guiv]

Re : Fonction recherche

Re,
On utilise l'évènement WorkSheet_SelectionChange :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

[COLOR="SeaGreen"]'pour que l'évenement ne se déclenche que sur la case voulue (que tu peux modifier selon tes besoins) :[/COLOR]
If Target.Address = "$A$1" Then  

[COLOR="SeaGreen"]'boucle sur toute les lignes de la ligne 5 (à modifier selon...) jusqu'à la dernière ligne non vide :[/COLOR]
For ligne = 5 To Range("[COLOR="Red"]C[/COLOR]65536").End(xlUp).Row  [COLOR="SeaGreen"]'(si tes dates sont en colonne C) [/COLOR]

If Range("C" & ligne) = Target.Value Then  [COLOR="SeaGreen"]'si la valeur de la cellule colonne C ligne "ligne" est égale à la valeur de la cellule cible ("Target")[/COLOR]

[COLOR="SeaGreen"]'alors, la cellule est sélectionnée :[/COLOR]
Range("C" & ligne).Select

[COLOR="SeaGreen"]'et la boucle s'arrête puisque la bonne cellule a été trouvée :[/COLOR]
Exit For

End If
Next ligne

End If
End Sub

Bonne soirée
Guiv