Discussion :

[ThSPB]

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

Ci joint un bout de code

Code :

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

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

[Theze]

Bonjour,

C'est ceci que tu désire ?

Code :

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

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é.

[Daniel.C]

Bonjour,

Essaie la fonction suivante :

Code :

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

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

[ThSPB]

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

Encore merci

Thierry