Affichage direct sur la cellule de la date d'aujourd'hui

Bonjour,

Je n'ai pas réussi à trouver les formules sur le net que je voulais exactement.

Ce que j'essaye de faire, c'est dès à l'ouverture du fichier, la case ou la ligne s'affiche directement en fonction de la date d'aujourd'hui. C'est à dire j'ai 391 lignes, je n'ai pas envie de descendre à chaque fois pour trouver la ligne de la date correspondant.

Merci d'avance

Stéphanie

Bonjour et

Tu cherches une formule ou un code VBA !?

Avec une formule c'est impossible, avec du code OK

Bonjour BurnoM45 et Stéphanie,

Essayez peut-être comme ceci où dans l'exemple les dates sont en colonne A

Private Sub Workbook_Open()
Feuil1.[a:a].Find(Date).Select
End Sub

Si les formules sont impossible, va pour le code VGA !

Force Rouge, pour être sur c'est bien dans ThisWorkbook qu'il faut mettre ton code ?

hum...C'est dépassé le VGA! Minimum c'est hdmi de nos jours...

Oui c'est bien dans thisworkbook

Force rouge a écrit :

hum...C'est dépassé le VGA! Minimum c'est hdmi de nos jours...

Oui c'est bien dans thisworkbook

Oh oui pardon ! LOL

Ça me met erreur d'exécution'91': Variable objet ou variable de bloc With non définie.

Pour des détails : la feuille concernant c'est Feuil7 nommé par 'Almanax' et les dates sont en colonne B. Pour les dates, j'ai utilisé ce formule : =DATE(ANNEE(AUJOURDHUI());10;30).

Private Sub Workbook_Open()
Feuil7.[b:b].Find(Date).Select
End Sub

J'espère de ne pas avoir fait d'erreur.

Bonjour,

.find sur les dates est assez susceptible et fait souvent la tête selon comment elles sont inscrites et leur format.

Il faudrait que tu déposes ton fichier avec qq dates.

eric

Je vous met ci-joint le fichier concerné en espérant que ça vous éclaire davantage !

Salut et Merci eriic d'anticiper les problème

Tu m'étonnes que ça ne fonctionnait pas

Ah,comment on peut faire alors ?

Bonsoir,

Bonsoir Eriic, Force Rouge

Comme je n'arrive pas à calculer l'équivalent VBA de la fonction Equiv(), j'inscris en dur la formule dans une cellule, puis nettoie cette cellule, après la sélection.

Peut-être?

Private Sub Workbook_Open()
With Feuil8
    .Range("N1").FormulaR1C1 = "=MATCH(TODAY(),C2,0)"
    Application.Goto .Cells(.Range("N1").Value, 1), True
    .Range("N1").Clear
End With
End Sub

Bonne soirée

Bonsoir

Bonsoir Eriic, Force Rouge et cousinhub

Ma p'tite contribution

Bonjour cousinhub, banzaï...Pour ma part je fais une

Glypex a écrit :

Ah,comment on peut faire alors ?

Ben on rentre des dates dans un format " Normal" ou on fait comme les 5 étoiles ils disent...

Re-,

Merci Banzaï, j'en avais oublié les bases.....

Code modifié :

Private Sub Workbook_Open()
With Feuil8
    Application.Goto .Cells(Application.Match(CLng(Date), .Columns(2), 0), 1), True
End With
End Sub

PS : @ Banzaï, chez moi, ton code bug... (peut-être le Csng?)

Merci Banzaï,

le code marche nickel !

C'est normal que le fichier me demande toujours d'enregistrer le fichier même si on n'a fait aucun modification ?

Re-,

@ Banzaï, annule ma dernière, le code devait agir sur un autre fichier ouvert sur mon PC

@ Glypex, de rien.....

(et je ne parle pas que de ma contribution, mais de tous ceux qui ont tenté de t'aider....)

Bonne nuit

Merci à tout le monde !