Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text =
Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text =
Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text =
Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" a écrit dans le message de groupe
de discussion :
49847152$0$28671$
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text > Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" <olivier1970@club-internet.fr> a écrit dans le message de groupe
de discussion :
49847152$0$28671$7a628cd7@news.club-internet.fr...
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text > Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" a écrit dans le message de groupe
de discussion :
49847152$0$28671$
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text > Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150
boutons de formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire
passer le mot qui est sur bouton en paramètre).
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150
boutons de formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire
passer le mot qui est sur bouton en paramètre).
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150
boutons de formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire
passer le mot qui est sur bouton en paramètre).
Bonjour,
j'ai en Feuille 3, une tableau avec des noms de profs en colonne A, leur
email en colonne C et en colonne D,E,F,G et suivantes les différentes
classes qu'ils ont.
En Feuille 1, je veux mettre les 100 classes en boutons (j'ai la liste en
Feuill2 colonne A)
Lorsqu'on clique sur un bouton (par exemple 3eme7), la macro i est lancé
va rechercher tout les profs qui ont la 3eme7 et créer une chaine de
caractere de la forme "email1;email2;email3;email4"
si la 3eme7 a 4 profs (en vue d'écrire ensuite à tous les profs de la
3eme7).
Je vais même plus loin : si je clique sur les boutons 3eme7, 6eme4 et 3eme2,
la macro va faire la même chose mais en évitant de mettre 2 fois l'email du
même prof qui aurait par exemple 2 de ces classes.
Tout marche impeccable.
Il ne me reste plus qu'à construire les boutons avec les classes en
feuille1. (je l'ai expérimenté avec 10 boutons créés manuellement et tout
marche).
J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
construire à une macro mais ça je n'y arrive pas...
Voila mon problème
Merci
fait un tableau
"michdenis" a écrit dans le message de news:Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" a écrit dans le message de groupe
de discussion :
49847152$0$28671$
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text >> Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
Bonjour,
j'ai en Feuille 3, une tableau avec des noms de profs en colonne A, leur
email en colonne C et en colonne D,E,F,G et suivantes les différentes
classes qu'ils ont.
En Feuille 1, je veux mettre les 100 classes en boutons (j'ai la liste en
Feuill2 colonne A)
Lorsqu'on clique sur un bouton (par exemple 3eme7), la macro i est lancé
va rechercher tout les profs qui ont la 3eme7 et créer une chaine de
caractere de la forme "email1;email2;email3;email4"
si la 3eme7 a 4 profs (en vue d'écrire ensuite à tous les profs de la
3eme7).
Je vais même plus loin : si je clique sur les boutons 3eme7, 6eme4 et 3eme2,
la macro va faire la même chose mais en évitant de mettre 2 fois l'email du
même prof qui aurait par exemple 2 de ces classes.
Tout marche impeccable.
Il ne me reste plus qu'à construire les boutons avec les classes en
feuille1. (je l'ai expérimenté avec 10 boutons créés manuellement et tout
marche).
J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
construire à une macro mais ça je n'y arrive pas...
Voila mon problème
Merci
fait un tableau
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
AAF6840A-1A86-414B-A860-AEC45A797846@microsoft.com...
Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" <olivier1970@club-internet.fr> a écrit dans le message de groupe
de discussion :
49847152$0$28671$7a628cd7@news.club-internet.fr...
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text >> Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
Bonjour,
j'ai en Feuille 3, une tableau avec des noms de profs en colonne A, leur
email en colonne C et en colonne D,E,F,G et suivantes les différentes
classes qu'ils ont.
En Feuille 1, je veux mettre les 100 classes en boutons (j'ai la liste en
Feuill2 colonne A)
Lorsqu'on clique sur un bouton (par exemple 3eme7), la macro i est lancé
va rechercher tout les profs qui ont la 3eme7 et créer une chaine de
caractere de la forme "email1;email2;email3;email4"
si la 3eme7 a 4 profs (en vue d'écrire ensuite à tous les profs de la
3eme7).
Je vais même plus loin : si je clique sur les boutons 3eme7, 6eme4 et 3eme2,
la macro va faire la même chose mais en évitant de mettre 2 fois l'email du
même prof qui aurait par exemple 2 de ces classes.
Tout marche impeccable.
Il ne me reste plus qu'à construire les boutons avec les classes en
feuille1. (je l'ai expérimenté avec 10 boutons créés manuellement et tout
marche).
J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
construire à une macro mais ça je n'y arrive pas...
Voila mon problème
Merci
fait un tableau
"michdenis" a écrit dans le message de news:Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" a écrit dans le message de groupe
de discussion :
49847152$0$28671$
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text >> Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
ça n'a plus rien à voir avec ta demande initiale et tu te contentes de te
justifier du fait que tu utilises 200 boutons , ainsi réagir à une
démarche peu constructive en apparence mais pourtant elle est de bon sens.
Il a raison Md qu'est ce que tu vas faire avec deux cent boutons 1 combo
suffit.
En+ si les autres réponses ne t'intéressent pas ... tu pourrais au moins
faire comme si!
> J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
> construire à une macro
Et en plus c'est dedans, le plus simple t'as qu'a essayer , lire..
Y en a marre de donner de la confiture aux cochons!
Si ça continue je vais rejoindre la clan des bannis.
--
lSteph
Olivier a écrit :Bonjour,
j'ai en Feuille 3, une tableau avec des noms de profs en colonne A, leur
email en colonne C et en colonne D,E,F,G et suivantes les différentes
classes qu'ils ont.
En Feuille 1, je veux mettre les 100 classes en boutons (j'ai la liste en
Feuill2 colonne A)
Lorsqu'on clique sur un bouton (par exemple 3eme7), la macro i est lancé
va rechercher tout les profs qui ont la 3eme7 et créer une chaine de
caractere de la forme "email1;email2;email3;email4"
si la 3eme7 a 4 profs (en vue d'écrire ensuite à tous les profs de la
3eme7).
Je vais même plus loin : si je clique sur les boutons 3eme7, 6eme4 et
3eme2, la macro va faire la même chose mais en évitant de mettre 2 fois
l'email du même prof qui aurait par exemple 2 de ces classes.
Tout marche impeccable.
Il ne me reste plus qu'à construire les boutons avec les classes en
feuille1. (je l'ai expérimenté avec 10 boutons créés manuellement et tout
marche).
J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
construire à une macro mais ça je n'y arrive pas...
Voila mon problème
Merci
fait un tableau
"michdenis" a écrit dans le message de news:Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de
bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" a écrit dans le message de
groupe de discussion :
49847152$0$28671$
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons
de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer
le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus
de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec
des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera
le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text >>> Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
ça n'a plus rien à voir avec ta demande initiale et tu te contentes de te
justifier du fait que tu utilises 200 boutons , ainsi réagir à une
démarche peu constructive en apparence mais pourtant elle est de bon sens.
Il a raison Md qu'est ce que tu vas faire avec deux cent boutons 1 combo
suffit.
En+ si les autres réponses ne t'intéressent pas ... tu pourrais au moins
faire comme si!
> J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
> construire à une macro
Et en plus c'est dedans, le plus simple t'as qu'a essayer , lire..
Y en a marre de donner de la confiture aux cochons!
Si ça continue je vais rejoindre la clan des bannis.
--
lSteph
Olivier a écrit :
Bonjour,
j'ai en Feuille 3, une tableau avec des noms de profs en colonne A, leur
email en colonne C et en colonne D,E,F,G et suivantes les différentes
classes qu'ils ont.
En Feuille 1, je veux mettre les 100 classes en boutons (j'ai la liste en
Feuill2 colonne A)
Lorsqu'on clique sur un bouton (par exemple 3eme7), la macro i est lancé
va rechercher tout les profs qui ont la 3eme7 et créer une chaine de
caractere de la forme "email1;email2;email3;email4"
si la 3eme7 a 4 profs (en vue d'écrire ensuite à tous les profs de la
3eme7).
Je vais même plus loin : si je clique sur les boutons 3eme7, 6eme4 et
3eme2, la macro va faire la même chose mais en évitant de mettre 2 fois
l'email du même prof qui aurait par exemple 2 de ces classes.
Tout marche impeccable.
Il ne me reste plus qu'à construire les boutons avec les classes en
feuille1. (je l'ai expérimenté avec 10 boutons créés manuellement et tout
marche).
J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
construire à une macro mais ça je n'y arrive pas...
Voila mon problème
Merci
fait un tableau
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
AAF6840A-1A86-414B-A860-AEC45A797846@microsoft.com...
Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de
bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" <olivier1970@club-internet.fr> a écrit dans le message de
groupe de discussion :
49847152$0$28671$7a628cd7@news.club-internet.fr...
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons
de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer
le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus
de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec
des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera
le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text >>> Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
ça n'a plus rien à voir avec ta demande initiale et tu te contentes de te
justifier du fait que tu utilises 200 boutons , ainsi réagir à une
démarche peu constructive en apparence mais pourtant elle est de bon sens.
Il a raison Md qu'est ce que tu vas faire avec deux cent boutons 1 combo
suffit.
En+ si les autres réponses ne t'intéressent pas ... tu pourrais au moins
faire comme si!
> J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
> construire à une macro
Et en plus c'est dedans, le plus simple t'as qu'a essayer , lire..
Y en a marre de donner de la confiture aux cochons!
Si ça continue je vais rejoindre la clan des bannis.
--
lSteph
Olivier a écrit :Bonjour,
j'ai en Feuille 3, une tableau avec des noms de profs en colonne A, leur
email en colonne C et en colonne D,E,F,G et suivantes les différentes
classes qu'ils ont.
En Feuille 1, je veux mettre les 100 classes en boutons (j'ai la liste en
Feuill2 colonne A)
Lorsqu'on clique sur un bouton (par exemple 3eme7), la macro i est lancé
va rechercher tout les profs qui ont la 3eme7 et créer une chaine de
caractere de la forme "email1;email2;email3;email4"
si la 3eme7 a 4 profs (en vue d'écrire ensuite à tous les profs de la
3eme7).
Je vais même plus loin : si je clique sur les boutons 3eme7, 6eme4 et
3eme2, la macro va faire la même chose mais en évitant de mettre 2 fois
l'email du même prof qui aurait par exemple 2 de ces classes.
Tout marche impeccable.
Il ne me reste plus qu'à construire les boutons avec les classes en
feuille1. (je l'ai expérimenté avec 10 boutons créés manuellement et tout
marche).
J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
construire à une macro mais ça je n'y arrive pas...
Voila mon problème
Merci
fait un tableau
"michdenis" a écrit dans le message de news:Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de
bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" a écrit dans le message de
groupe de discussion :
49847152$0$28671$
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons
de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer
le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus
de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec
des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera
le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text >>> Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150
boutons de formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire
passer le mot qui est sur bouton en paramètre).
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150
boutons de formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire
passer le mot qui est sur bouton en paramètre).
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150
boutons de formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire
passer le mot qui est sur bouton en paramètre).
ça n'a plus rien à voir avec ta demande initiale et tu te contentes de te
justifier du fait que tu utilises 200 boutons , ainsi réagir à une
démarche peu constructive en apparence mais pourtant elle est de bon sens.
Il a raison Md qu'est ce que tu vas faire avec deux cent boutons 1 combo
suffit.
En+ si les autres réponses ne t'intéressent pas ... tu pourrais au moins
faire comme si!
> J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
> construire à une macro
Et en plus c'est dedans, le plus simple t'as qu'a essayer , lire..
Y en a marre de donner de la confiture aux cochons!
Si ça continue je vais rejoindre la clan des bannis.
--
lSteph
Olivier a écrit :Bonjour,
j'ai en Feuille 3, une tableau avec des noms de profs en colonne A, leur
email en colonne C et en colonne D,E,F,G et suivantes les différentes
classes qu'ils ont.
En Feuille 1, je veux mettre les 100 classes en boutons (j'ai la liste en
Feuill2 colonne A)
Lorsqu'on clique sur un bouton (par exemple 3eme7), la macro i est lancé
va rechercher tout les profs qui ont la 3eme7 et créer une chaine de
caractere de la forme "email1;email2;email3;email4"
si la 3eme7 a 4 profs (en vue d'écrire ensuite à tous les profs de la
3eme7).
Je vais même plus loin : si je clique sur les boutons 3eme7, 6eme4 et
3eme2, la macro va faire la même chose mais en évitant de mettre 2 fois
l'email du même prof qui aurait par exemple 2 de ces classes.
Tout marche impeccable.
Il ne me reste plus qu'à construire les boutons avec les classes en
feuille1. (je l'ai expérimenté avec 10 boutons créés manuellement et tout
marche).
J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
construire à une macro mais ça je n'y arrive pas...
Voila mon problème
Merci
fait un tableau
"michdenis" a écrit dans le message de news:Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de
bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" a écrit dans le message de
groupe de discussion :
49847152$0$28671$
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons
de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer
le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus
de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec
des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera
le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text >>> Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
ça n'a plus rien à voir avec ta demande initiale et tu te contentes de te
justifier du fait que tu utilises 200 boutons , ainsi réagir à une
démarche peu constructive en apparence mais pourtant elle est de bon sens.
Il a raison Md qu'est ce que tu vas faire avec deux cent boutons 1 combo
suffit.
En+ si les autres réponses ne t'intéressent pas ... tu pourrais au moins
faire comme si!
> J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
> construire à une macro
Et en plus c'est dedans, le plus simple t'as qu'a essayer , lire..
Y en a marre de donner de la confiture aux cochons!
Si ça continue je vais rejoindre la clan des bannis.
--
lSteph
Olivier a écrit :
Bonjour,
j'ai en Feuille 3, une tableau avec des noms de profs en colonne A, leur
email en colonne C et en colonne D,E,F,G et suivantes les différentes
classes qu'ils ont.
En Feuille 1, je veux mettre les 100 classes en boutons (j'ai la liste en
Feuill2 colonne A)
Lorsqu'on clique sur un bouton (par exemple 3eme7), la macro i est lancé
va rechercher tout les profs qui ont la 3eme7 et créer une chaine de
caractere de la forme "email1;email2;email3;email4"
si la 3eme7 a 4 profs (en vue d'écrire ensuite à tous les profs de la
3eme7).
Je vais même plus loin : si je clique sur les boutons 3eme7, 6eme4 et
3eme2, la macro va faire la même chose mais en évitant de mettre 2 fois
l'email du même prof qui aurait par exemple 2 de ces classes.
Tout marche impeccable.
Il ne me reste plus qu'à construire les boutons avec les classes en
feuille1. (je l'ai expérimenté avec 10 boutons créés manuellement et tout
marche).
J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
construire à une macro mais ça je n'y arrive pas...
Voila mon problème
Merci
fait un tableau
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
AAF6840A-1A86-414B-A860-AEC45A797846@microsoft.com...
Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de
bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" <olivier1970@club-internet.fr> a écrit dans le message de
groupe de discussion :
49847152$0$28671$7a628cd7@news.club-internet.fr...
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons
de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer
le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus
de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec
des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera
le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text >>> Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
ça n'a plus rien à voir avec ta demande initiale et tu te contentes de te
justifier du fait que tu utilises 200 boutons , ainsi réagir à une
démarche peu constructive en apparence mais pourtant elle est de bon sens.
Il a raison Md qu'est ce que tu vas faire avec deux cent boutons 1 combo
suffit.
En+ si les autres réponses ne t'intéressent pas ... tu pourrais au moins
faire comme si!
> J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
> construire à une macro
Et en plus c'est dedans, le plus simple t'as qu'a essayer , lire..
Y en a marre de donner de la confiture aux cochons!
Si ça continue je vais rejoindre la clan des bannis.
--
lSteph
Olivier a écrit :Bonjour,
j'ai en Feuille 3, une tableau avec des noms de profs en colonne A, leur
email en colonne C et en colonne D,E,F,G et suivantes les différentes
classes qu'ils ont.
En Feuille 1, je veux mettre les 100 classes en boutons (j'ai la liste en
Feuill2 colonne A)
Lorsqu'on clique sur un bouton (par exemple 3eme7), la macro i est lancé
va rechercher tout les profs qui ont la 3eme7 et créer une chaine de
caractere de la forme "email1;email2;email3;email4"
si la 3eme7 a 4 profs (en vue d'écrire ensuite à tous les profs de la
3eme7).
Je vais même plus loin : si je clique sur les boutons 3eme7, 6eme4 et
3eme2, la macro va faire la même chose mais en évitant de mettre 2 fois
l'email du même prof qui aurait par exemple 2 de ces classes.
Tout marche impeccable.
Il ne me reste plus qu'à construire les boutons avec les classes en
feuille1. (je l'ai expérimenté avec 10 boutons créés manuellement et tout
marche).
J'ai la flemme de construire les 100 boutons d'où mon idée de le faire
construire à une macro mais ça je n'y arrive pas...
Voila mon problème
Merci
fait un tableau
"michdenis" a écrit dans le message de news:Avant de faire une macro qui crée 150 boutons de commande,
pourquoi pas nous dire le rôle que ces boutons doivent remplir
dans ton application... il y a peut être moyen d'éviter autant de
bouton.
Pour le décompte des objets dans excel... si tu effaces tous tes boutons
tu dois fermer ton classeur pour qu'excel reparte son compteur à zéro.
"Olivier" a écrit dans le message de
groupe de discussion :
49847152$0$28671$
Bonjour,
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150 boutons
de
formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire passer
le
mot qui est sur bouton en paramètre).
La macro pourrait être par exemple (en faite, elle fait beaucoup plus
de
trucs)
Sub macro1
msgbox
Worksheets("Feuil1").Shapes(Application.Caller).OLEFormat.Object.Caption
End sub
Si quelqu'un peut m'aider...
PS : Je veux des boutons de formulaires car j'ai remarqué qu'il était
facile
d'affecter la même macro à tous les boutons. Je ne sais pas faire avec
des
boutons de commandes.
PS2 : De plus, je galère beaucoup (mais ca fera peut être l'objet d'un
autre
fil) sur le numéro des boutons qui ne reviennent pas à 0.
Par exemple, j'ai effacé tous les boutons qu'il y a sur ma feuille mais
lorsque j'en crée un nouveau, il porte le numéro Bouton 75 (j'ai fait
avant
plusieurs essais). Si je l'efface et que j'en crée un autre, il portera
le
n° 76. Du coup je ne peux pas faire quelque chose du style :
ActiveSheet.Shapes(numero_du_bouton).Characters.Text >>> Worksheets("Feuil2").cells(numero_du_bouton,1).value
Merci de m'aider
Olivier
Juste pour le plaisir ;-)
Voici une autre version (syntaxe) des boutons(très beau en passant)
J'ai supposé que tu avais tes données en colonne A:A
et que tu voulais tes boutons en B:B
'------------------------------
Sub test()
Dim C As Range
With Feuil3 'Nom de la feuille à adapter
'C'est la propriété Name de la feuille et non le nom de l'onglet
With .Range("B1:B" & .Range("A65536").End(xlUp).Row)
Application.ScreenUpdating = False
For Each C In .Cells
With .Parent.Shapes.AddShape(msoShapeBevel, C.Left, C.Top, C.Width,
C.Height)
.Fill.ForeColor.SchemeColor = 22
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = C.Offset(, -1)
.OLEFormat.Object.OnAction = "Bouton_Click"
End With
Next
End With
End With
End Sub
'------------------------------
"Modeste" a écrit dans le message de groupe de discussion :
eSLXrM$
Bonsour® Olivierj'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150
boutons de formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire
passer le mot qui est sur bouton en paramètre).
Sub creeBouton()
Dim cell As Range '
For Each cell In Selection
With cell
ActiveSheet.Shapes.AddShape(msoShapeBevel, .Left, .Top, .Width,
.Height).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.BackColor.SchemeColor = 55
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Fill.TwoColorGradient msoGradientFromCenter, 1
Selection.ShapeRange.Line.ForeColor.SchemeColor = 22
Selection.Characters.Text = cell.Text
Selection.Name = "Button_" & cell.Text
Selection.OnAction = "Bouton_Click"
DoEvents
End With
Next
End Sub
'------------------
Sub Bouton_click()
MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address,
vbInformation,
Application.Caller
End Sub
Juste pour le plaisir ;-)
Voici une autre version (syntaxe) des boutons(très beau en passant)
J'ai supposé que tu avais tes données en colonne A:A
et que tu voulais tes boutons en B:B
'------------------------------
Sub test()
Dim C As Range
With Feuil3 'Nom de la feuille à adapter
'C'est la propriété Name de la feuille et non le nom de l'onglet
With .Range("B1:B" & .Range("A65536").End(xlUp).Row)
Application.ScreenUpdating = False
For Each C In .Cells
With .Parent.Shapes.AddShape(msoShapeBevel, C.Left, C.Top, C.Width,
C.Height)
.Fill.ForeColor.SchemeColor = 22
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = C.Offset(, -1)
.OLEFormat.Object.OnAction = "Bouton_Click"
End With
Next
End With
End With
End Sub
'------------------------------
"Modeste" <GD@libre.fr> a écrit dans le message de groupe de discussion :
eSLXrM$gJHA.4220@TK2MSFTNGP06.phx.gbl...
Bonsour® Olivier
j'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150
boutons de formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire
passer le mot qui est sur bouton en paramètre).
Sub creeBouton()
Dim cell As Range '
For Each cell In Selection
With cell
ActiveSheet.Shapes.AddShape(msoShapeBevel, .Left, .Top, .Width,
.Height).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.BackColor.SchemeColor = 55
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Fill.TwoColorGradient msoGradientFromCenter, 1
Selection.ShapeRange.Line.ForeColor.SchemeColor = 22
Selection.Characters.Text = cell.Text
Selection.Name = "Button_" & cell.Text
Selection.OnAction = "Bouton_Click"
DoEvents
End With
Next
End Sub
'------------------
Sub Bouton_click()
MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address,
vbInformation,
Application.Caller
End Sub
Juste pour le plaisir ;-)
Voici une autre version (syntaxe) des boutons(très beau en passant)
J'ai supposé que tu avais tes données en colonne A:A
et que tu voulais tes boutons en B:B
'------------------------------
Sub test()
Dim C As Range
With Feuil3 'Nom de la feuille à adapter
'C'est la propriété Name de la feuille et non le nom de l'onglet
With .Range("B1:B" & .Range("A65536").End(xlUp).Row)
Application.ScreenUpdating = False
For Each C In .Cells
With .Parent.Shapes.AddShape(msoShapeBevel, C.Left, C.Top, C.Width,
C.Height)
.Fill.ForeColor.SchemeColor = 22
.Fill.BackColor.SchemeColor = 55
.Fill.Transparency = 0#
.Fill.TwoColorGradient msoGradientFromCenter, 1
.Fill.ForeColor.SchemeColor = 22
.OLEFormat.Object.Caption = C.Offset(, -1)
.OLEFormat.Object.OnAction = "Bouton_Click"
End With
Next
End With
End With
End Sub
'------------------------------
"Modeste" a écrit dans le message de groupe de discussion :
eSLXrM$
Bonsour® Olivierj'ai en feuille2 en colonne A une liste de 150 mots.
Mon but est de faire une macro qui me crée sur la feuille1, 150
boutons de formulaires portant le nom de ces mots.
Tous les boutons permettent d'ouvrir la même macro (et de faire
passer le mot qui est sur bouton en paramètre).
Sub creeBouton()
Dim cell As Range '
For Each cell In Selection
With cell
ActiveSheet.Shapes.AddShape(msoShapeBevel, .Left, .Top, .Width,
.Height).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.BackColor.SchemeColor = 55
Selection.ShapeRange.Fill.Transparency = 0#
Selection.ShapeRange.Fill.TwoColorGradient msoGradientFromCenter, 1
Selection.ShapeRange.Line.ForeColor.SchemeColor = 22
Selection.Characters.Text = cell.Text
Selection.Name = "Button_" & cell.Text
Selection.OnAction = "Bouton_Click"
DoEvents
End With
Next
End Sub
'------------------
Sub Bouton_click()
MsgBox ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address,
vbInformation,
Application.Caller
End Sub
Stéphane, retournez vous asseoir à votre place. Et en vitesse!
As-tu vu le Nouvel An, en Arago ?
Stéphane, retournez vous asseoir à votre place. Et en vitesse!
As-tu vu le Nouvel An, en Arago ?
Stéphane, retournez vous asseoir à votre place. Et en vitesse!
As-tu vu le Nouvel An, en Arago ?