Sélection d'une cellule qui change Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
b
blobli
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 12 février 2018
Version d'Excel : 2010

Message par blobli » 15 février 2018, 14:03

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 :oops:
ClasseurAIDE.xlsx
(122.22 Kio) Téléchargé 9 fois
Avatar du membre
i20100
Passionné d'Excel
Passionné d'Excel
Messages : 4'853
Appréciations reçues : 240
Inscrit le : 16 mars 2017
Version d'Excel : 2010 sur PC

Message par i20100 » 15 février 2018, 14:37

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
Merci! de faire un clic sur le bouton résolu pour nous aider à t'aider.
isabelle
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'783
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 15 février 2018, 15:04

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 :wink:

Cordialement,
Leakim
ClasseurAIDE V1.xlsm
macro mise dans le classeur
(122.01 Kio) Téléchargé 4 fois
1 membre du forum aime ce message.
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
b
blobli
Jeune membre
Jeune membre
Messages : 14
Inscrit le : 12 février 2018
Version d'Excel : 2010

Message par blobli » 15 février 2018, 15:22

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 :oops: , 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 :)
Avatar du membre
leakim
Membre impliqué
Membre impliqué
Messages : 1'783
Appréciations reçues : 11
Inscrit le : 11 décembre 2012
Version d'Excel : 2010 - 2016 FR
Téléchargements : Mes applications

Message par leakim » 15 février 2018, 15:29

Ravi que cela te convienne !
Je le redis c'est une macro géniale d'Yvouille :wink:

Leakim
On apprend par des essais/erreurs. L'erreur, serait de ne pas en faire... :noel:
Image
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message