Discussion :

[wanou44]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[patbou]

bonsoir,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[JackOuYA]

bonsoir,


sans analyser tout on code cela est à revoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[decondelite]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Daranc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[wanou44]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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)