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

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

Pièces jointes

  • Test atteindre aujourdhui.xlsm
    21.9 KB · Affichages: 36

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
z.jpg
Bonjour Lone,
Lol Lone,
je ne vous l'avais pas dit ..... vous n'aideriez peut-être pas un taulard ..... :rolleyes:
 
Dernière édition:

JCGL

XLDnaute Barbatruc
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
 

Pièces jointes

  • Aller à aujourd'hui.xls
    74.5 KB · Affichages: 68
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
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

XLDnaute Barbatruc
Supporter XLD
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 :confused:
Du coup de du coup ..... je suis comme "une femme comblée" LOL
Un grand merci toi :)
Amicalement,
Lionel,
 

Kim75

XLDnaute Occasionnel
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.
 

Pièces jointes

  • Test atteindre aujourdhui.xlsm
    22.3 KB · Affichages: 59

Kim75

XLDnaute Occasionnel
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.
 

Kim75

XLDnaute Occasionnel
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
 

Discussions similaires

Statistiques des forums

Discussions
311 733
Messages
2 082 019
Membres
101 872
dernier inscrit
Colin T