Select Case dans une boucle

Version imprimable

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:

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

Bonjour
Mauvaise utilisation du Select case

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim c As Range
Dim R As Integer
 
For Each c In Workbooks("Modele Estimation.xls").Worksheets("Estimation Détaillée").Range("D4:D600")
    Select Case c.Value
        Case "H", "D": R = 0
        Case "M": R = 50
        Case "R": R = 100
    End Select
    c.Offset(0, 1) = R
Next c

21/10/2011, 12h13
familledacp

Merci mercatog pour cette réponse si rapide

J'avais oublié un truc,

Si la valeur de la cellule est "", alors on ne modifie rien dans la valeur existante dans la case située juste à droite (celle où on met la valeur de R)

Cela peut etre également traduit par : dans tous les autres cas, on ne modifie pas la valeur ....

Merci pour ton aide

Daniel S

Donc

Code:

1
2
3
4
5
6
7
8
9
Dim c As Range
 
For Each c In Workbooks("Modele Estimation.xls").Worksheets("Estimation Détaillée").Range("D4:D600")
    Select Case c.Value
        Case "H", "D": c.Offset(0, 1) = 0
        Case "M": c.Offset(0, 1) = 50
        Case "R": c.Offset(0, 1) = 100
    End Select
Next c

21/10/2011, 13h41
familledacp

Re bonjour

cela fonctionne parfaitement

Mille mercis

Daniel