Macro pour affichage du mois en cours

[karakoman1]

Bonjour le forum,
J'aurais encore besoin d'un spécialiste en VBA.
Je m'explique.
Dans mon fichier, j'ai une partie figée par la fonction "figer les volets". Après, j'ai une série de colonnes dans lesquelles figurent des dates en ligne 4. J'aimerais que par une macro, je puisse en cliquant sur un bouton, pouvoir avoir la colonne contenant la date du mois en cours juste après la partie figée plutot que chaque fois devoir faire défiler les colonnes pour arriver à voir cette colonne à l'écran
Un petit fichier joint vaut mieux qu'un grand roman.
Merci d'avance

 

[JCGL]

Re : Macro pour affichage du mois en cours

Bonjour à tous,

Pour ce mois :

Sub Aller_au_Mois()
  Application.Goto ThisWorkbook.Sheets("Feuil1").Range("BQ4;DU4").Find(CDate("2013,10,1"))
End Sub

A+ à tous

 

[karakoman1]

Re : Macro pour affichage du mois en cours

Bonjour JCGL, le forum
Merci pour ta réponse qui dans un premier temps ne marchait pas , mais c'était juste le ";" au lieu de ":" dans la sélection "Range".
Maintenant cela fonctionne très bien.
Par contre, serait-il possible de changer le fait que tout les mois, je doive aller changer la date dans la macro pour avoir le mois en cours?

 

[Pierrot93]

Re : Macro pour affichage du mois en cours

Bonjour Karakoman, Jean-Claude🙂

pour le premier jour du mois en cours :

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

bonne journée
@+

 

[Robert]

Re : Macro pour affichage du mois en cours

Bonjour le fil, bonjour le forum,

En pièce jointe ton fichier modifié avec un bouton en C4. Le code du bouton :

Private Sub CommandButton1_Click()
Dim d As Date 'déclare la variable d (Date)
Dim r As Range 'déclare la variable r (Recherche)

ActiveCell.Select 'enlève le focus au bouton
d = CDate("1/" & Month(Date) & "/" & Year(Date)) 'définit la date d
Set r = Range("BQ4:DU4").Find(d, , xlFormulas, xlWhole) 'définit la recherhce r
'si il existe au moins une occurrence trouvée, sélectionne la première occurrence, positionne la colonne à gauche
If Not r Is Nothing Then r.Select: ActiveWindow.ScrollColumn = r.Column
End Sub

Le fichier :

 

[karakoman1]

Re : Macro pour affichage du mois en cours

Bonjour Robert
Je ne comprend pas trop bien la manière de le reproduire sur mon bon fichier, j'essaie de le recopier dans ma feuille originale, mais je n'arrive pas à l'inserér à un bouton "controle de formulaire"
Premiere fois que je vois une commande "CommandButton1_Click"
Peux-tu m'aider?

 

[Robert]

Re : Macro pour affichage du mois en cours

Bonjour le fil, bonjour le forum,

J'ai fait ça sous Excel 2010 mais je pense que ça devrait être assez similaire avec la version 2007...
Menu Développeur / Bouton Insérer / Rectangle correspondant à un CommanButton des outils Contrôle ActiveX. La procédure par défaut de ce type de bouton est : CommanButtonX_Click ou X correspond au numéro du bouton...

 

[karakoman1]

Re : Macro pour affichage du mois en cours

Merci Robert
Comme d'habitude... ça marche nickel!!
Merci aussi à Jean-Claude et Pierrot pour leur dévouement. Ca fait plaisir!!
A+