Comment mettre une couleur rose sur un choix de département

Bonjour,

Ci-joint, une carte de France.

Dans le menu déroulant en haut le choix du département.

Mais je n'arrive pas à mettre dans le vba un code pour mettre en rose le département sélectionné.

Merci pour votre aide

quelqu'un peut il m'aider?

je désespère

Bonjour,

Ya des morceaux qui ont dû se perdre ? Ou alors ça a été un peu bâclé !

Le minimum pour régler ta question (mais il serait bon de passer tout le code en revue...)

Tu colories en rose la cellule de choix du département (I2).

Et tu modifies ainsi le procédure Change dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim couleur&, p%, c
    If Not Intersect([I2], Target) Is Nothing And Target.Count = 1 Then
        If Target <> "" Then
            coloriage
            couleur = Target.Interior.Color
            p = Application.Match(Target, Range("départ").Offset(, 2), 0)
            c = [départ].Cells(p, 1)
            ActiveSheet.Shapes("fr-" & c).Fill.ForeColor.RGB = couleur
        End If
    End If
End Sub

Cordialement.

Bonjour ferrand,

merci pour ta réponse

C'est parfait

j'ai mis une couleur "lambda" dans la cellule i2 et c'est good!

tu m'a redonné le smile

thanks