Discussion :

[thierry_b]

Bonjour,

J'ai une erreur dans mon exécution lors que j'utilise des variables, que je comprends pas.

Par exemple avec le bout de code ci-dessous:

Code :

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

1
2
3
4
5
6
7
' Cellule date courante du tableau source
        celluleCurrentDate = feuille1.Cells(ligneCurrentSource, numColonneCurrentDate)
 
        ' On vérifie que la cellule courante contient bien une date
        ' et que la couleur de fond de la cellule est différent de vert (qui correspond à une tache terminée)
        If IsDate(celluleCurrentDate) And celluleCurrentDate.Interior.ColorIndex <> 35 Then
.....

j'ai cette erreur : "Objet requis"

Tandis que si je remplace "celluleCurrentDate" par "feuille1.Cells(ligneCurrentSource, numColonneCurrentDate)" dans la condition, ça marche très bien.

Une idée?

Merci :-)

[Krovax]

As tu déclaré ta variable au début de ta macro? (si non c'est mal de ne pas déclarer c'est variable )

Code :

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

dim celluleCurrentDate  as range

Pour ton problème essaye

Code :

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

set celluleCurrentDate = feuille1.Cells(ligneCurrentSource, numColonneCurrentDate)

[florent.blin]

Salut,

Est-ce que 'celluleCurrentDate' est bien déclarée comme une date ?

Cordialement.

[Krovax]

Edit pour florent dans le test en if il utilise

Code :

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

celluleCurrentDate.Interior.ColorIndex <> 35

Il faut donc le traiter comme un range, mais je suis content de voir que je ne suis pas le seul a insiter sur l'importance des déclarations de variable

[thierry_b]

Merci :-)