Condition If

Bonjour ,

J'ai un problème concernant la syntaxe d'une condition If :

If Month(ActiveCell.Value) = Month(Sheets("Compte").Cells(i, 8).Value) And Year(ActiveCell.Value) = Year(Sheets("Compte").Cells(i, 8).Value) Then

Ce If est inclus dans une boucle for , ce qui explique la variable i .

Cette syntaxe ne fonctionne pas . Quelqu'un pourrait m'aider à trouver l'erreur ???

Merci d'avance de votre réponse

-- 26 Déc 2010, 08:08 --

Les smileys sont des 8 ....

Bonjour Palou26, bonjour le forum,

Peut-être avec ce code :

If Month(ActiveCell.Value) = Month(Sheets("Compte").Cells(i, 8).Value And Year(ActiveCell.Value) = Year(Sheets("Compte").Cells(i, 8).Value Then

Tu dois récupèrer la valeur de la cellule en ligne i et colonne 8, pas la valeur de la colonne 8.

A+

Edit:

En fait le smiley doit être remplacé par 8) et non pas 8, tu peux cocher la case désactiver les smileys pour éviter ce problème.

Du coup ma proposition est fausse car je n'avais pas pris en compte la parenthèse de Month et Year !

Es-tu sûr que la cellule active contient une date ainsi que la cellule sur la feuille Compte ?

A tester éventuellement avec un IsDate(ActiveCell).