Sélection d'une cellule qui change

Bonjour

j'avais dans l'idée de faire un bouton qui permet de ce déplacer a la cellule qui contient la date d'aujourd'hui dans le calendrier.

le seul problème c'est que comme le jour change, la valeur dans le vba doit changer aussi

et malgré mes recherche je n'ai rien trouver qui puisse m'aider.

dans le fichier joint, la cellule B20 indique la colonne du jour actuel dans le calendrier, et la ligne est toujours 4

mais même avec les coordonnée précise, je n'y arrive pas

12classeuraide.xlsx (122.22 Ko)

Bonjour,

à tester,

Sub test()
aMois = Array("", "janvier", "fevrier", "mars", "avril", "mai", "juin", "juillet", "août", "septembre", "octobre", "novembre", "décembre")
sMois = aMois(Month(Date))
colMois = Application.Match(sMois, Range("1:1"), 0)
col = colMois + Day(Date) - 1
Application.Goto Cells(4, col)
End Sub

Salut,

Avec une macro que Yvouille m'avait fait pour un fichier similaire au tien

Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
For i = 9 To 500
    If Cells(4, i) = Date Then ActiveWindow.ScrollColumn = i - 3
Next
End Sub

Cela permet à l'ouverture de l'onglet d'avoir un glissement directement à la colonne de la date.

J'adore cette macro ! surtout en fin d'année

Cordialement,

Leakim

merci pour les 2 réponses

sabV ta solution marche sur le fichier test, le seul problème c'est que entre le fichier que j'ai partagé, et celui sur le quel je travail il y a des modification sur le calendrier qui font le code ne marche pas.

encore une erreur de ma part , mais merci quand même

leakim ton code est génial, en plus on peux gérer le centrage sur la cellule cible suivant les préférence de chacun

encore merci a vous 2

problème résolu

Ravi que cela te convienne !

Je le redis c'est une macro géniale d'Yvouille

Leakim

Rechercher des sujets similaires à "selection qui change"