probleme macro de selection cellule contenant la date du jour

K

kjin

XLDnaute Barbatruc

• 10 Décembre 2010

• #2

Re : probleme macro de selection cellule contenant la date du jour

Bonjour,
Essaies

Code:

sDat = Format(Date, "yyyy")
With Sheets("planning " & sDat)
    .Activate
    L = Application.Match(CLng(Date), .Range("b8:b373"), 0)
    .Cells(L + 7, 2).Select
End With

A+
kjin

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 10 Décembre 2010

• #3

Re : probleme macro de selection cellule contenant la date du jour

Bonjour,
Hello Kjin🙂

Tester, si les dates sont au format standard "dd/mm/yyyy":

Code:

Sub SelectionnerCelluleDateDuJour()
    Dim c As Range
    Set c = Sheets("planning " & Year(Date)).UsedRange.Find(what:=Date, LookIn:=xlValues, SearchFormat:=False)
    If Not c Is Nothing Then Application.Goto c
End Sub

A+

 

Dernière modification par un modérateur: 10 Décembre 2010

Vote positif 0 Vote négatif

L

lestards

XLDnaute Nouveau

• 10 Décembre 2010

• #4

Re : probleme macro de selection cellule contenant la date du jour

ca fonctionne nickel

merci Kjin et merci aussi Hasco

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 10 Décembre 2010

• #5

Re : probleme macro de selection cellule contenant la date du jour

Re, adiou Hasco 🙂,
Note quand même qu'il n'y a aucune gestion d'erreur en l'état actuel !
A+
kjin

 

Vote positif 0 Vote négatif