Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) que
j'aimerai faire fonctionner avec 2 macros afin que celle-ci change
d'intitulée.
Merci beaucoup
Patrick
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
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
AV
Exemple d'utilisation : Affecte la macro "zzz" à un bouton de la barre d'outils formulaire que tu auras, au préalable, dessiné sur la feuille Sub zzz() Dim x As Range Set x = ActiveCell ActiveSheet.Shapes(Application.Caller).Select If Selection.Characters.Text = "Ouvrir" Then Selection.Characters.Text = "Fermer": ouvrir Else Selection.Characters.Text = "Ouvrir": fermer End If x.Select End Sub ********** Sub ouvrir() MsgBox "J'ouvre" End Sub ********** Sub fermer() MsgBox "je ferme" End Sub
AV
"Crel" a écrit dans le message news: #dj#
Bonjoyur à toutes et tous
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) que j'aimerai faire fonctionner avec 2 macros afin que celle-ci change d'intitulée. Merci beaucoup Patrick
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
Exemple d'utilisation :
Affecte la macro "zzz" à un bouton de la barre d'outils formulaire que tu auras,
au préalable, dessiné sur la feuille
Sub zzz()
Dim x As Range
Set x = ActiveCell
ActiveSheet.Shapes(Application.Caller).Select
If Selection.Characters.Text = "Ouvrir" Then
Selection.Characters.Text = "Fermer": ouvrir
Else
Selection.Characters.Text = "Ouvrir": fermer
End If
x.Select
End Sub
**********
Sub ouvrir()
MsgBox "J'ouvre"
End Sub
**********
Sub fermer()
MsgBox "je ferme"
End Sub
AV
"Crel" <nospam-mouedra-pas-de-pub@club-internet.fr> a écrit dans le message
news: #dj#PrBkDHA.1072@TK2MSFTNGP09.phx.gbl...
Bonjoyur à toutes et tous
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) que
j'aimerai faire fonctionner avec 2 macros afin que celle-ci change
d'intitulée.
Merci beaucoup
Patrick
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
Exemple d'utilisation : Affecte la macro "zzz" à un bouton de la barre d'outils formulaire que tu auras, au préalable, dessiné sur la feuille Sub zzz() Dim x As Range Set x = ActiveCell ActiveSheet.Shapes(Application.Caller).Select If Selection.Characters.Text = "Ouvrir" Then Selection.Characters.Text = "Fermer": ouvrir Else Selection.Characters.Text = "Ouvrir": fermer End If x.Select End Sub ********** Sub ouvrir() MsgBox "J'ouvre" End Sub ********** Sub fermer() MsgBox "je ferme" End Sub
AV
"Crel" a écrit dans le message news: #dj#
Bonjoyur à toutes et tous
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) que j'aimerai faire fonctionner avec 2 macros afin que celle-ci change d'intitulée. Merci beaucoup Patrick
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
Philippe.R
Bonjour Patrick,
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) [...]
La personne en question était Laurent M et c'était le 23 Juillet 2003 à 22h59 heure de Paris ; je dis ça histoire de rendre à Jules ce qui appartient à César et plus précisément à Laurent ce qui n'appartient pas à MacBob, Sabatier, FxM ou encore Michel Pierron qui avaient tous apporté leur pierre dans cette ficelle ;o))) -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Crel" a écrit dans le message de news:%23dj%
Bonjoyur à toutes et tous
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) que j'aimerai faire fonctionner avec 2 macros afin que celle-ci change d'intitulée. Merci beaucoup Patrick
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
Bonjour Patrick,
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) [...]
La personne en question était Laurent M et c'était le 23 Juillet 2003 à 22h59 heure de Paris ; je dis
ça histoire de rendre à Jules ce qui appartient à César et plus précisément à Laurent ce qui
n'appartient pas à MacBob, Sabatier, FxM ou encore Michel Pierron qui avaient tous apporté leur pierre
dans cette ficelle ;o)))
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Crel" <nospam-mouedra-pas-de-pub@club-internet.fr> a écrit dans le message de
news:%23dj%23PrBkDHA.1072@TK2MSFTNGP09.phx.gbl...
Bonjoyur à toutes et tous
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) que
j'aimerai faire fonctionner avec 2 macros afin que celle-ci change
d'intitulée.
Merci beaucoup
Patrick
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
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) [...]
La personne en question était Laurent M et c'était le 23 Juillet 2003 à 22h59 heure de Paris ; je dis ça histoire de rendre à Jules ce qui appartient à César et plus précisément à Laurent ce qui n'appartient pas à MacBob, Sabatier, FxM ou encore Michel Pierron qui avaient tous apporté leur pierre dans cette ficelle ;o))) -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002
"Crel" a écrit dans le message de news:%23dj%
Bonjoyur à toutes et tous
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) que j'aimerai faire fonctionner avec 2 macros afin que celle-ci change d'intitulée. Merci beaucoup Patrick
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
sabatier
le gars à qui répondait laurent M n'a sûrement pas dû remercier, philippe, sinon tu aurais fait partie, toi aussi, de ceux à qui la proc n'appartient pas... jps perso à MacBob et à FxM : vous êtes prêts pour une mission punitive en banlieue parisienne?
Philippe.R a écrit:
Bonjour Patrick,
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) [...]
La personne en question était Laurent M et c'était le 23 Juillet 2003 à 22h59 heure de Paris ; je dis ça histoire de rendre à Jules ce qui appartient à César et plus précisément à Laurent ce qui n'appartient pas à MacBob, Sabatier, FxM ou encore Michel Pierron qui avaient tous apporté leur pierre dans cette ficelle ;o)))
-- NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire en bal perso....merci
le gars à qui répondait laurent M n'a sûrement pas dû remercier,
philippe, sinon tu aurais fait partie, toi aussi, de ceux à qui la proc
n'appartient pas...
jps
perso à MacBob et à FxM : vous êtes prêts pour une mission punitive en
banlieue parisienne?
Philippe.R a écrit:
Bonjour Patrick,
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) [...]
La personne en question était Laurent M et c'était le 23 Juillet 2003 à 22h59 heure de Paris ; je dis
ça histoire de rendre à Jules ce qui appartient à César et plus précisément à Laurent ce qui
n'appartient pas à MacBob, Sabatier, FxM ou encore Michel Pierron qui avaient tous apporté leur pierre
dans cette ficelle ;o)))
--
NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire
en bal perso....merci
le gars à qui répondait laurent M n'a sûrement pas dû remercier, philippe, sinon tu aurais fait partie, toi aussi, de ceux à qui la proc n'appartient pas... jps perso à MacBob et à FxM : vous êtes prêts pour une mission punitive en banlieue parisienne?
Philippe.R a écrit:
Bonjour Patrick,
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) [...]
La personne en question était Laurent M et c'était le 23 Juillet 2003 à 22h59 heure de Paris ; je dis ça histoire de rendre à Jules ce qui appartient à César et plus précisément à Laurent ce qui n'appartient pas à MacBob, Sabatier, FxM ou encore Michel Pierron qui avaient tous apporté leur pierre dans cette ficelle ;o)))
-- NB. mes admiratrices voudront bien supprimer "delaile" avant de m'écrire en bal perso....merci
MacBob
Le temps de seller Rossinante, de me couvrir de mon armure et de mon plat à barbe, d'attraper ma lance et je fonce à bride abattue en découdre avec un Moulin à Vent de la banlieue de Paris ou du Médoc (si jps m'en laisse une goutte).
MacBob 8°))
Le 12/10/03 16:59, dans , « sabatier » a écrit :
le gars à qui répondait laurent M n'a sûrement pas dû remercier, philippe, sinon tu aurais fait partie, toi aussi, de ceux à qui la proc n'appartient pas... jps perso à MacBob et à FxM : vous êtes prêts pour une mission punitive en banlieue parisienne?
Philippe.R a écrit:
Bonjour Patrick,
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) [...]
La personne en question était Laurent M et c'était le 23 Juillet 2003 à 22h59 heure de Paris ; je dis ça histoire de rendre à Jules ce qui appartient à César et plus précisément à Laurent ce qui n'appartient pas à MacBob, Sabatier, FxM ou encore Michel Pierron qui avaient tous apporté leur pierre dans cette ficelle ;o)))
Le temps de seller Rossinante, de me couvrir de mon armure et de mon plat à
barbe, d'attraper ma lance et je fonce à bride abattue en découdre avec un
Moulin à Vent de la banlieue de Paris ou du Médoc (si jps m'en laisse une
goutte).
MacBob 8°))
Le 12/10/03 16:59, dans 3F896C60.5060402@wanadoo.fr, « sabatier »
<jpsabatdelaile@wanadoo.fr> a écrit :
le gars à qui répondait laurent M n'a sûrement pas dû remercier,
philippe, sinon tu aurais fait partie, toi aussi, de ceux à qui la proc
n'appartient pas...
jps
perso à MacBob et à FxM : vous êtes prêts pour une mission punitive en
banlieue parisienne?
Philippe.R a écrit:
Bonjour Patrick,
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) [...]
La personne en question était Laurent M et c'était le 23 Juillet 2003 à
22h59 heure de Paris ; je dis
ça histoire de rendre à Jules ce qui appartient à César et plus précisément à
Laurent ce qui
n'appartient pas à MacBob, Sabatier, FxM ou encore Michel Pierron qui avaient
tous apporté leur pierre
dans cette ficelle ;o)))
Le temps de seller Rossinante, de me couvrir de mon armure et de mon plat à barbe, d'attraper ma lance et je fonce à bride abattue en découdre avec un Moulin à Vent de la banlieue de Paris ou du Médoc (si jps m'en laisse une goutte).
MacBob 8°))
Le 12/10/03 16:59, dans , « sabatier » a écrit :
le gars à qui répondait laurent M n'a sûrement pas dû remercier, philippe, sinon tu aurais fait partie, toi aussi, de ceux à qui la proc n'appartient pas... jps perso à MacBob et à FxM : vous êtes prêts pour une mission punitive en banlieue parisienne?
Philippe.R a écrit:
Bonjour Patrick,
Une personne m'a fourni cette proc, (il y à bien longtemps déjà ) [...]
La personne en question était Laurent M et c'était le 23 Juillet 2003 à 22h59 heure de Paris ; je dis ça histoire de rendre à Jules ce qui appartient à César et plus précisément à Laurent ce qui n'appartient pas à MacBob, Sabatier, FxM ou encore Michel Pierron qui avaient tous apporté leur pierre dans cette ficelle ;o)))
