Bonjour à toutes et tous.
Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci
change d'intitulé
par exemple : Ouvrir / Fermé
Merci beaucoup.
Patrick
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter bien sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel » a écrit :
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune. Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante.
Quand tu cliques dessus, le rectangle jaune apparaît.
Sub zaza2()
End Sub
Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.ZOrder msoSendBackward
End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter bien
sur en fonction du nom de ton bouton et tu peux également incorporer
d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans udnbfIVUDHA.2280@TK2MSFTNGP10.phx.gbl, « Crel »
<nospam-mouedra@club-internet.fr> a écrit :
Bonjour à toutes et tous.
Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci
change d'intitulé
par exemple : Ouvrir / Fermé
Merci beaucoup.
Patrick
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter bien sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel » a écrit :
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
sabatier
pour la superposition, il n'est pas déconseillé de tenir la touche Alt enfoncée pendant le traçage des rectangles en question... ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi, laissez-moi tout ça dans la IV 65536... jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune. Tu en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante. Quand tu cliques dessus, le rectangle jaune apparaît. Sub zaza2()
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter bien sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel »
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
pour la superposition, il n'est pas déconseillé de tenir la touche Alt
enfoncée pendant le traçage des rectangles en question...
ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi,
laissez-moi tout ça dans la IV 65536...
jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune. Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante.
Quand tu cliques dessus, le rectangle jaune apparaît.
Sub zaza2()
End Sub
Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.ZOrder msoSendBackward
End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter bien
sur en fonction du nom de ton bouton et tu peux également incorporer
d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans udnbfIVUDHA.2280@TK2MSFTNGP10.phx.gbl, « Crel »
Bonjour à toutes et tous.
Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci
change d'intitulé
par exemple : Ouvrir / Fermé
Merci beaucoup.
Patrick
pour la superposition, il n'est pas déconseillé de tenir la touche Alt enfoncée pendant le traçage des rectangles en question... ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi, laissez-moi tout ça dans la IV 65536... jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune. Tu en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante. Quand tu cliques dessus, le rectangle jaune apparaît. Sub zaza2()
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter bien sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel »
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
Crel
Merci beaucoup Macbob. C'est vraiment très sympa de ta part. Patrick.
"MacBob" a écrit dans le message de news: BB44B648.21A4%
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune. Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante. Quand tu cliques dessus, le rectangle jaune apparaît. Sub zaza2()
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter bien
sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel »
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci
change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
Crel
Hu Hu ;-)). Patrick.
"sabatier" a écrit dans le message de news:
pour la superposition, il n'est pas déconseillé de tenir la touche Alt enfoncée pendant le traçage des rectangles en question... ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi, laissez-moi tout ça dans la IV 65536... jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune. Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante. Quand tu cliques dessus, le rectangle jaune apparaît. Sub zaza2()
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter bien
sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel »
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci
change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
Hu Hu ;-)).
Patrick.
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F1EEE01.4070000@wanadoo.fr...
pour la superposition, il n'est pas déconseillé de tenir la touche Alt
enfoncée pendant le traçage des rectangles en question...
ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi,
laissez-moi tout ça dans la IV 65536...
jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune.
Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante.
Quand tu cliques dessus, le rectangle jaune apparaît.
Sub zaza2()
pour la superposition, il n'est pas déconseillé de tenir la touche Alt enfoncée pendant le traçage des rectangles en question... ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi, laissez-moi tout ça dans la IV 65536... jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune. Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante. Quand tu cliques dessus, le rectangle jaune apparaît. Sub zaza2()
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter bien
sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel »
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton, celui-ci
change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
sabatier
tu klaxonnes ou quoi, là, patrick? jps
Crel a écrit:
Hu Hu ;-)). Patrick.
"sabatier" a écrit dans le message de news:
pour la superposition, il n'est pas déconseillé de tenir la touche Alt enfoncée pendant le traçage des rectangles en question... ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi, laissez-moi tout ça dans la IV 65536... jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune.
Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante. Quand tu cliques dessus, le rectangle jaune apparaît. Sub zaza2()
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter
bien
sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel »
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton,
celui-ci
change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
tu klaxonnes ou quoi, là, patrick?
jps
Crel a écrit:
Hu Hu ;-)).
Patrick.
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F1EEE01.4070000@wanadoo.fr...
pour la superposition, il n'est pas déconseillé de tenir la touche Alt
enfoncée pendant le traçage des rectangles en question...
ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi,
laissez-moi tout ça dans la IV 65536...
jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune.
Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante.
Quand tu cliques dessus, le rectangle jaune apparaît.
Sub zaza2()
pour la superposition, il n'est pas déconseillé de tenir la touche Alt enfoncée pendant le traçage des rectangles en question... ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi, laissez-moi tout ça dans la IV 65536... jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune.
Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante. Quand tu cliques dessus, le rectangle jaune apparaît. Sub zaza2()
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter
bien
sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel »
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton,
celui-ci
change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
Crel
Non, non che ris mais ch'ai la bouche pleine ! Patrick de l'Ain. Comme l'impératrice.
"sabatier" a écrit dans le message de news:
tu klaxonnes ou quoi, là, patrick? jps
Crel a écrit:
Hu Hu ;-)). Patrick.
"sabatier" a écrit dans le message de news:
pour la superposition, il n'est pas déconseillé de tenir la touche Alt enfoncée pendant le traçage des rectangles en question... ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi, laissez-moi tout ça dans la IV 65536... jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune.
Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante. Quand tu cliques dessus, le rectangle jaune apparaît. Sub zaza2()
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter
bien
sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel »
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton,
celui-ci
change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
Non, non che ris mais ch'ai la bouche pleine !
Patrick de l'Ain.
Comme l'impératrice.
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F1EF35C.4070101@wanadoo.fr...
tu klaxonnes ou quoi, là, patrick?
jps
Crel a écrit:
Hu Hu ;-)).
Patrick.
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:
3F1EEE01.4070000@wanadoo.fr...
pour la superposition, il n'est pas déconseillé de tenir la touche Alt
enfoncée pendant le traçage des rectangles en question...
ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi,
laissez-moi tout ça dans la IV 65536...
jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en
jaune.
Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante.
Quand tu cliques dessus, le rectangle jaune apparaît.
Sub zaza2()
Non, non che ris mais ch'ai la bouche pleine ! Patrick de l'Ain. Comme l'impératrice.
"sabatier" a écrit dans le message de news:
tu klaxonnes ou quoi, là, patrick? jps
Crel a écrit:
Hu Hu ;-)). Patrick.
"sabatier" a écrit dans le message de news:
pour la superposition, il n'est pas déconseillé de tenir la touche Alt enfoncée pendant le traçage des rectangles en question... ce MacBob, toujours aussi incomplet dans son offre commerciale...aussi, laissez-moi tout ça dans la IV 65536... jps
MacBob a écrit:
Resalut Crel
Sur une feuille Excel tu dessines un rectangle que tu colories en jaune.
Tu
en superposes un autre de la même taille que tu colories en rouge.
A celui du dessus (le deuxième en fait) tu associes la macro suivante. Quand tu cliques dessus, le rectangle jaune apparaît. Sub zaza2()
End Sub Au rectangle jaune tu associes la macro suivante:
Sub zaza1()
ActiveSheet.Shapes("Rectangle 1").Select Selection.ShapeRange.ZOrder msoSendBackward End Sub
Après tu peux passer la nuit à faire clignoter ton rectangle. A adapter
bien
sur en fonction du nom de ton bouton et tu peux également incorporer d'autres actions dans la procédure.
MacBob 8°)))
Le 23/07/03 21:41, dans , « Crel »
Bonjour à toutes et tous. Je désire savoir comment faire afin qu'en cliquant sur un bouton,
celui-ci
change d'intitulé par exemple : Ouvrir / Fermé Merci beaucoup. Patrick
Laurent M
Crel wrote:
change d'intitulé par exemple : Ouvrir / Fermé
Tu crées un bouton, auquel tu associes une macro du genre:
Sub Bouton1_QuandClic() Dim x As Range Set x = ActiveCell ActiveSheet.Shapes(Application.Caller).Select If Selection.Characters.Text = "Ouvrir" Then Selection.Characters.Text = "Fermer" Else Selection.Characters.Text = "Ouvrir" End If x.Select End Sub
A+
Laurent M.
Crel wrote:
change d'intitulé
par exemple : Ouvrir / Fermé
Tu crées un bouton, auquel tu associes une macro du genre:
Sub Bouton1_QuandClic()
Dim x As Range
Set x = ActiveCell
ActiveSheet.Shapes(Application.Caller).Select
If Selection.Characters.Text = "Ouvrir" Then
Selection.Characters.Text = "Fermer"
Else
Selection.Characters.Text = "Ouvrir"
End If
x.Select
End Sub
Tu crées un bouton, auquel tu associes une macro du genre:
Sub Bouton1_QuandClic() Dim x As Range Set x = ActiveCell ActiveSheet.Shapes(Application.Caller).Select If Selection.Characters.Text = "Ouvrir" Then Selection.Characters.Text = "Fermer" Else Selection.Characters.Text = "Ouvrir" End If x.Select End Sub
A+
Laurent M.
MacBob
Allez à la cellule IV 65536. Vous ne passez pas par la case départ. Vous ne touchez pas 20.000€. Vous y retrouverez jps auquel il est de bon ton d'offrir une bonne bouteille et des nouvelles du dehors. A votre départ, laissez lui croire que vous sortez prendre l'air le temps de ramener une autre bouteille comme celle à laquelle vous n'avez pas eu le temps de toucher. Prendre un pseudo pour continuer à intervenir sur le forum et éviter les foudres de la tôlière qui vous renverrez illico en enfer... où se trouve jps auquel il est de bon ton d'offrir une bonne bouteille...
MicRosoft 8°)))
Allez à la cellule IV 65536. Vous ne passez pas par la case départ. Vous ne
touchez pas 20.000€.
Vous y retrouverez jps auquel il est de bon ton d'offrir une bonne bouteille
et des nouvelles du dehors.
A votre départ, laissez lui croire que vous sortez prendre l'air le temps de
ramener une autre bouteille comme celle à laquelle vous n'avez pas eu le
temps de toucher.
Prendre un pseudo pour continuer à intervenir sur le forum et éviter les
foudres de la tôlière qui vous renverrez illico en enfer...
où se trouve jps auquel il est de bon ton d'offrir une bonne bouteille...
Allez à la cellule IV 65536. Vous ne passez pas par la case départ. Vous ne touchez pas 20.000€. Vous y retrouverez jps auquel il est de bon ton d'offrir une bonne bouteille et des nouvelles du dehors. A votre départ, laissez lui croire que vous sortez prendre l'air le temps de ramener une autre bouteille comme celle à laquelle vous n'avez pas eu le temps de toucher. Prendre un pseudo pour continuer à intervenir sur le forum et éviter les foudres de la tôlière qui vous renverrez illico en enfer... où se trouve jps auquel il est de bon ton d'offrir une bonne bouteille...
MicRosoft 8°)))
sabatier
:)))))))))))....sauf pour le "qui vous renverrez" jps
MacBob a écrit:
Allez à la cellule IV 65536. Vous ne passez pas par la case départ. Vous ne touchez pas 20.000€. Vous y retrouverez jps auquel il est de bon ton d'offrir une bonne bouteille et des nouvelles du dehors. A votre départ, laissez lui croire que vous sortez prendre l'air le temps de ramener une autre bouteille comme celle à laquelle vous n'avez pas eu le temps de toucher. Prendre un pseudo pour continuer à intervenir sur le forum et éviter les foudres de la tôlière qui vous renverrez illico en enfer... où se trouve jps auquel il est de bon ton d'offrir une bonne bouteille...
MicRosoft 8°)))
:)))))))))))....sauf pour le "qui vous renverrez"
jps
MacBob a écrit:
Allez à la cellule IV 65536. Vous ne passez pas par la case départ. Vous ne
touchez pas 20.000€.
Vous y retrouverez jps auquel il est de bon ton d'offrir une bonne bouteille
et des nouvelles du dehors.
A votre départ, laissez lui croire que vous sortez prendre l'air le temps de
ramener une autre bouteille comme celle à laquelle vous n'avez pas eu le
temps de toucher.
Prendre un pseudo pour continuer à intervenir sur le forum et éviter les
foudres de la tôlière qui vous renverrez illico en enfer...
où se trouve jps auquel il est de bon ton d'offrir une bonne bouteille...
:)))))))))))....sauf pour le "qui vous renverrez" jps
MacBob a écrit:
Allez à la cellule IV 65536. Vous ne passez pas par la case départ. Vous ne touchez pas 20.000€. Vous y retrouverez jps auquel il est de bon ton d'offrir une bonne bouteille et des nouvelles du dehors. A votre départ, laissez lui croire que vous sortez prendre l'air le temps de ramener une autre bouteille comme celle à laquelle vous n'avez pas eu le temps de toucher. Prendre un pseudo pour continuer à intervenir sur le forum et éviter les foudres de la tôlière qui vous renverrez illico en enfer... où se trouve jps auquel il est de bon ton d'offrir une bonne bouteille...
MicRosoft 8°)))
FxM
Laurent M wrote:
change d'intitulé par exemple : Ouvrir / Fermé
Tu crées un bouton, auquel tu associes une macro du genre:
Sub Bouton1_QuandClic() Dim x As Range Set x = ActiveCell ActiveSheet.Shapes(Application.Caller).Select If Selection.Characters.Text = "Ouvrir" Then Selection.Characters.Text = "Fermer" Else Selection.Characters.Text = "Ouvrir" End If x.Select End Sub
Bonsoir,
Vérifie voir si ton bouton n'accepterait pas une propriété .Caption J'ai fait cela il y a quelques temps avec un togglebutton mais je n'arrive pas à remettre la main dessus.
Ca donnait un truc du genre : (non testé) With buttonX if .(state/value/??) is true then .caption = "Ouvrir" else .caption = "Fermer" end if end with
@+ FxM
Laurent M wrote:
change d'intitulé
par exemple : Ouvrir / Fermé
Tu crées un bouton, auquel tu associes une macro du genre:
Sub Bouton1_QuandClic()
Dim x As Range
Set x = ActiveCell
ActiveSheet.Shapes(Application.Caller).Select
If Selection.Characters.Text = "Ouvrir" Then
Selection.Characters.Text = "Fermer"
Else
Selection.Characters.Text = "Ouvrir"
End If
x.Select
End Sub
Bonsoir,
Vérifie voir si ton bouton n'accepterait pas une propriété .Caption
J'ai fait cela il y a quelques temps avec un togglebutton mais je
n'arrive pas à remettre la main dessus.
Ca donnait un truc du genre : (non testé)
With buttonX
if .(state/value/??) is true then
.caption = "Ouvrir"
else
.caption = "Fermer"
end if
end with
Tu crées un bouton, auquel tu associes une macro du genre:
Sub Bouton1_QuandClic() Dim x As Range Set x = ActiveCell ActiveSheet.Shapes(Application.Caller).Select If Selection.Characters.Text = "Ouvrir" Then Selection.Characters.Text = "Fermer" Else Selection.Characters.Text = "Ouvrir" End If x.Select End Sub
Bonsoir,
Vérifie voir si ton bouton n'accepterait pas une propriété .Caption J'ai fait cela il y a quelques temps avec un togglebutton mais je n'arrive pas à remettre la main dessus.
Ca donnait un truc du genre : (non testé) With buttonX if .(state/value/??) is true then .caption = "Ouvrir" else .caption = "Fermer" end if end with
