Bouton identique sur plusieurs feuilles

[Jiheme]

Bonjour à tous,

J'ai un fichier avec plusieurs feuilles de même structure et un "ToogleButton" qui commande deux macros suivant sa position. Tout cela fonctionne sur la feuille où j'ai créer ce contrôle.

Je voudrais maintenant copier ce bouton sur les autres feuilles et utiliser le même code (fainéantise quand tu nous tiens 🙂), j'ai délacer mon code dans Worksheet et ajouter en début Active.sheet.

Et ben ça marche pas !!! Y a t'il une solution ou dois je devenir courageux 🙁

Merci

A+

 

[pierrejean]

Re : Bouton identique sur plusieurs feuilles

bonsoir Jiheme

Vois si tu peux t'inspirer de ceci

 

[Jiheme]

Re : Bouton identique sur plusieurs feuilles

Bonsoir Pierrejean, re à tous

Désolé je n'arrive à rien même avec ton exemple, ci dessous le code de mon bouton, j'ai essayé dans Worsheet, dans un module sans résultat.

Sub ToggleButton1_Click()

Active.Sheet

If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "Afficher tout"
        masquer
 Else
        ToggleButton1.Caption = "Masquer terminés"
        démasquer
End If
End Sub

Merci

A+

 

[kjin]

Re : Bouton identique sur plusieurs feuilles

Bonjour Jiheme, re pierrejean,
Essaies dans un module

Sub coucou()
With ActiveSheet.ToggleButton1
If .Value = True Then
MsgBox "coucou"
Else
MsgBox "beuh"
End If
End With
End Sub

A+
kjin

 

[Jiheme]

Re : Bouton identique sur plusieurs feuilles

Bonsoir Kjin, re à tous

Merci Kjin, mais j'ai essayé sans résultat, alors j'ai pris les nerfs et j'ai copier coller mon code dans chaque feuille.

Je pense que je vais devoir revenir au sujet de ce classeur, car il me reste le plus hard...

Merci encore

A+

 

[kjin]

Re : Bouton identique sur plusieurs feuilles

Re,
Plus sérieusement

Sub MasqDemasq()
With ActiveSheet.ToggleButton1
If .Value = True Then
.Caption = "Afficher tout"
Masquer
Else
.Caption = "Masquer terminés"
Démasquer
End If
End With
End Sub

Maintenant, sans savoir ce qui ce cache derrière le masque...
A+
kjin

 

[chris]

Re : Bouton identique sur plusieurs feuilles

Bonjour

Le bouton porte-il le même nom dans chaque feuille ?

 

[Lii]

Re : Bouton identique sur plusieurs feuilles

Bonsoir,

Il ne suffit pas de créer les boutons, il faut créer la macro associée.
A tester, une création sur toutes les feuilles.

 

[myDearFriend!]

Re : Bouton identique sur plusieurs feuilles

Bonsoir Jiheme, pierrejean, kjin, chris, Lii, le Forum,

Pour moi, la solution la plus simple à mettre en oeuvre reste le principe appliqué par pierrejean (mais avec un ToggleButton).Soit un traitement "centralisé" depuis un module de code standard.

Ci-joint un autre exemple donc :

[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DE CHAQUE FEUILLE[/I][/B][/COLOR]

[COLOR=NAVY]Private Sub[/COLOR] ToggleButton1_Click()
    TBvalue ToggleButton1
[COLOR=NAVY]End Sub[/COLOR]

[COLOR=GRAY][B][I]DANS UN MODULE DE CODE STANDARD[/I][/B][/COLOR]

[COLOR=NAVY]Option Explicit[/COLOR]

[COLOR=NAVY]Sub[/COLOR] TBvalue(TB [COLOR=NAVY]As[/COLOR] ToggleButton)
    [COLOR=NAVY]If[/COLOR] TB.Value = [COLOR=NAVY]True Then[/COLOR]
        TB.Caption = "Afficher tout"
        masquer TB.Parent
     [COLOR=NAVY]Else[/COLOR]
        TB.Caption = "Masquer terminés"
        demasquer TB.Parent
    [COLOR=NAVY]End If
End Sub[/COLOR]

[COLOR=NAVY]Sub[/COLOR] masquer(sh [COLOR=NAVY]As[/COLOR] Worksheet)
    [COLOR=GREEN]'A adapter..[/COLOR]
    MsgBox "Masquer ligne 10"
    sh.Rows(10).Hidden = [COLOR=NAVY]True
End Sub[/COLOR]

[COLOR=NAVY]Sub[/COLOR] demasquer(sh [COLOR=NAVY]As[/COLOR] Worksheet)
    [COLOR=GREEN]'A adapter..[/COLOR]
    MsgBox "Démasquer ligne 10"
    sh.Rows(10).Hidden = [COLOR=NAVY]False
End Sub[/COLOR]

Il est également possible d'envisager un fonctionnement sur base d'un module de classe, mais je ne pense pas que ça vaille le coup dans ce cas de figure (un ToggleButton par feuille seulement).

Cordialement,

 

[Jiheme]

Re : Bouton identique sur plusieurs feuilles

Bonjour Chris, Lii, My dear friend re à tous

Merci j'ai compris ce qu'il manquait pour que ça marche, c'est le TB value de chaque feuille qui renvoie sur le sub tb value.

Comme engoncé plus tôt j'ai pété les plombs et recopier mon code qui fonctionnait dans une feuille sur chacune des autres, mais je garde précieusement vos solutions, car le problème se reposera sûrement un jour.

Encore merci et bonne journée

A+