Aide pour macro

[Paulle]

Bonjour,

En glanant des lignes de vba, j’ai réussi la macro « Dernière_colonne ». Le code n’est certainement pas le plus adapté.

Je voudrai une macro semblable à la macro « Dernière_colonne », qui sélectionnerai la cellule à la date d’aujourd’hui.

Merci.

 

[pierrejean]

Bonjour Paulle

Voila

 

[MP59]

Bonjour Paulle et Pierrejean,
une autre façon d'arriver au résultat.

 

[Jacky67]

Bonjour à tous

Sub Dreniere_colonne()
Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column).Select
End Sub

Sub LeJour()
Application.Goto ([2:2].Find(Date)), True
End Sub

 

[Paulle]

Merci pierrejean, MP59 et Jacky67.
MP59, la macro "Ce jour" présente une erreur "1004"

 

[MP59]

??
Pas dans mon fichier.
Peut-être à tu fais un copier coller et que le bouton n'est pas relié à la macro.

 

[Paulle]

Non je n'ai pas fait de copier coller.
J'ai enregistré ton fichier sous un autre nom et joins.

 

[Jacky67]

Non je n'ai pas fait de copier coller.
J'ai enregistré ton fichier sous un autre nom et joins.

RE..
Essaye

Sub Cejour()
    [2:2].Find(Date).Select
End Sub

 

[Paulle]

Ca fonctionne.
Merci Jacky.