Masquer un bouton d'un userform automatiquement si une cellule vide

Bonjour,

Je cherche à masquer/demasquer un bouton (RECADRER) de mon userform (Gestion_Devis) quand la cellule CompteClient est vide ou remplie.

Le code marche bien mais il ne marche que une fois. Je m'explique, quand j'ouvre mon fichier excel, le code est bien en place, mais lorsque je met une valeur dans CompteClient, le bouton RECADRER apparait mais si j'enlève la valeur le bouton RECADRER reste or j'aimerais qu'il redevienne invisible

Private Sub Workbook_Open()
If ThisWorkbook.Worksheets("Devis").Range("CompteClient") = Empty Then
Gestion_Devis.RECADRER.Visible = False
Else
Gestion_Devis.RECADRER.Visible = True
End If
End Sub

Si vous pouvez m'aider.

Merci par avance,

GOAT

Bonjour,

Voici un essai avec cette macro évènementielle à placer dans le module de la feuille "Devis" :

Private Sub Worksheet_Change(byval target as range) 'MODULE FEUILLE Devis
dim r as range
set r = intersect(target, me.Range("CompteClient"))
if not r is nothing then
    Gestion_Devis.RECADRER.Visible = (r.value <> "")
End If
End Sub

Si le changement de valeur de CompteClient résulte du calcul d'une formule, il faudra choisir l'évènement Calculate à la place.

Cdlt,

bonjour 3GB,

Alors j'ai essayé ton code mais ca ne marche pas :/

je l'ai bien mis dans la feuille Devis

en faite ca marche nickel, j'ai du faire une fausse manip, merci !!