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

patrocle · 30 Décembre 2015

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 · 30 Décembre 2015

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

Bonsoir,

genre ...

DoubleZero · 30 Décembre 2015

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

laetitia90 · 30 Décembre 2015

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

bonsoir patrocle ,st007 ,DoubleZero

ou encore devrait marcher ???

Code:

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

patrocle · 1 Janvier 2016

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

st007 à dit:
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 · 1 Janvier 2016

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+

Si... · 1 Janvier 2016

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

GerardCalc · 1 Janvier 2016

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

Si... à dit:
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 · 5 Janvier 2016

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

Si... à dit:
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

st007 · 5 Janvier 2016

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

Dans la Private Sub Workbook_Open()

patrocle · 5 Janvier 2016

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

st007 à dit:
Dans la Private Sub Workbook_Open()

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

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

patrocle

XLDnaute Nouveau

st007

XLDnaute Barbatruc

Pièces jointes

DoubleZero

XLDnaute Barbatruc

laetitia90

XLDnaute Barbatruc

patrocle

XLDnaute Nouveau

GerardCalc

XLDnaute Occasionnel

Si...

XLDnaute Barbatruc

GerardCalc

XLDnaute Occasionnel

patrocle

XLDnaute Nouveau

Pièces jointes

st007

XLDnaute Barbatruc

Pièces jointes

patrocle

XLDnaute Nouveau

Discussions similaires