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
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
Bonjour,
Ta question n'est pas assez précise :
Ce bouton où se trouve t'il ? Dans une boite de dialogue ou directement dans le document.J'ai créé un bouton "macro"
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.je souhaiterais modifier ses propriétés (nom du bouton + macro assignée)
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
Libre Office Version: 7.4.3.2 (x64)
Windows 10
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
Bonjour,
Voila en pièce jointe le fichier modifié.
Pour le fun je change aussi la couleur du bouton.
Ci dessous le code:
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
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
Le Fichier
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
Exemple1.ods
Cordialement
Libre Office Version: 7.4.3.2 (x64)
Windows 10
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.
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager