Se positionner a aujourd'hui sur excel [Résolu]

zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 11 janv. 2017 à 15:19 - Dernière réponse : ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention
- 6 mai 2017 à 15:36
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.

Afficher la suite 
53Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention

17 réponses

Répondre au sujet
AnnieAA2 2 Messages postés mercredi 11 janvier 2017Date d'inscription 11 janvier 2017 Dernière intervention - 11 janv. 2017 à 15:23
0
Utile
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?
Commenter la réponse de AnnieAA2
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - 11 janv. 2017 à 15:25
0
Utile
1
Bonjour

Une petite procedure à affecter à un bouton, un raccourci-clavier, etc ...

Const codate = "A"

Sub OK()
Dim obj As Object, d As Date
d = Date
Set obj = Columns(codate).Find(d, , , xlWhole)
If Not obj Is Nothing Then obj.Select
End Sub

Cdlmnt
zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 11 janv. 2017 à 15:33
je vous remercie mais comment l'applique t-on ?
Commenter la réponse de ccm81
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - 11 janv. 2017 à 15:38
0
Utile
1
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
zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 11 janv. 2017 à 15:41
d'accord j'ai compris et j'avais aussi une autre petite question
pour ma série de date que j'ai sur toute la longueur de ma feuille
comment doit être leurs format et comment doivent-elles se présenter ?
Commenter la réponse de ccm81
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - 11 janv. 2017 à 15:51
0
Utile
1
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
zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 11 janv. 2017 à 16:08
d'accord merci cependant le code que vous m'avez donnée ne fonctionne pas
Commenter la réponse de ccm81
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - 11 janv. 2017 à 16:41
0
Utile
1
Un exemple
http://www.cjoint.com/c/GAlpPartCRT

Cdlmnt
zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 12 janv. 2017 à 08:02
Super merci bien ça fonctionne.
juste une petite et dernière question comment faire pour que ce soit applicable sur une ligne par exemple la 2 au lieu d'une colonne (actuellement A) ?
Commenter la réponse de ccm81
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - Modifié par ccm81 le 12/01/2017 à 14:21
0
Utile
1
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 = 2

Sub OK()
Dim obj As Object, d As Date
d = Date
Set obj = Rows(lidate).Find(d, , , xlWhole)
If Not obj Is Nothing Then obj.Select
End Sub

Cdlmnt
zer4 53 Messages postés lundi 31 octobre 2011Date d'inscription 12 décembre 2017 Dernière intervention - 12 janv. 2017 à 14:22
C'est bon c'est résolu.
j'ai juste changé columns par Row pour appliquer votre code a une rangée(ligne)
au lieu d'une colonne.

En tout cas je vous remercie Beaucoup !
Commenter la réponse de ccm81
0
Utile
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.
Commenter la réponse de noelgigi
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - 5 mai 2017 à 21:27
0
Utile
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 http://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
Commenter la réponse de ccm81
0
Utile
le voici:

http://www.cjoint.com/c/GEggoKpXePs

et comment le rendre automatique (dès l'ouverture de la feuille)

D'avance merci.

N
Commenter la réponse de noelgigi
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - 6 mai 2017 à 10:17
0
Utile
Un essai (la barre se met à jour à l'ouverture du fichier)

http://www.cjoint.com/c/GEgiq3ILFOM

Cdlmnt
Commenter la réponse de ccm81
0
Utile
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.
Commenter la réponse de noelgigi
ccm81 8204 Messages postés lundi 18 octobre 2010Date d'inscription 12 décembre 2017 Dernière intervention - 6 mai 2017 à 15:36
0
Utile
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 OK
End Sub

Cdlmnt
Commenter la réponse de ccm81