Utilisation de cells.find

Version imprimable

05/11/2008, 17h40
wanou44

Utilisation de cells.find
Bonjour à tous,

J'ai un fichier Excel avec dans une colonne tous les jours de l'année.
J'aimerais grâce à une macro me positionner par défaut sur la cellule du jour actuel. J'ai fait le code suivant qui est très simple mais à chaque fois que je l'exécute, j'ai l'erreur suivante : "Variable objet ou variable de bloc With non définie".
Code:

1 2 3 4 5 6 7 8 Sub test() Dim nom As String nom = Left(Date, 2) & "/" & Mid(Date, 4, 2) Cells.Find(What:=nom).Activate End Sub
Pourriez-vous m'aider ?

bonsoir,

Code:

1
2
3
4
5
6
7
8
9
 
Sub test()
    Dim CEL As Range
    Dim nom As String
 
    nom = Left(Date, 2) & "/" & Mid(Date, 4, 2)
    Set CEL = Cells.Find(What:=nom)
     MsgBox CEL.Address
End Sub

05/11/2008, 22h17
JackOuYA

bonsoir,

sans analyser tout on code cela est à revoir :

Code:

nom = Left(Date, 2) & "/" & Mid(Date, 4, 2)

la fonction Date te renvoi une donnée de Type Date, le type Date n'est pas une chaine de caractére et ne convient donc pas comme paramétre des fonctions Mid ou Left qui sont des fonctions de chaines...

utilise plutôt les fonctions Day,Month ou Year... ;)

J'ajouterais qu'il n'est pas très optimisé d'appeler 2 fois la fonction Date, et qu'il vaut mieux l'utiliser une seule fois et stocker son résultat dans une variable.

Dans un cadre plus général, il est inutile d'accéder plusieurs fois à la même fonction ou à la même propriété si c'est pour en ressortir à chaque fois le même résultat. Petit exemple:
Code:

1 2 3 4 5 6 7 Dim a As String, b As String a = "texte qui sert à rien" b = "texte qui ne sert pas plus" If Sheets("truc").Range("A1").Value <>a Then a = Sheets("truc").Range("A1").Value b = Sheets("truc").Range("A1").Value End If
En optimisé:
Code:

1 2 3 4 5 6 7 8 Dim a As String, b As String, contenu As String a = "texte qui sert à rien" b = "texte qui ne sert pas plus" contenu = Sheets("truc").Range("A1").Value If contenu <>a Then a = contenu b = contenu End If

Code:

1
2
3
4
5
6
With Worksheets(1).Range("a1:a365")
    Set c = .Find(Date, LookIn:=xlValues)
    If Not c Is Nothing Then
        Cells(c.Row, c.Column).Select
    End If
End With

Merci à tous.
Pour information, Daranc ton programme ne me donnait rien, j'ai utilisé tout bêtement les fonctions day et month :
Code:

1 2 3 4 5 6 7 8 9 Sub test() Dim nom As String nom = day(Date) & "/" & month(Date) Cells.Find(What:=nom).Activate ActiveCell.Offset(0, 1).Activate End Sub

06/11/2008, 17h24
Daranc

c'est que tes dates ne sont pas des dates mais des textes .Les dates sont des nombre dans un format spécial : Si tu tapes en A1 d'une nouvelle feuille 10/08 excel afficheras 10/08/08 ou 10/08/2008 (ça dépends des ooptions par défaut)
tu tires vers le bas les dates s'incrémentent dans le même format si tu choisi l'une des cellule et que tu la passe au format standard excel affiche un nombre du style 38522 c'est le nombre de jour passé depuis le 01/01/1900 sur PC et depuis le 01/01/1904 sur MAC (j'ai limité la plage à a1:a365 = un an)