pb utilisation variable

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:

---

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

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 :aie:)

Code:

---

dim celluleCurrentDate as range

---

Pour ton problème essaye

Code:

---

set celluleCurrentDate = feuille1.Cells(ligneCurrentSource, numColonneCurrentDate)

---

Salut,

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

Cordialement.

Edit pour florent dans le test en if il utilise

Code:

---

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 :ccool:

Merci :-)