bonjour Mafraise
ton retour est très bien
J'utilise un togglebutton
et tu as utilisé un shapes dans le fichier en retour,
Sub MontrerMasquerUSF()
Dim sh As Shape, shNom As String
Set sh = Sheets("LTV").Shapes(Application.Caller)
Load DANGERS
If DANGERS.Visible = True Then
DANGERS.Hide
sh.TextFrame2.TextRange.Text = "Afficher"
sh.Fill.ForeColor.RGB = RGB(0, 155, 0)
Else
sh.TextFrame2.TextRange.Text = "Masquer"
sh.Fill.ForeColor.RGB = RGB(155, 0, 0)
DANGERS.Show 0
End If
End Sub
mais j'utilise un togglebutton dans un usf
tu pourrais modifier le code pour que la "fonction caller" fonctionne
j'espère ne pas trop t'embêter avec ma demande
cordialement