Macro pour bouton à bascule

Bonjour les amis,

Je suis devenu un "accroc" du forum!!!

Dans le progranne en PJ je veux remplacer les 2 boutons Défusionner et Refusionner par un seul bouton à bascule.

Je pense que la macro est un peu plus compliquée que l'autre (afficher / masquer)

D'avance merci

J'ai oublié : Lignes B3 & B4 et module 2.

Hello,

Hmm les fichiers protégés avec mot de passe, on adore !

Hulk a écrit :

Hello,

Hmm les fichiers protégés avec mot de passe, on adore !

Ok mais il est dans la macro = 936

J'ai un peu creusé je ne sais pas si c'est possible.

Bonjour,

Mets :

Sub Macro1()
On Error Resume Next
ActiveSheet.Protect Password:="936", UserInterfaceOnly:=True
Selection.MergeCells = Not Selection.MergeCells
End Sub

A+

galopin01 a écrit :

Bonjour,

Mets :

Sub Macro1()
On Error Resume Next
ActiveSheet.Protect Password:="936", UserInterfaceOnly:=True
Selection.MergeCells = Not Selection.MergeCells
End Sub

A+

Bonjour,

Je mets ce code où STP?

Dans un bouton bascule?

Je me suis peut-être mal exprimé. Ce que je veux c'est pouvoir remplacer mes 2 boutons Défusionner et refusionner des lignes B3 & B4 par un bouton bascule.

Bonsoir,

Je ne sais pas ce que tu appelles un bouton bascule ?

Tu peux relier ce code à n'importe quel bouton normal : si la selection est fusionnée ça défusionnera, sinon la sélection sera fusionné.

Voir fichier joint

A+

galopin01 a écrit :

Bonsoir,

Je ne sais pas ce que tu appelles un bouton bascule ?

Tu peux relier ce code à n'importe quel bouton normal : si la selection est fusionnée ça défusionnera, sinon la sélection sera fusionné.

Voir fichier joint

A+

Un GRAND merci @galopin01 c'est exactement ce que je voulais.

Vous êtes toujours aimable même si parfois on peut paraître "lourd"!

Bonne journée à tous