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

[patrocle]

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

 

[st007]

Re : placer le curseur a la date du jours avec bouton

Bonsoir,

genre ...

 

[DoubleZero]

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.

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

 

[laetitia90]

Re : placer le curseur a la date du jours avec bouton

bonsoir patrocle ,st007 ,DoubleZero

ou encore devrait marcher ???

Sub Bouton1_Clic()
 Dim c As Range
 Set c = Feuil1.Columns(2).Find(What:=Date, LookAt:=xlWhole)
 c.Offset(, 1).Select
End Sub

 

[patrocle]

Re : placer le curseur a la date du jours avec bouton

Bonsoir,

genre ...

bonsoir,

tous a fais se style, mais j ai télécharger ton fichier mais le bouton ne fonctionne pas
suis sous excel 2013
même les code que tu ma donnée ne fonctionne pas

 

[GerardCalc]

Re : placer le curseur a la date du jours avec bouton

Bonsoir,

Sans macro, avec la fonction LIEN_HYPERTEXTE :

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

A+

 

[Si...]

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 :

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

 

[GerardCalc]

Re : placer le curseur a la date du jours avec bouton

Petite correction pour ta formule (un point de rupture à changer) Gerard

L'habitude de LibreOffice, dans Calc c'est un point au lieu du tiret.

 

[patrocle]

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 :

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

 

[st007]

Re : placer le curseur a la date du jours avec bouton

Dans la Private Sub Workbook_Open()

 

[patrocle]

Re : placer le curseur a la date du jours avec bouton

Dans la Private Sub Workbook_Open()

merci ça fonctionne et j ai meme pu faire avec se code un bouton