Discussion :

[triaguae]

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

[tirex28]

Bonjour,

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 Cell.Value
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

A tester.

Cordialement,

Tirex28/

[triaguae]

ok c'est nickel
j'ai un autre pb : voir ma nouvelle discussion
MERCI