Simplification d'un code

Bonjour à tous

Je travaille un code simple mais particuliérement répétitif, avec deux adresses qui changent, tout le reste est figé.
le problème c'est que l'un de ces 2 adresses est répétées 2 fois par instruction
Mon objectif n'avoir qu'une seule fois chaque adresse par instructions. Car j'ai 108 instructions similaires :oops:

Ci joint un bout de code

Code:

---

1 2 3 4 5 6

Select Case Range("H3").Value Case "V": TMa2.SMP_1_F3.BackColor = vbGreen Case "J": TMa2.SMP_1_F3.BackColor = vbYellow Case "M": TMa2.SMP_1_F3.BackColor = vbMagenta Case "R": TMa2.SMP_1_F3.BackColor = vbRed End Select

---

Les adresses sont ("H3") et TMa2.SMP_1_F3
Pouvez vous m'aider pour n'écrire la seconde adresse qu'une fois

Merci de votre aide

Thierry

Bonjour,

C'est ceci que tu désire ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

With TMa2.SMP_1_F3   Select Case Range("H3").Value   Case "V": .BackColor = vbGreen Case "J": .BackColor = vbYellow Case "M": .BackColor = vbMagenta Case "R": .BackColor = vbRed   End Select   End With

---

Hervé.

Bonjour,

Essaie la fonction suivante :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Function Couleur(C As Range) As Long Select Case C.Value Case "V": Couleur = vbGreen Case "J": Couleur = vbYellow Case "M": Couleur = vbMagenta Case "R": Couleur = vbRed End Select End Function   Sub test3() coul = Couleur([A1]) [B1].Interior.Color = coul End Sub

---

Merci à tous les deux, :ccool:
Je vais les essayer demain matin dès la première heure sur mon PC pro

Encore merci

Thierry