Salut Jean-Marie
djodjo a écrit :
Ah oui au fait, il faut se retirer une idée visiblement bien ancrée dans l'esprit de bon nombres de personnes:
Les pompiers ne pensent pas qu'aux apéros et parties de boules......
L'idée n'est pas ancrée dans la mienne c'était une boutade
J'ai 2 amis pompier et ce sont les premiers à ne rien boire... au cas ou on aurait besoin d'eux
Pour ce qui est du problème de code, j'ai oublié le "S" dans Permis et Formations
Sub MasquerBtn(sFeuil As String, Masquer As Boolean)
Dim Shp As Shape
' 1) Par le nom de l'objet
With Sheets(sFeuil)
.Shapes("BtnPermisFormations").Visible = Not Masquer
.Shapes("BtnSignaletique").Visible = Not Masquer
End With
End Sub
Pour les boutons tu avais créé 2 rectangles et regroupé, j'ai donc supprimé celui du texte que j'ai mis dans celui représentant le bouton que j'ai par la même occasion renommé
Ce que je n'ai pas fait effectivement, c'est attribuer la macro au nouvel objet, clic droit -> Affecter une macro
Essaye cette nouvelle version modifiée
A+