Afficher une couleur sur un département avec une combobox

Re

Pour LbPause c'est OK la légende s'affiche

mais reste

Même en mettant, dans Nomville:

ActiveSheet.Shapes("Légende").Visible = False

pas tout compris pourquoi elle ne s'efface pas?

je cherche encore....

merci

Bonsoir Ge0ffroy,

J'ai ajouté une ligne de code à ton bLPause_Click()

    If Not cell Is Nothing Then
            ln = cell.Row
            ComboBox2 = F.Cells(ln, 1)
            ' *** MONTRE LA LEGENDE ligne ci-dessous ajouté le 15/05/2023 ***
            Sheets("Répartition").Shapes("Légende").Visible = True
        Else

Afin que la légende apparaisse bien à la validation ville

Une fois que le comboBox2 garde la ville validée, la légende peut s'afficher sinon c'est la suite du code (Else avec le MsgBox) qui prend la main.

Bonjour X Cellus,

Merci beaucoup

bonne journée