BOuton qui amene à la date d'aujourd'hui

[rico83600]

Bonjour,

J'ai un calendrier sur un onglet et un autre onglet à coté. Je voudrais que dans ct autre onglet je puisse mettre un bouton qui, lorsque je click dessus, m'amene à la date d'aujourd'hui sur le calendrier.

Comme tout bon débutant, je sais faire un bouton qui m'amene à une cellule, mais pour qu'il soit "dynamique" et m'amene chaque jour à une cellule plus basse (car un jour de plus pour arriver a aujourdhui^^), ca je n'y arrive pas.

Est ce possible ? Merci d'avance

 

[pierrejean]

Re : BOuton qui amene à la date d'aujourd'hui

Bonjour rico83600

Aujourdhui je fais dans la concision :

OUI

Autre question ??

 

[Robert]

Re : BOuton qui amene à la date d'aujourd'hui

Bonjour Rico, PierreJean, bonjour le forum,

Sire, votre concision me la coupe ! Oserais-je dire à PierreJean. Mais je crois qu'il a voulu dire : "Sans exemple en pièce jointe difficile de t'aider davantage"...

 

[roro69]

Re : BOuton qui amene à la date d'aujourd'hui

Bonjour un ptit exemple
A++

 

[pierrejean]

Re : BOuton qui amene à la date d'aujourd'hui

Re

Robert 🙂 🙂 ton neurone est surement entré en contact telepathique avec ce qui reste du mien : C'est exactement ce que je sous-entendais
Quant au Sire il me parait un tantinet excessif

 

[rico83600]

Re : BOuton qui amene à la date d'aujourd'hui

Merci Roro, c'est exactement ce que je cherchais.
Pour les autres... roo quelle mauvaise foi ! 😛
Je n'ai pas mis de fichier en exemple car je crois que ce cas ne nécessitait d'exemple pour moi. On peut facilement s'imaginer un calendrier quel qu'en soit sa disposition et me dire :

Fais une macro comme ca :

Sub JOUR()
Dim dt As Range

F2.Activate
F2.Range("plage").Find(Date).Select

End Sub

Bon, je ne l'ai aps encore testé dans mno fichier mais dans celui de roro ca marche

Par contre j'ai une question supplémentaire : si je ne veux pas qu'il m'amene a la date du jour mais à la date du jour -7 (donc une semaine avant aujourd'hui), Je fais comment ?

Edit : je viens de trouver tout seul comme un grand : Find(Date-7)
Si ca peut aider des gros débutant en VBA comme moi... 🙂

Merci à tous

 

[Robert]

Re : BOuton qui amene à la date d'aujourd'hui

Bonjour le fil, bonjour le forum,

Pour les autres... roo quelle mauvaise foi ! 😛

Hé Rico, moi au lieu de crier à la mauvaise foi, je me prosternerais devant Roro qui a gentiment pris le temps de faire ce que toi tu n'as pas daigné faire...
C'est parce qu'on en a marre d'avoir à répondre à des feignasses qu'on utilise parfois l'humour (parfois même la colère mais heureusement ça ne dure pas)...

 

[rico83600]

Re : BOuton qui amene à la date d'aujourd'hui

Comme je l'ai dit, ca n'était pas une mauvaise intention de ma part ou par fénéantise si je n'ai pas mis de fichier joint, je pensais juste que c'était inutile car tout le monde sait ce qu'est un calendrier.

C'est comme si je demandais comment on fait pour additioner les valeurs d'une cellule A à une cellule B, dans une cellule C. "Tu click sur la cellule C et tu mets "=A+B" . 🙂

Bref, je ne savais pas qu'il était mal vu de ne pas mettre de fichier joint pour une simple question qui se comprend sans fichier. Puis ca ne fait pas de mal au serveur de ne pas l'encombrer lorsque ca n'est pas utile.

Enfin, je suis nouveau sur ce forum et je ne savais pas que la politique en place était celle la, donc vu que ca ne plait pas lorsqu'on ne met pas de fichier, alors j'en mettrais un systématiquement pour éviter de froisser qui que ce soit 🙂.

Encore désolé et merci pour votre aide.

 

[pierrejean]

Re : BOuton qui amene à la date d'aujourd'hui

Re

Auusi simple que soit la solution ,nous mettons un point d'honneur à la controler et ceci n'est possible qu'avec un fichier
Celui-ci est aussi facile à etablir pour le demandeur que pour le contributeur
Tires en la conclusion qui s'impose (en toute bonne foi ! )

 

[rico83600]

Re : BOuton qui amene à la date d'aujourd'hui

Bon allez, finalement j'ai une dernière petite question :
en reprenant le fichier proposé par roro dont la macro me permet d'aller à la date du jour, est il possible d'y ajouter un décalage de X colonne ?

C'est à dire qu'actuellement il m'amene à la colonne et à la ligne du jour J, mais je voudrais aller à la colonne + 15 colonnes (par exemple) tout en gardant la même ligne.

Merci d'avance

 

[roro69]

Re : BOuton qui amene à la date d'aujourd'hui

RE voici
F2.Range("A1:L31").Find(Date).Offset(0, 12).Select
'Offset : 1er chiffre deplacement de ligne, 2ième chiffre déplacement de colone
A++

 

[rico83600]

Re : BOuton qui amene à la date d'aujourd'hui

Grand merci !