Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel modifier le texte d'un bouton

modifier le texte d'un bouton

24 réponses
Avatar
Zoltan
Salut à tous,

je sais modifier le texte, l'écriture et la couleur sur un bouton,
mais comment modifier la taille du texte et mettre en gras, italiques?

merci de vos conseils

--
http://perso.wanadoo.fr/aquabidule/
http://www.rouhling.net
http://www.aquariumdudiscus.fr
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
Zoltan
j'ai trouvé !
il faut donc cliquer droit puis "propriétés"
onglet "Catégorie" et tout en bas il y a "Police"
et là on choisis non seulement la police mais aussi
la taille, la couleur et l'effet

aaaaaaaaaaaah, i'm very happy ;-))))
Avatar
michdenis
Bonjour Zoltan,

Et pour le mot de passe ....Cela suppose que ton bouton provient de la barre d'outils contrôle

Lorsque tu es en mode création, c'est-à-dire que le bouton (en haut et à gauche) de la barre d'outils "Contrôle" est enfoncé,
si tu double-cliques sur le bouton de commande, tu pourras insérer ce code dans la feuille blanche... Attention d'adapter le
nom du bouton de la ligne de commande à celui de ton application.

Et pour pouvoir mettre en exécution ce code, tu dois au préalable inséré dans le ThisWorkbook de ton classeur ceci en
adaptant le nom de la feuille à celle où est situé ton bouton de commande .... Cette procédure doit être exécuté à
l'ouverture du classeur pour que la solution proposée fonctionne rondement.


'----------------------------------------
Private Sub Workbook_Open()

Worksheets("Feuil1").Protect , True, , True

End Sub
'----------------------------------------

La procédure va être exécuté seulement si tu cliques AVEC LA SOURIS sur le bouton de commande....

'----------------------------------------
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim MotDePasse As String, Mot As String
MotDePasse = "toto"

Mot = Application.InputBox("Mot de passe", "Saisir le mote de passe", , , , , , 2)
If Mot = "Faux" Then Exit Sub
If Mot = MotDePasse Then
MaMacro
Else
MsgBox "Accès refusé"
End If

End Sub
'----------------------------------------

La macro que tu voudrais que le bouton exécute ... tu peux placer cette macro dans un module standard si tu le désires...
'----------------------------------------
Sub MaMacro()

MsgBox "Bonjour"

End Sub
'----------------------------------------



Salutations!




"Zoltan" a écrit dans le message de news:
maintenant que ça fonctionne, je voudrais mettre un mot de
passe sur un bouton, par exemple pour que l'action du bouton
soit effectuée il faudrait d'abord donner le mot de passe,

qui a une idée?

merci
Avatar
michdenis
Bonjour Zoltan,


Tu peux expliquer un peu ta réponse ?

et ben non, c'est un bouton de commande :-((

Si tu as la version excel 97, je crois me souvenir que l'appellation de la barre d'outils contrôle porte un autre nom qui
pourrait ressembler à "Commande" ....

Tu as testé la procédure ?



Salutations!




"Zoltan" a écrit dans le message de news:

Et pour le mot de passe ....Cela suppose que ton bouton provient de la
barre d'outils >contrôle


et ben non, c'est un bouton de commande :-((
ça fonctionne pas alors?

Avatar
sabatier
meuh si zoltan ça fonctionne...
c'est que notre québécois, il n'emploie pas le maot exact en parlant de
la
BO Contrôles ; en fait, il faut dire la BO Commandes...
je vais quand même devoir traverser l'atlantique pour enseigner excel et
VBA
à ces misérables..y en a même un qui écrit un livre...diantre..
jps.


Zoltan wrote:

Et pour le mot de passe ....Cela suppose que ton bouton provient de la
barre d'outils >contrôle


et ben non, c'est un bouton de commande :-((
ça fonctionne pas alors?



Avatar
sabatier
meuh si zoltan ça fonctionne...
c'est que notre québécois, il n'emploie pas le mot exact en parlant de
la
BO Contrôles ; en fait, il faut dire la BO Commandes...
je vais quand même devoir traverser l'atlantique pour enseigner excel et
VBA
à ces misérables..y en a même un qui écrit un livre...diantre..
jps.


Zoltan wrote:

Et pour le mot de passe ....Cela suppose que ton bouton provient de la
barre d'outils >contrôle


et ben non, c'est un bouton de commande :-((
ça fonctionne pas alors?



Avatar
sabatier
bien joué, denis, sauf que si le "voleur" sait comment aller dans VBE,
il trouvera le MDP et l'utilisera de façon sournoise...et
j'ai souvenir que des gens qui aiment grenouiller dans les programmes
sont la hantise de ces messieurs des services informatiques
qui pensent trop souvent qu'eux seuls ont the Savoir....
jps

michdenis wrote:

Bonjour Zoltan,

Et pour le mot de passe ....Cela suppose que ton bouton provient de la barre d'outils contrôle

Lorsque tu es en mode création, c'est-à-dire que le bouton (en haut et à gauche) de la barre d'outils "Contrôle" est enfoncé,
si tu double-cliques sur le bouton de commande, tu pourras insérer ce code dans la feuille blanche... Attention d'adapter le
nom du bouton de la ligne de commande à celui de ton application.

Et pour pouvoir mettre en exécution ce code, tu dois au préalable inséré dans le ThisWorkbook de ton classeur ceci en
adaptant le nom de la feuille à celle où est situé ton bouton de commande .... Cette procédure doit être exécuté à
l'ouverture du classeur pour que la solution proposée fonctionne rondement.

'----------------------------------------
Private Sub Workbook_Open()

Worksheets("Feuil1").Protect , True, , True

End Sub
'----------------------------------------

La procédure va être exécuté seulement si tu cliques AVEC LA SOURIS sur le bouton de commande....

'----------------------------------------
Private Sub CommandButton1_MouseDown(ByVal Button As Integer, _
ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

Dim MotDePasse As String, Mot As String
MotDePasse = "toto"

Mot = Application.InputBox("Mot de passe", "Saisir le mote de passe", , , , , , 2)
If Mot = "Faux" Then Exit Sub
If Mot = MotDePasse Then
MaMacro
Else
MsgBox "Accès refusé"
End If

End Sub
'----------------------------------------

La macro que tu voudrais que le bouton exécute ... tu peux placer cette macro dans un module standard si tu le désires...
'----------------------------------------
Sub MaMacro()

MsgBox "Bonjour"

End Sub
'----------------------------------------

Salutations!

"Zoltan" a écrit dans le message de news:
maintenant que ça fonctionne, je voudrais mettre un mot de
passe sur un bouton, par exemple pour que l'action du bouton
soit effectuée il faudrait d'abord donner le mot de passe,

qui a une idée?

merci


Avatar
sabatier
tu vois philippe R qu'un bouton de la BO Commandes permet un tas de
trucs sympas...
jps


Zoltan wrote:

j'ai trouvé !
il faut donc cliquer droit puis "propriétés"
onglet "Catégorie" et tout en bas il y a "Police"
et là on choisis non seulement la police mais aussi
la taille, la couleur et l'effet

aaaaaaaaaaaah, i'm very happy ;-))))


Avatar
Zoltan
bien joué, denis, sauf que si le "voleur" sait comment aller dans VBE,


meuh nan, le voleur en question c'est tout juste s'il sait ce que c'est
un "clic", c'est juste pour protéger une macro pour pas qu'il fasse
de bêtises

Avatar
sabatier
lol, denis....
j'aurais pu vérifier puisque je suis d'un côté XL 97 et de l'autre XL
2002...
merci de la précisison
jps

michdenis a écrit:
Bonjour JPS,


En ce qui concerne l'appellation de la barre d'outils "Commande" , C'est le nom qu'elle porte avec Excel 97. Lorsque tu
passeras à Excel 2000, la même barre d'outils aura comme nom : BO Contrôles (il doit en être de même avec Excel 2002 ). Il
faut quand même qu'il y a quelques modifications d'une version à l'autre pour susciter l'envie des usagers. Ce faisant, Bilou
pourra payer son épicerie !!!

;-))


Salutations!



"sabatier" a écrit dans le message de news:
tu vois philippe R qu'un bouton de la BO Commandes permet un tas de
trucs sympas...
jps


Zoltan wrote:


j'ai trouvé !
il faut donc cliquer droit puis "propriétés"
onglet "Catégorie" et tout en bas il y a "Police"
et là on choisis non seulement la police mais aussi
la taille, la couleur et l'effet

aaaaaaaaaaaah, i'm very happy ;-))))







Avatar
ChrisV
Bonjour Zoltan,

Dans un module du classeur, puis clic-droit sur le bouton de commande:
Affecter une macro...
choisir reserV dans la liste, puis OK

Sub reserV()
Dim reP As String
reP = InputBox("Quel est le mot magique...?", "Proc réservée...")
If reP = "" Then Exit Sub
If reP <> "zaza" Then
MsgBox "Impossible d'exécuter la procédure " _
& "sans le mot magique !", , "Mot de passe incorrect..."
Exit Sub
End If
'le reste du code si mot de passe OK, ex...
MsgBox "Hello !"
End Sub


ChrisV


"Zoltan" a écrit dans le message de news:


Et pour le mot de passe ....Cela suppose que ton bouton provient de la
barre d'outils >contrôle


et ben non, c'est un bouton de commande :-((
ça fonctionne pas alors?





1 2 3