Selection de cellule en fonction de la date

[xyvyos]

Bonjour,

J'aimerai que lorsque mon fichier excel s'ouvre, la cellule correspondant au mois en cours soit automatiquement selectionnée. Car c'est un calendrier sur 4 ans comportant seulement les mois. (chaque colonnes correspond à un mois).

Est ce que vous auriez une fonction ou une macro permettant cela svp ?

Merci

 

[fredl]

Re : Selection de cellule en fonction de la date

Bonjour,
peux tu nous poster ton fichier?
cela fera gagner du temps à tout le monde (a toi y compris.)
Cdt
Frédéric

 

[xyvyos]

Re : Selection de cellule en fonction de la date

Ah oui autant pour moi j'ai oublié ...

Merci

 

[fredl]

Re : Selection de cellule en fonction de la date

Bonjour,
a mettre dans this workbook
Cdt
Frédéric


Private Sub Workbook_Open()


Range("Tableau1[[#Headers],[01/01/2015]]").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Find(What:="01/" & Month(Now) & "/" & Year(Now), After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
End Sub

 

[job75]

Re : Selection de cellule en fonction de la date

Bonsoir xyvyos, fredl,

Private Sub Workbook_Open()
On Error Resume Next 'si la date n'existe pas
Application.Goto Evaluate("Tableau1").Rows(0) _
  .Find(CStr(DateSerial(Year(Now), Month(Now), 1)), , xlFormulas), True
End Sub

L'argument True cadre le mois.

Bonne fin de soirée.

A+

 

[job75]

Re : Selection de cellule en fonction de la date

Re,

On peut aussi utiliser :

Private Sub Workbook_Open()
On Error Resume Next 'si la date n'existe pas
Application.Goto Feuil1.ListObjects(1).HeaderRowRange _
  .Find(CStr(DateSerial(Year(Now), Month(Now), 1)), , xlFormulas), True
End Sub

Plus besoin de modifier le code si vous modifiez le nom du tableau.

Remarque pour fredl sur son code : de janvier à septembre Month renvoie un seul chiffre, alors qu'il en faut 2...

Bonne nuit.

 

[xyvyos]

Re : Selection de cellule en fonction de la date

Bonjour à tous,

je n'arrive pas à faire fonctionner ton code job75 ... Il faut bien que je le mette tel qu'elle dans "this worbook" ?

Merci beaucoup pour vos réponses

 

[gosselien]

Re : Selection de cellule en fonction de la date

Bonjour le forum,

oui le code fonctionne , il est à placer dans thisworkbook et le curseur se placera en N6 (colonne du mois en cours) de la feuille "planning"

 

[xyvyos]

Re : Selection de cellule en fonction de la date

Re

C'est ce que je viens de faire et ça ne marche toujours pas. Lorsque j'ouvre mon fichier la cellule N6 n'est pas selectionné ...
On parle bien du deuxième code de job75 ?

Merci

 

[gosselien]

Re : Selection de cellule en fonction de la date

Oui 2e code et sur ton fichier que j'ai ouvert et dans lequel j'ai mis ce 2e code (excellent comme toujours)

 

[xyvyos]

Re : Selection de cellule en fonction de la date

Re,

Je ne comprends vraiment pas car ça ne marche pas


merci

 

[gosselien]

Re : Selection de cellule en fonction de la date

Ton fichier est bien identique à ce que tu as mise en post #3 ?

 

[xyvyos]

Re : Selection de cellule en fonction de la date

J'ai fait quelques modif' mais rien qui devrait influencer le résultat je pense ...

 

[gosselien]

Re : Selection de cellule en fonction de la date

re,

ce n'est pas le code de JOB75 à l'ouverture !!!

Private Sub Workbook_Open()
On Error Resume Next 'si la date n'existe pas
Application.Goto Feuil1.ListObjects(1).HeaderRowRange _
.Find(CStr(DateSerial(Year(Now), Month(Now), 1)), , xlFormulas), True
End Sub

 

[xyvyos]

Re : Selection de cellule en fonction de la date

Oui je sais ! mais c'est parce que celui de job75 ne fonctionne pas !
Donc j'en ai mis un autre