utilisation de select case
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:
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 |
