Placer le curseur sur la date du jour

Bonjour à tous,

On m'a demandé de faire un tableau bien compliqué et je cale déjà sur un truc qui a mon avis est tout bête.

Je cherche un code de macro qui placerait le curseur sur la date du jour.

J'ai trouvé comment faire quand les dates sont sur une seule colonne (onglet Planning) mais pas quand elles sont sur 2 lignes (onglet Feuil2).

En plus, je travaille sur la version 2007 en mode compatibilité car ils ont la version 2003 je pense. Peut être est-ce important de le savoir ?

Pouvez vous m'aider ?

Je joins mon fichier.

Merci d'avance

Bonjour

Ton fichier n'est pas joint.

Essaye :

Sub cherche()
Application.ScreenUpdating = False
Dim c As Range
Dim trouve As Date

trouve = Date
Application.Goto Reference:=Range("A1:F3") 'plage de recherche à modifier
    Set c = Selection.Find(trouve)
    If Not c Is Nothing Then c.Select
End Sub

Amicalement

Nad

Bonjour Nad,

Pardon pour le fichier, je n'avais pas vu qu'il me disait qu'il était trop lourd.

J'ai donc tout supprimé pour ne garder que l'essentiel.

Merci pour ton code mais cela ne fonctionne pas. Cela me sélectionne toute la plage.

Voici le code que j'ai trouvé quand les dates sont sur 1 colonne, peut être que cela peut aider :

Sub Datedujour()
'
' Datedujour Macro
'

'

 Dim No_Ligne As Variant

 With Worksheets("Planning") 'nom feuille à adapter
  .Activate
  No_Ligne = Application.Match(CLng(Date), .Range("E1:E2232"), 0)
  If Not IsError(No_Ligne) Then
    .Range("E" & No_Ligne).Select
  Else
    Err.Clear
    MsgBox "pas trouvé"
  End If
 End With
End Sub

Bonjour,

Bonjour Nad

Essaie avec ce code :

Sub lycos()
Dim I As Byte
Dim LaDat As Long
LaDat = Date
For I = 6 To 20 Step 14
    If Not IsError(Application.Match(LaDat, Rows(I), 0)) Then Cells(I, Application.Match(LaDat, Rows(I), 0)).Select: Exit For
Next I
End Sub

Bon W-E

Re

Bon j'avais trouvé cette méthode :

Sub cherche()
Application.ScreenUpdating = False
Dim plage As Range, c As Range

Set plage = Range("K6:GQ6,K20:GQ20")

For Each c In plage
    If c.Value = Date Then
    Application.Goto c, True
    End If
Next c

End Sub

Amicalement

Nad

Merci Cousinhub et Nad,

Vos 2 méthodes fonctionnent mais je vais garder celle de Nad car si le n° de ma deuxième ligne change (et elle va changer), il est plus facile pour moi de modifier celle de Nad car je comprends rien à votre langage de code.

Un grand merci à tous les deux et bon week-end