Signaler

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

Posez votre question zer4 41Messages postés lundi 31 octobre 2011Date d'inscription 22 février 2017 Dernière intervention - Dernière réponse le 12 janv. 2017 à 14:22 par zer4
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 
Utile
+0
moins plus
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?
Donnez votre avis
Utile
+0
moins plus
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 41Messages postés lundi 31 octobre 2011Date d'inscription 22 février 2017 Dernière intervention - 11 janv. 2017 à 15:33
je vous remercie mais comment l'applique t-on ?
Répondre
Donnez votre avis
Utile
+0
moins plus
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 41Messages postés lundi 31 octobre 2011Date d'inscription 22 février 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 ?
Répondre
Donnez votre avis
Utile
+0
moins plus
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 41Messages postés lundi 31 octobre 2011Date d'inscription 22 février 2017 Dernière intervention - 11 janv. 2017 à 16:08
d'accord merci cependant le code que vous m'avez donnée ne fonctionne pas
Répondre
Donnez votre avis
Utile
+0
moins plus
Un exemple
http://www.cjoint.com/c/GAlpPartCRT

Cdlmnt
zer4 41Messages postés lundi 31 octobre 2011Date d'inscription 22 février 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) ?
Répondre
Donnez votre avis
Utile
+0
moins plus
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 41Messages postés lundi 31 octobre 2011Date d'inscription 22 février 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 !
Répondre
Donnez votre avis

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !