XL 2013 placer le curseur a la date du jours avec bouton

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

patrocle

XLDnaute Nouveau
bonjours
j 'ai un tableau de saisi avec les dates du l année en cours de janvier a décembre en colonne b et j aimerais a l aide d un bouton placer automatiquement le curseur sur la date du jours pour saisir des données

je ne trouve pas la bonne formule
si vous pouviez m aider
merci
 
Re : placer le curseur a la date du jours avec bouton

Bonjour à toutes et à tous,

Bienvenue sur XLD, patrocle.

Une autre suggestion, avec le présent code, logé dans un module standard.

Code:
Option Explicit
Sub Date_atteindre()
    Dim i As Long
    For i = Cells(Rows.Count, "b").End(xlUp).Row To 1 Step -1
        If Range("b" & i) = Date Then
            Application.Goto Range("b" & i), True
            Selection.Offset(, 1).Select
        End If
    Next i
End Sub

A bientôt 🙂
 
Re : placer le curseur a la date du jours avec bouton

Bonsoir,

Sans macro, avec la fonction LIEN_HYPERTEXTE :

Code:
=LIEN.HYPERTEXTE("#Feuil1!B"&EQUIV(AUJOURDHUI();$B$1:$B$366;0);"Aller à aujourd'hui")

A+
 
Dernière modification par un modérateur:
Re : placer le curseur a la date du jours avec bouton

Salut

Pour le plaisir de saluer My Dear Friend(e)s 😀😀 et 😀😀😀😀

Macro (extravagante*) associée au bouton pour aller à cellule immédiatement à droite :
Code:
Sub CeJour(): Application.Goto [B:B].Find(Date, , , 1)(1, 2): End Sub
Petite correction pour ta formule (un point de rupture à changer) Gerard 😉
=LIEN_HYPERTEXTE("#Feuil1!B"&EQUIV(AUJOURDHUI();B:B;0);"ce jour")

*placer les retours à la ligne qui s'imposent pour une écriture classique
 
Re : placer le curseur a la date du jours avec bouton

Salut

Pour le plaisir de saluer My Dear Friend(e)s 😀😀 et 😀😀😀😀

Macro (extravagante*) associée au bouton pour aller à cellule immédiatement à droite :
Code:
Sub CeJour(): Application.Goto [B:B].Find(Date, , , 1)(1, 2): End Sub
Petite correction pour ta formule (un point de rupture à changer) Gerard 😉


*placer les retours à la ligne qui s'imposent pour une écriture classique

désoler mais je n y arrive toujours pas je dois faire une erreur
je laisse mon fichier alléger si quelqu'un peut regarde
merci
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
3
Affichages
109
Réponses
6
Affichages
432
Retour