Bonjour à tous et à toutes

Je sèche un peu sur des conditions à mettre en oeuvre dans une boucle

Je passe en revue toutes les cellules de la colonne D4:D600

Dans le cas de certaines valeurs (H, D, M ou R) je modifie la valeur de la cellule située juste à droite

Je sèche sur ce que je dois mettre après le "Select Case"


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
For Each Cell In Workbooks("Modele Estimation.xls").Worksheets("Estimation Détaillée").Range("D4:D600")
 
Select case
Case Cell.Value = "H"
 Cell(1, 2).Value = 0
Case Cell.Value = "D"
 Cell(1, 2).Value = 0
Case Cell.Value = "M"
 Cell(1, 2).Value = 50
Case Cell.Value = "R"
 Cell(1, 2).Value = 100
End Select
Next Cell

Merci pour votre aide

Daniel S