Discussion :

[poilou2607]

Bonjour ,

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

Code :

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

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

[Invité]

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

[poilou2607]

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

[jfontaine]

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

[Invité]

Re

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

Pourquoi ne pas le dire tout de suite , 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

[Bigalo]

Bonjour,

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 :

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

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

[mercatog]

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

Code :

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

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