bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Et : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Et : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :
bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Et : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merci
Et : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :
bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.
merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merci
Et : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :
bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.
merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merci
Et : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :
bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjour Mike 2050,
Dans ta présentation, tu ne définis pas quel événement déclenche
le processus que tu veux engendrer :
A ) Quand ce processus doit-il se mettre en branle ?
B ) Qu'est-ce que ce processus ( travail ) doit accomplir ?
ce serait une bonne idée de publier ton classeur (seulement ce qui est pertinent)
à cette adresse : http://cjoint.com/ et de nous transmettre cette adresse.
Salutations!
"mike2050" a écrit dans le message de news:
merci Philippe,
mais ça ne va toujours pas!!!
ça marche quand tu définis un commandbutton particulier(
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select), mais pour mon
application, il faut que ça fonctionne pour tous les boutons!
Comme je l'ai dit précedemment,j'ai fait appel à un module de classe qui
définit "ColBouton" comme étant un shape du type commandbutton et qui associe
à chaque "commandbutton" qu'il trouve dans la feuille active, la macro :
"ouvrir un fichier excel"
or ActiveSheet.Shapes("ColBouton").TopLeftCell.Select ne fonctionne pas
je pense que si j'essaye de reconnaître la cellule par son contenu,ça
pourrait marcher, mais j'ai beau essayer plein de truc, je n'y arrive pas!
je donne un exemple : (qui ne fonctionne pas puisque Excel ne reconnaît pas
le commandbutton "ColBouton"!!)
dim MyString as String
dim MyRange as Range
MyString = ColBouton.caption
MyRange.Value = MyString
MyRange.Activate
With ActiveCell.AddCommentShape.OLEFormat.Object.Font
.Name = "Arial" 'police
.Size = 12 'taille de police
.FontStyle = "Gras" 'style
.ColorIndex = 25 'pour trouver la palette de couleurs
chercher IndicatorColorIndex dans l'aide
End With
please help!!!!Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjour Mike 2050,
Dans ta présentation, tu ne définis pas quel événement déclenche
le processus que tu veux engendrer :
A ) Quand ce processus doit-il se mettre en branle ?
B ) Qu'est-ce que ce processus ( travail ) doit accomplir ?
ce serait une bonne idée de publier ton classeur (seulement ce qui est pertinent)
à cette adresse : http://cjoint.com/ et de nous transmettre cette adresse.
Salutations!
"mike2050" <mike2050@discussions.microsoft.com> a écrit dans le message de news:
45D69462-4095-46A9-9087-CF9F02ADF57D@microsoft.com...
merci Philippe,
mais ça ne va toujours pas!!!
ça marche quand tu définis un commandbutton particulier(
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select), mais pour mon
application, il faut que ça fonctionne pour tous les boutons!
Comme je l'ai dit précedemment,j'ai fait appel à un module de classe qui
définit "ColBouton" comme étant un shape du type commandbutton et qui associe
à chaque "commandbutton" qu'il trouve dans la feuille active, la macro :
"ouvrir un fichier excel"
or ActiveSheet.Shapes("ColBouton").TopLeftCell.Select ne fonctionne pas
je pense que si j'essaye de reconnaître la cellule par son contenu,ça
pourrait marcher, mais j'ai beau essayer plein de truc, je n'y arrive pas!
je donne un exemple : (qui ne fonctionne pas puisque Excel ne reconnaît pas
le commandbutton "ColBouton"!!)
dim MyString as String
dim MyRange as Range
MyString = ColBouton.caption
MyRange.Value = MyString
MyRange.Activate
With ActiveCell.AddCommentShape.OLEFormat.Object.Font
.Name = "Arial" 'police
.Size = 12 'taille de police
.FontStyle = "Gras" 'style
.ColorIndex = 25 'pour trouver la palette de couleurs
chercher IndicatorColorIndex dans l'aide
End With
please help!!!!
Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.
merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merci
Et : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :
bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjour Mike 2050,
Dans ta présentation, tu ne définis pas quel événement déclenche
le processus que tu veux engendrer :
A ) Quand ce processus doit-il se mettre en branle ?
B ) Qu'est-ce que ce processus ( travail ) doit accomplir ?
ce serait une bonne idée de publier ton classeur (seulement ce qui est pertinent)
à cette adresse : http://cjoint.com/ et de nous transmettre cette adresse.
Salutations!
"mike2050" a écrit dans le message de news:
merci Philippe,
mais ça ne va toujours pas!!!
ça marche quand tu définis un commandbutton particulier(
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select), mais pour mon
application, il faut que ça fonctionne pour tous les boutons!
Comme je l'ai dit précedemment,j'ai fait appel à un module de classe qui
définit "ColBouton" comme étant un shape du type commandbutton et qui associe
à chaque "commandbutton" qu'il trouve dans la feuille active, la macro :
"ouvrir un fichier excel"
or ActiveSheet.Shapes("ColBouton").TopLeftCell.Select ne fonctionne pas
je pense que si j'essaye de reconnaître la cellule par son contenu,ça
pourrait marcher, mais j'ai beau essayer plein de truc, je n'y arrive pas!
je donne un exemple : (qui ne fonctionne pas puisque Excel ne reconnaît pas
le commandbutton "ColBouton"!!)
dim MyString as String
dim MyRange as Range
MyString = ColBouton.caption
MyRange.Value = MyString
MyRange.Activate
With ActiveCell.AddCommentShape.OLEFormat.Object.Font
.Name = "Arial" 'police
.Size = 12 'taille de police
.FontStyle = "Gras" 'style
.ColorIndex = 25 'pour trouver la palette de couleurs
chercher IndicatorColorIndex dans l'aide
End With
please help!!!!Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjour Mike 2050,
Dans ta présentation, tu ne définis pas quel événement déclenche
le processus que tu veux engendrer :
A ) Quand ce processus doit-il se mettre en branle ?
B ) Qu'est-ce que ce processus ( travail ) doit accomplir ?
ce serait une bonne idée de publier ton classeur (seulement ce qui est pertinent)
à cette adresse : http://cjoint.com/ et de nous transmettre cette adresse.
Salutations!
"mike2050" a écrit dans le message de news:
merci Philippe,
mais ça ne va toujours pas!!!
ça marche quand tu définis un commandbutton particulier(
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select), mais pour mon
application, il faut que ça fonctionne pour tous les boutons!
Comme je l'ai dit précedemment,j'ai fait appel à un module de classe qui
définit "ColBouton" comme étant un shape du type commandbutton et qui associe
à chaque "commandbutton" qu'il trouve dans la feuille active, la macro :
"ouvrir un fichier excel"
or ActiveSheet.Shapes("ColBouton").TopLeftCell.Select ne fonctionne pas
je pense que si j'essaye de reconnaître la cellule par son contenu,ça
pourrait marcher, mais j'ai beau essayer plein de truc, je n'y arrive pas!
je donne un exemple : (qui ne fonctionne pas puisque Excel ne reconnaît pas
le commandbutton "ColBouton"!!)
dim MyString as String
dim MyRange as Range
MyString = ColBouton.caption
MyRange.Value = MyString
MyRange.Activate
With ActiveCell.AddCommentShape.OLEFormat.Object.Font
.Name = "Arial" 'police
.Size = 12 'taille de police
.FontStyle = "Gras" 'style
.ColorIndex = 25 'pour trouver la palette de couleurs
chercher IndicatorColorIndex dans l'aide
End With
please help!!!!Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjour Mike 2050,
Dans ta présentation, tu ne définis pas quel événement déclenche
le processus que tu veux engendrer :
A ) Quand ce processus doit-il se mettre en branle ?
B ) Qu'est-ce que ce processus ( travail ) doit accomplir ?
ce serait une bonne idée de publier ton classeur (seulement ce qui est pertinent)
à cette adresse : http://cjoint.com/ et de nous transmettre cette adresse.
Salutations!
"mike2050" <mike2050@discussions.microsoft.com> a écrit dans le message de news:
45D69462-4095-46A9-9087-CF9F02ADF57D@microsoft.com...
merci Philippe,
mais ça ne va toujours pas!!!
ça marche quand tu définis un commandbutton particulier(
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select), mais pour mon
application, il faut que ça fonctionne pour tous les boutons!
Comme je l'ai dit précedemment,j'ai fait appel à un module de classe qui
définit "ColBouton" comme étant un shape du type commandbutton et qui associe
à chaque "commandbutton" qu'il trouve dans la feuille active, la macro :
"ouvrir un fichier excel"
or ActiveSheet.Shapes("ColBouton").TopLeftCell.Select ne fonctionne pas
je pense que si j'essaye de reconnaître la cellule par son contenu,ça
pourrait marcher, mais j'ai beau essayer plein de truc, je n'y arrive pas!
je donne un exemple : (qui ne fonctionne pas puisque Excel ne reconnaît pas
le commandbutton "ColBouton"!!)
dim MyString as String
dim MyRange as Range
MyString = ColBouton.caption
MyRange.Value = MyString
MyRange.Activate
With ActiveCell.AddCommentShape.OLEFormat.Object.Font
.Name = "Arial" 'police
.Size = 12 'taille de police
.FontStyle = "Gras" 'style
.ColorIndex = 25 'pour trouver la palette de couleurs
chercher IndicatorColorIndex dans l'aide
End With
please help!!!!
Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.
merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merci
Et : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :
bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
Bonjour Mike 2050,
Dans ta présentation, tu ne définis pas quel événement déclenche
le processus que tu veux engendrer :
A ) Quand ce processus doit-il se mettre en branle ?
B ) Qu'est-ce que ce processus ( travail ) doit accomplir ?
ce serait une bonne idée de publier ton classeur (seulement ce qui est pertinent)
à cette adresse : http://cjoint.com/ et de nous transmettre cette adresse.
Salutations!
"mike2050" a écrit dans le message de news:
merci Philippe,
mais ça ne va toujours pas!!!
ça marche quand tu définis un commandbutton particulier(
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select), mais pour mon
application, il faut que ça fonctionne pour tous les boutons!
Comme je l'ai dit précedemment,j'ai fait appel à un module de classe qui
définit "ColBouton" comme étant un shape du type commandbutton et qui associe
à chaque "commandbutton" qu'il trouve dans la feuille active, la macro :
"ouvrir un fichier excel"
or ActiveSheet.Shapes("ColBouton").TopLeftCell.Select ne fonctionne pas
je pense que si j'essaye de reconnaître la cellule par son contenu,ça
pourrait marcher, mais j'ai beau essayer plein de truc, je n'y arrive pas!
je donne un exemple : (qui ne fonctionne pas puisque Excel ne reconnaît pas
le commandbutton "ColBouton"!!)
dim MyString as String
dim MyRange as Range
MyString = ColBouton.caption
MyRange.Value = MyString
MyRange.Activate
With ActiveCell.AddCommentShape.OLEFormat.Object.Font
.Name = "Arial" 'police
.Size = 12 'taille de police
.FontStyle = "Gras" 'style
.ColorIndex = 25 'pour trouver la palette de couleurs
chercher IndicatorColorIndex dans l'aide
End With
please help!!!!Bonjou Mike,
ActiveSheet.Shapes("CommandButton1").TopLeftCell.Select
Ce code permet de sélectionner la cellule dans laquelle tu positionnes le
boutton. En remplacant select par row ou column, tu obtiens les coordonnées.
Bonne journée.
Philippe.merci JLuc,
mais le problème, c'est que j'ai près de 200 boutons sur la même feuille!!!
ce qui fait que je dois reconnaître la cellule qui se trouve sous le bouton
que j'ai cliquer pour faire apparaître la fenêtre "ouvrir"...
j'ai déjà utilisé un module de classe pour que, pour tout bouton dans ma
feuille, je lance l'application getopenfilename. peut-être que ce module peut
s'avèrer être utile pour mon problème, mais je ne vois pas comment!
merciEt : Range("LaPositionDeMonBouton").Offset(49, 0)
Ca devrait le faire
JLuc
mike2050 avait soumis l'idée :bonjour à tous et bonne année!
voilà mon problème :
je clique sur un bouton qui ouvre Application.GetOpenFileName;
j'ouvre la feuille qui m'intéresse;
je tripatouille dans la feuille;
en la fermant, je veux faire apparaître Userform1 (comment faire?)
dans cette Userform1 j'insère un phrase dans une textbox;
la phrase de ce textbox doit se retrouver dans un commentaire:
je sais comment insérer la phrase dans le commentaire et comment
dimensionner ce commentaire,
MAIS je ne sais pas reconnaître la case dans laquelle insérer ce commentaire
(qui se situe 49 cellules au dessus de celle qui se trouve en-dessous de mon
bouton initial!)
Rq.: Y a-t-il une propriété du commandbutton qui le lie à une cellule?
