Sélectionner date du jour

Bonjour à tous,

Novice, malgré les recherches et consulté de nombreux posts traitant ce sujet je n'ai toujours pas réussi à trouver la solution qui me convient.

Je me permet de vous soumettre mon cas précis :

je me suis créé un planning avec en tètes de colonnes mes dates.

Je souhaite trouver un code me permettant lorsque j'active ma macro de sélectionner ma colonne au jour d'aujourd'hui.

Comptant sur vos lumières.

Merci par avance

Ju97

Bonjour Ju, bonjour le forum,

Le code ci-dessous convient quel que soit le format de date :

Sub Macro1()
Dim TD As Variant 'déclare la variable RD (Tableau des Dates)

'définit le tableau TD (cellule éditées de la ligne 1)
TD = Range("A1:" & Cells(1, Application.Columns.Count).End(xlToLeft).Address)
For I = 1 To UBound(TD, 2) 'boucle sur toutes les colonnes I du tableau des dates TD
    'si la valeur ligne 1 colonne I de TD (convertie en entier long) et égale à
    'la date d'aujourd'hui (convertie en entier long), sélectionne la cellule ligne 1 colonne I
    If CLng(TD(1, I)) = CLng(Date) Then Cells(1, I).Select: Exit For
Next I 'prochaine colonne de la boucle
End Sub

Super, génial, au top.

Exactement ce que je voulais.

merci pour ta rapidité