XL 2010 Résolu par la communauté bienveillante : atteindre la première cellule = à aujourd'hui

Usine à gaz · 2 Janvier 2017

Bonsoir à toutes et à tous,

Nouveau souci dans mon fichier.
Me re-voilou faisant appel à votre bienveillance

Le souci
je dois appeler des clients à des dates programmées (col Y)
Mon besoin est d'atteindre avec un code en Module Standard :
1 - la première cellule égale à aujourd'hui

J'ai bien sûr fait des recherches sur le forum et chez google.
Je n'ai pas trouvé.
J'ai tenté (find) mais je n'y arrive pas.

Dans l'espoir que vous pourrez m'aider, je joins un fichier test.
Je vous remercie déjà de m'avoir lu.
Amicalement,
Lionel,

Lone-wolf · 2 Janvier 2017

Bonjour Lionel

arthour à dit: atteindre la première cellule

Tu est en taule ou quoi???

Usine à gaz · 2 Janvier 2017

Bonjour Lone,
Lol Lone,
je ne vous l'avais pas dit ..... vous n'aideriez peut-être pas un taulard .....

Chris24 · 2 Janvier 2017

Bonsoir arthour973, Lone-wolf

Un essai en fichier joint avec Find

Bonne soirée

Edit: j'ai oublié le fichier

Usine à gaz · 2 Janvier 2017

Bonsoir Chris,
Merci de m'avoir répondu mais je ne vois pas le fichier
c'est bon, il est là

JCGL · 2 Janvier 2017

Bonjour à tous,
Salut aux amis,

Peux-tu essayer :

VB:

Sub CeJour()
Application.Goto [Y:Y].Find(Date, , , 1)(1, 2)
End Sub

Et avec un lien HyperTexte

A+ à tous

Usine à gaz · 2 Janvier 2017

Re Chris,

Super bien sûr, ça marche et j'y comprends rien Grrrrr !!!!
Je vais tenter de comprendre.
merci Chris pour cette solution qui va bcp m'aider dans mon boulot
Amicalement,
Lionel,

Lone-wolf · 2 Janvier 2017

Bonsoir Jean-Claude et bonne année

VB:

Sub Atteindre()
Dim rw As Integer
    With Feuil1
        rw = Application.Match(CLng(Date), .Range("Y4:Y803"), 0)
        Application.Goto .Range("Y" & rw + 3)
        MsgBox "Vous avez atteint la date du " & .Range("Y" & rw + 3).Value, , "DATE ATTEINTE"
    End With
End Sub

Usine à gaz · 2 Janvier 2017

JCGL à dit:
Bonjour à tous,

Peux-tu essayer :

VB:

Sub CeJour() Application.Goto [Y:Y].Find(Date, , , 1)(1, 2) End Sub

Et avec un lien HyperTexte

A+ à tous

Bonsoir JCGL,

Bon sang, ça marche aussi et je n'y comprends toujours rien Grrrrr !!!
Je vais plancher pour comprendre (peut-être )
Un grand merci
Du coup, je ne sais plus que choisir LOL
Amicalement,
Lionel,

Usine à gaz · 2 Janvier 2017

Lone-wolf à dit:

Bonsoir Jean-Claude et bonne année

VB:

Sub Atteindre()
Dim rw As Integer
    With Feuil1
        rw = Application.Match(CLng(Date), .Range("Y4:Y803"), 0)
        Application.Goto .Range("Y" & rw + 3)
        MsgBox "Vous avez atteint la date du " & .Range("Y" & rw + 3).Value, , "DATE ATTEINTE"
    End With
End Sub

Re Lone,

Ta solution fonctionne aussi super bien.
je n'aurai pas assez de place dans le titre pour citer les "Résolveurs" LOL
Du coup de du coup ..... je suis comme "une femme comblée" LOL
Un grand merci toi
Amicalement,
Lionel,

Kim75 · 2 Janvier 2017

Bonsoir à tous

Une autre possibilité :

VB:

Option Explicit
Sub FindToday()
Dim c As Range, rng As Range, madate
Set rng = Sheets("Feuil1").Range("Y4:Y" & Sheets("Feuil1").[Y65000].End(xlUp).Row)
For Each c In rng
  madate = Int(CDbl(c))
  If c = Date Then
  c.Interior.Color = &HFF&
  End If
Next c
End Sub

Cordialement, Kim.

Usine à gaz · 2 Janvier 2017

Bonsoir Kim,
Merci de m'avoir répondu.
j'ai testé mais ça ne semble pas fonctionner.
J'ai essayé avec mes petites connaissances sans trouver pkoi.
Amicalement,
Lionel,

Kim75 · 2 Janvier 2017

Hello Arthour,

Si si le fichier joint a bien fonctionné chez moi, enfin si j'ai bien compris
J'ai juste mis la couleur rouge sur les cellules contenant la date en question
Mets de côté le tien (trop formaté) et essaye celui que j'ai téléchargé

Cordialement, Kim.

Usine à gaz · 2 Janvier 2017

C'est ce que j'ai fait.
Effectivement, le formatage fonctionne bien et ça me sera très utile.
mais mon souci premier est d'atteindre la première cellule qui contient la date qui correspond à aujourd'hui.
Amicalement,
Lionel,

Kim75 · 2 Janvier 2017

Ah d'accord, ce qui pose problème c'est le format de date en français
Essaye et tu verras, mets par exemple une macro avec : Range("B1") = Format(Date, "ddd dd mm yy")
ça ajoute un point après le diminutif du jour, alors que tes dates sont sans point, tu dois donc peut être opter pour un autre formatage des dates afin qu'elle soient reconnues par la fonction find

XL 2010 Résolu par la communauté bienveillante : atteindre la première cellule = à aujourd'hui

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Chris24

XLDnaute Impliqué

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

JCGL

XLDnaute Barbatruc

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Kim75

XLDnaute Occasionnel

Pièces jointes

Usine à gaz

XLDnaute Barbatruc

Kim75

XLDnaute Occasionnel

Usine à gaz

XLDnaute Barbatruc

Kim75

XLDnaute Occasionnel

Discussions similaires