Syntaxe condition If

Bonjour ,

J'ai un problème concernant la syntaxe de cette condition If :

Code:

---

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

---

Pouvez vous me dire qu'est ce qu'il ne va pas ... ??

Merci d'avance de votre réponse !!

Bonjour

As-tu un message d'erreur ? Le résultat n'est pas celui attendu ? Comment se présentent tes données dans les cellules ?

Philippe

En fait cette boucle if est incluse dans une boucle for ; ce qui explique le i .
Toute les cellules concernées comporte des dates ...

sinon oui j'ai un message d'erreur : Incompatibilité de type ???

Merci

Bonjour,

Pour trouver ce qui cloche, mets un point d'arrêt sur le IF et place ton curseur sur chaque month(...) pour voir ce qu'il retourne.

Si ca ne fonctionne pas, tu peux avant le if ajouter des lignes msgbox month(...) et voir laquelle plante

Re

Citation:

---

Envoyé par poilou2607

sinon oui j'ai un message d'erreur : Incompatibilité de type ???

---

Pourquoi ne pas le dire tout de suite :furax:, je t'ai demandé comment sont tes données, tu n'as pas répondu.

De plus, comme le signale jfontaine, le point d'arrêt te permettra de savoir lequel bug, car à mon avis c'est comment sont mises tes dates dans tes cellules.

Philippe

Bonjour,

Citation:

---

Sinon oui j'ai un message d'erreur : Incompatibilité de type ??

---

Le plus probable, de très loin selon moi, est que la cellule active, ou l’une des cellules balayées dans ta boucle (Sheets("Compte").Cells(i, 8)) contenait du texte ou un autre élément non numérique, lorsque le traitement a été lancé, auquel cas Month() et Year() auront provoqué l’incompatibilité de type.

D’autre part, voici quelques conseils pour améliorer ton code : utilise des variables pour les cellules auxquelles tu te réfères Ton code sera plus concis et plus lisible.

Par exemple "RefCpte" pour la cellule de la feuille "Compte", et Ref pour la cellule active. Tu peux également de dispenser des .Value chaque fois que tu fais référence à une cellule unique, car "Value" est la propriété par défaut de l’objet Range. À de très rares cas particuliers près, lorsqu’il s’agit d’une seule cellule, .Value est implicite et il n’est pas nécessaire de l’écrire.

Voici ce que pourrait donner le code découlant des principes que je propose :

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Exemple() Dim Ref As Range, RefCpte As Range, i As Integer Set Ref = ActiveCell Set RefCpte = Sheets("Compte").Range("H1") For i = 0 To 10 If Month(Ref) = Month(RefCpte.Offset(i)) And Year(Ref) = Year(RefCpte.Offset(i)) Then   End If Next End Sub

---

un exemple, tester le type de donnée avant de faire ton test

Code:

---

1 2 3 4 5 6 7

If IsDate(ActiveCell.Value) Then For i = 1 To 27 If IsDate(Cells(i, 6).Value) Then If Format(ActiveCell.Value, "mmyyyy") = Format(Cells(i, 6).Value, "mmyyyy") Then Cells(i, 6).Interior.ColorIndex = 23 End If Next i End If

---