XL 2016 Dérouler un calendrier

[Scorpio]

Salut à tous, membre du forum,
J'aimerais par ce message, vous demander un petit peux d'aide si possible.

J'ai un calendrier dans la feuille "Données" et dans un formulaire, j'ai des boutons correspondant à chaque mois.
Lorsque je clic par ex, sur mars 2016, le calendrier se déplace bien, mais, j'aimerais retrouver le 1er du mois juste à côté de la colonne "B" et pour les autres mois de même
Merci à tous
A+++++++

 

[Roland_M]

Bonjour,

'exemple pour le mois de Aout2016
Private Sub Aout2016_Click()
' remplacer ceci
'ActiveWindow.SmallScroll ToRight:=189: Range("HH1").Select
' par ceci
ActiveWindow.ScrollColumn = Range("HH1").Column: Range("HH1").Select
End Sub

 

[Scorpio]

Bonjour Roland_M
Super, c'est gentil de votre part, j'ai compris et c'a marche bien
Que de plus, c'est super
Un grand merci et très bonne journée
A++++++