Discussion :

[familledacp]

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

[mercatog]

Bonjour
Mauvaise utilisation du Select case

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[mercatog]

Donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[familledacp]

Re bonjour

cela fonctionne parfaitement

Mille mercis

Daniel