Discussion :

[Fanolito]

Bonjour,
J'ai créé un bouton "macro" et j'aimerais que celui-ci agisse comme un bouton on/off.
Je m'explique, lorsque je clique sur ce bouton, je souhaiterais modifier ses propriétés (nom du bouton + macro assignée).
Merci par avance.
Fanolito

[Mobydick_62]

Bonjour,
Ta question n'est pas assez précise :

J'ai créé un bouton "macro"

Ce bouton où se trouve t'il ? Dans une boite de dialogue ou directement dans le document.

je souhaiterais modifier ses propriétés (nom du bouton + macro assignée)

Pour la modification du nom et autres propriétés pas de problème. Par contre changer la macro assignée je ne vois pas trop.
Peux tu envoyer un fichier exemple avec ce fameux bouton et expliquer ce qu'il est censé faire lors du premier clic dessus, et ce qu'il fera au prochain clic. Dans ce cas avec une seule macro on peut faire quelque chose lorsqu’il est sur ON et autre chose lorsqu'il est sur OFF.

Avec ton fichier exemple moi ou un autre membre pourrons modifier. Cela nous évitera de tout reprendre de zéro.

Cordialement

[Fanolito]

Bonjour Mobydick_62,
Désolé pour ce manque de précision.
Le bouton macro a été créé dans un onglet. Ci-joint le fichier Exemple1.ods
Pour le moment, l'onglet Feuil1 comprend 2 boutons "Attente" & "Reprise".
Chacun de ces boutons est assigné à une macro qui pour le moment ne fait que modifier la couleur de l'onglet dans lequel se trouve les boutons.

L'idée étant de n'avoir au final qu'un seul et unique bouton.

Initialement, seul le bouton "Attente" serait présent dans la feuille, et lorsqu'on clique dessus, la macro MiseEnFormeOngletEnAttente s'exécute à la suite de quoi l'étiquette du bouton devrait s'intituler "Reprise" (et non plus "Attente") et ce même bouton devrait être assigné à la macro MiseEnFormeOngletEnReprise.

Inversement, si je clique sur le bouton "Reprise", la macro MiseEnFormeOngletEnReprise s'exécute à la suite de quoi l'étiquette du bouton devrait s'intituler "Attente" (et non plus "Reprise") et ce même bouton devrait être assigné à la macro MiseEnFormeOngletEnAttente.

J'espère avoir apporté suffisamment de précisions.
A ta disposition pour toute information complémentaire.
Bien sincèrement

[Mobydick_62]

Bonjour,
Voila en pièce jointe le fichier modifié.
Pour le fun je change aussi la couleur du bouton.

Ci dessous le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
'Macro assigné à l'unique bouton
Sub Action(oEvt As Object) 'La variable oEvt récupère l'évenement à l'origine (en l'occurence le bouton)
 Dim sLabelBtn As String
 Dim oFeuille As Object  
 'Je désigne la feuille active
 oFeuille = ThisComponent.getCurrentController().getActiveSheet()
 'Dans la variable sLabelBtn je récupère le nom du bouton (label)
 sLabelBtn = oEvt.Source.Model.Label
 
 'Je vérifie le nom actuel du bouton et j'agit en conséquence
 Select Case sLabelBtn
  Case "Reprise"
  'Changement couleur onglet
   oFeuille.TAbColor = RGB(255, 0, 13)
   'Je change le nom du bouton
   oEvt.Source.Model.Label = "Attente"
   'Je change la couleur du bouton
   oEvt.Source.Model.BackGroundColor = RGB(255, 0, 0)
  Case "Attente"
  'Changement couleur onglet
   oFeuille.TAbColor = RGB(255, 255, 255
   'Je change le nom du bouton
   oEvt.Source.Model.Label = "Reprise"
   'Je change la couleur du bouton
   oEvt.Source.Model.BackGroundColor = RGB(0, 255, 0)
  End Select 
End Sub

Si les autres modifications à venir sont simples tu peux les ajouter dans les différentes action du "Select Case". Si les actions sont plus importantes peut-être qu'il sera préférable de séparer dans différentes macro comme par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Select Case sLabelBtn
  Case "Reprise"
   Call MiseEnFormeOngletEnAttente
  Case "Attente"
   Call MiseEnFormeOngletEnReprise
  End Select

Le Fichier
Exemple1.ods

Cordialement

[Fanolito]

Bonsoir Mobydick_62,
Une fois de plus je te dois un grand merci. Tu m'as mis, une fois de plus, sur la voix.
Après quelques adaptations, je suis arrivé au résultat attendu.
Que de temps gagné grâce à toi.
Mille merci.
A bientôt
Bien sincèrement.