Se positionner a aujourd'hui sur excel Résolu/Fermé

Question

Bonjour, 
j'ai créé un planning me permettant de suivre la location ou la maintenance de mon outillage,
mais étant donné que j'ai un long calendrier horizontal je souhaiterais avoir un bouton, me permettant en cliquant dessus de me positionner sur la date d'aujourd'hui avec une surbrillance de cette date.
auriez-vous une solution ?
Cordialement.
Configuration: Windows / Chrome 55.0.2883.87

AnnieAA2 · Answer

Vous pourriez simplement créer une macrocommande.  Est-ce que votre date d'aujourd'hui apparaît seulement en haut de votre classeur? ou si elle apparaît sur chacune de vos lignes de tableau?

ccm81 · Answer

Bonjour
Une petite procedure à affecter à un bouton, un raccourci-clavier, etc ...
Const codate = "A"Sub OK()Dim obj As Object, d As Dated = DateSet obj = Columns(codate).Find(d, , , xlWhole)If Not obj Is Nothing Then obj.SelectEnd Sub
Cdlmnt

ccm81 · Answer

Pour l'exécuter avec un raccourci-clavier
1. tu te mets dans la feuille concernée
2. Alt-F11 pour accéder à l'éditeur vba
3. Coller tout le code
4. retour à la feuille
5. Outils/Macro/macros > tu sélectionnes OK puis Option et tu définis ton raccourci-clavier
Cdlmnt

ccm81 · Answer

tout format date est bon pourvu que tu aies entré une date (vérifies en formatant une cellule au format nombre, tu dois voir un nombre entier 42705 pour le 1° dec 2016)
par exemple
jj/mm/aaaa
jj-mmm-aaaa
jjjj-mmmm-aaaa
etc ...
Cdlmnt

ccm81 · Answer

Un exemple
http://www.cjoint.com/c/GAlpPartCRT
Cdlmnt

ccm81 · Answer

Je ne vois pas bien ce que tu veux dire par "applicable sur une ligne"
Tes dates sont en ligne 2 ?
Si c'est ça 
Const lidate = 2Sub OK()Dim obj As Object, d As Dated = DateSet obj = Rows(lidate).Find(d, , , xlWhole)If Not obj Is Nothing Then obj.SelectEnd Sub
Cdlmnt

noelgigi · Answer

Bonjour, je m'insère dans la discussion car la macro m'interresse, mais si a la place des jours dans les cellules ce sont les semaines de l'année, comment pouvons nous faire la même chose?

D'avance merci,

N.

ccm81 · Answer

Bonjour

Peux tu envoyer un bout de ton fichier anonymisé, mais avec la même structure que l'original,sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/ 
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier 
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint] 
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien 
   en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
   tu fais "Coller"

Cdlmnt

noelgigi · Answer

le voici:

http://www.cjoint.com/c/GEggoKpXePs

et comment le rendre automatique (dès l'ouverture de la feuille)

D'avance merci.

N

ccm81 · Answer

Un essai (la barre se met à jour à l'ouverture du fichier)

 http://www.cjoint.com/c/GEgiq3ILFOM

Cdlmnt

noelgigi · Answer

bonjour, 

cela semble fonctionner, mais peu tu m'expliquer comment marchent les macros de ce fichier?

Je cherche a comprendre comment elles marche pour pouvoir les refaire ailleurs.


D'avance merci,

N.

ccm81 · Answer

Le même avec quelques explications
http://www.cjoint.com/c/GEgnIoesZSM

Ne pas oublier le code dans le module Workbook (appel à la procedure OK du Module 1)Private Sub Workbook_Open()Call OKEnd Sub
Cdlmnt