je voudrais utiliser la fonction select case pour éviter des if then imbriqués
en fait sur une plage de cellule, je dois comparer chaque cellule par rapport à une valeur et dire dans la cellule à coter si c'est conforme ou pas, et si ma cellule à comparer est vide, je veux qu'il n'y ait rien qui s'affiche
j'ai fait ça mais ça ne marche pas:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim l As Long
l = dl - pl + 1
Dim classe1 As String
classe1 = "D19" & ":D" & l
For Each Cell In Worksheets("feuil2").Range(classe1)
Select Case classe1
Case Is > 30
Worksheets("feuil2").Range("E" & l).Value = "oui"
Case Is < 30
Worksheets("feuil2").Range("E" & l).Value = "non"
Case Else
Worksheets("feuil2").Range("E" & l).Value = "-"
End Select
Next