Discussion :

[buzz73]

Bonjour,

Je tente de faire en une seule ligne 2 conditions même j'ai un problème d'incompatibilité de type.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Public Sub MoisTest()
 
    With ThisWorkbook.Sheets("Feuil1")
        For i = 3 To 20
            If (.Cells(i, 16).Value = "ok") Or (Month(.Cells(i, 16).Value) = 12) Then
                Debug.Print .Cells(i, 16) & " ok"
            End If
        Next i
    End With
 
End Sub

Passer par 2 conditions successives, je sais faire mais j'aimerais éviter d'alourdir la lisibilité du code en doublant le nombre de ligne à chaque fois.

Les cellules ont un format que je peux modifier si c'est vraiment nécessaire : dd/mm/yy

[Gorfael]

Salut buzz73 et le forum
À ma connaissance tu es obligé de passer par 2 tests successifs, tes variables pouvant être du texte, tu ne peux pas tester le mois, ça déclenche une erreur
A+

[decondelite]

Avec un peu d'astuce il est possible de faire le test sur une seule ligne sans déclencher d'erreur en remplaçant la deuxième partie par ceci:

Code :

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

Month(IIf(IsDate(.Cells(i, 16).Value), 10, .Cells(i, 16).Value)) = 12

En supposant bien sûr que le contenu de ta cellule est reconnu comme étant une date.

Attention: à utiliser avec parcimonie, car Month(10) correspond à une date réelle.

[buzz73]

Effectivement, Excel teste toutes les conditions avant de retourner un résultat donc ça plante.

J'ai essayé la solution de decondelite mais ce n'est pas mois qui remplis les cellules... donc parfois il y a des surprises.
Finalement, je suis revenu aux tests successifs.

Merci à vous deux pour vos réponses!

[decondelite]

La solution que je te propose part du principe que le contenu de ta cellule est interprétable ou non comme étant une date. Ca reconnaît donc également les nombres comme étant des dates: la preuve Month(10) fonctionne très bien, alors que pourtant Month attend un argument de type Date.

Pour te donner plus de chances et de précision, vérifie avec un test interne supplémentaire si ta cellule contient un simple nombre ou non.

[buzz73]

J'ai testé, ça marche effectivement.
Merci!
Par contre, il semblerait qu'il faille préférer le "if... then...else" (d'après des articles lus mais je n'ai pas compris les nuances). Votre avis?