Discussion :

[jpma75]

Bonjour,

Pour déterminer le n° de colonne correspondant à la date du jour de mon tableau, j'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Num_Col_Today = Application.Match(CLng(VBA.Date), Range("$C$4:$NG$4"), 0) + 1

Comment déterminer le n° de colonne correspondant au premier jour du mois en cours ?

J'ai essayé d'adapter ma formule avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DateSerial(Year(Date), Month(Date), 1)

soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Num_Col_1er_Jour = Application.Match(DateSerial(Year(Date), Month(Date), 1), Range("$C$4:$NG$4"), 0) + 1

... mais c'est manifestement une (très) mauvaise piste.

En vous remerciant par avance pour vos lumières,
Cdt

[Jean-Philippe André]

Bonjour,

concrètement, que souhaites-tu obtenir/faire ?

Tu peux faire une fonction qui te retourne une valeur numérique, une plage de cellule...

Que faire si la date du 1er de ton mois n'existe pas ?

[jpma75]

Bonjour,

Num_Col_Today me renvoie le n° de la colonne de la date du jour (sachant que les dates se trouvent dans la plage "$C$4:$NG$4").

Ce nombre me permet de caler le tableau à cette date (à l'ouverture du classeur) via un Scroll.Columns et accessoirement de masquer les colonnes correspondant aux dates antérieures.

A présent, je souhaite récupérer le n° de colonne du 1er jour du mois en cours pour caler le tableau sur cette date et créer un PDF pour ledit mois en cours.

En espérant avoir été plus clair,
Cdt

[Franc]

soit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Num_Col_1er_Jour = Application.Match(DateSerial(Year(Date), Month(Date), 1), Range("$C$4:$NG$4"), 0) + 1

... mais c'est manifestement une (très) mauvaise piste.

En vous remerciant par avance pour vos lumières,
Cdt

Salut, tu y étais presque, il manquait Clng placé au bon endroit:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Num_Col_1er_Jour = Application.Match(CLng(DateSerial(Year(Date), Month(Date), 1)), Range("$C$4:$NG$4"), 0) + 1

[jpma75]

Bonsoir Franc,

Merci beaucoup !! C'est parfait.

Après une petite recherche, je viens de comprendre la nécessité de ce CLng.

Cdt