Tout se passe en VBA ! (mettez les intonnations voulues ;-) .... )
j'ai commencé par ajouter des cases à cocher (en VBA donc). En tâtonnant, je
suis parvenu les positionner exactement là où elles doivent être.
Je voudrais faire la même chose avec des zones de texte.
En revanche, j'aimerais ne plus être obligé de "tâtonner", et faire en sorte
que la zone de texte (à laquelle je souhaite affecter une macro toujours en
VBA) s'affiche en plein milieu d'une cellule déterminée.
Effectivement, je clique sur la zone de texte ....
J'ai eu l'occasion de rebooter et cela n'a rien changer ....
Mon classeur a déjà été enregistré ....
Je ne connais pas d'autre anomalie de fonctionnement à l'application Excel que celui là ...
Si j'exécute cette ligne de code (sans passage du paramètre), aucun problème à souligner : Sub MaMacro() Range("B1").EntireColumn.Interior.ColorIndex = 32 End Sub
Aucun problème d'affichage des couleurs à l'écran ou à l'impression ...à souligner...
Je veux bien prendre 2 aspirines... mais pour l'euthanasie active...Attendons que le problème prenne une dimension démesurée!!!
Je veux bien que JPS m'appelle Michel si cela fait parti de la solution !
;-)
En attendant si quelqu'un veut bien recevoir ce fichier de quelque octets pour exécuter la procédure afin de déterminer si la cause a pour origine le classeur ou l'application Excel elle-même.
Toute autre suggestion est bienvenue.
Salutations!
"sabatier" a écrit dans le message de news: heu..........à tout hasard, ta proc est bien dans un module standard, denis, et non dans celui de la feuille? jps
Denis Michon wrote:
Bonjour Isabelle,
Merci pour ton aide Isabelle. J'ai essayé plusieurs choses, mais il m'est impossible d'obtenir un résultat tangible avec
les procédures proposées.
Pour une raison que j'ignore, le bouton est créé, mais la macro ne s'exécute pas lorsque je clique sur le bouton de la
feuille.
J'ai aussi testé, et cela fait la même chose si j'essaie de passer un paramètre à un bouton de commande du menu. Le bouton est créé, mais la macro associée n'est jamais exécutée.
Si quelqu'un connaît la raison de cette situation, j'aimerais bien qu'il (elle) partage le truc que j'ai désactivé sans
m'en rendre compte !
Merci ce votre collaboration.
Salutations!
"isabelle" a écrit dans le message de news: bonjour vous deux,
chez moi aussi la colonne se colore en rouge, Denis essaie en changeant le numéro d'index de la couleur, on ne sait jamais.
isabelle
Bonjour Frédéric,
J'ai copié le code suivant dans un module... et si à partir de la feuille, je clique sur le textbox, rien ne se passe...
à moins que je sois "colorblind" ;-)
Il doit bien y avoir un truc quelque part que je n'exécute pas !
Salutations!
'================== > > > Sub ZoneTexte() Set ici = ActiveCell T = ici.Top L = ici.Left W = ici.Width H = ici.Height Set un = ActiveSheet.Shapes. _ AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2) un.OnAction = "'MaMacro """ & ici.Address & """'" End Sub
Sub MaMacro(Adr) Range(Adr).EntireColumn.Interior.ColorIndex = 3 End Sub '================== > > > FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
OUI... Trop cool !!! Merci beaucoup
Maintenant, si ce n'est pas trop demander, j'aimerais affecter à cette zone de texte, une macro, avec passage d'argument, comme quoi, quand on clique sur la zone de texte, il faut agir sur la colonne (en d'autre terme, j'aimerais connaître la référence de la cellule sur laquelle est positionnée la zone de texte ... tu me suis...)
Néanmoins déjà grand merci pour la précédente réponse...
--
Bien Cordialement
Joël GARBE +33 6 60 58 20 68
"garnote" a écrit dans le message de news: cPPpb.9407$
Salut Joël,
Est-ce que ça peut t'aider ?
Sub ZoneTexte() Set ici = ActiveCell T = ici.Top L = ici.Left + ActiveCell.Width Set un = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _ L, T, 100, 50) End Sub
Serge
"Joël" a écrit dans le message de news: bo8ftb$j6h$
Bonjour,
Tout se passe en VBA ! (mettez les intonnations voulues ;-) .... )
j'ai commencé par ajouter des cases à cocher (en VBA donc). En tâtonnant,
je
suis parvenu les positionner exactement là où elles doivent être.
Je voudrais faire la même chose avec des zones de texte.
En revanche, j'aimerais ne plus être obligé de "tâtonner", et faire en sorte
que la zone de texte (à laquelle je souhaite affecter une macro toujours en
VBA) s'affiche en plein milieu d'une cellule déterminée.
Si vous avez une idée, je suis preneur...
Merci !
--
Bien Cordialement
Joël GARBE +33 6 60 58 20 68
ok Denis, envoie le moi.
isabelle
Bonjour JPS, Isabelle, AV, Frédéric,
Effectivement, je clique sur la zone de texte ....
J'ai eu l'occasion de rebooter et cela n'a rien changer ....
Mon classeur a déjà été enregistré ....
Je ne connais pas d'autre anomalie de fonctionnement à l'application Excel que celui là ...
Si j'exécute cette ligne de code (sans passage du paramètre), aucun problème à souligner :
Sub MaMacro()
Range("B1").EntireColumn.Interior.ColorIndex = 32
End Sub
Aucun problème d'affichage des couleurs à l'écran ou à l'impression ...à souligner...
Je veux bien prendre 2 aspirines... mais pour l'euthanasie active...Attendons que le problème prenne une dimension
démesurée!!!
Je veux bien que JPS m'appelle Michel si cela fait parti de la solution !
;-)
En attendant si quelqu'un veut bien recevoir ce fichier de quelque octets pour exécuter la procédure afin de déterminer
si la cause a pour origine le classeur ou l'application Excel elle-même.
Toute autre suggestion est bienvenue.
Salutations!
"sabatier" <jpsabat@wanadoo.fr> a écrit dans le message de news:3FAA0883.C4F7669F@wanadoo.fr...
heu..........à tout hasard, ta proc est bien dans un module standard,
denis, et non dans celui de la feuille?
jps
Denis Michon wrote:
Bonjour Isabelle,
Merci pour ton aide Isabelle. J'ai essayé plusieurs choses, mais il m'est impossible d'obtenir un résultat tangible
avec
les procédures proposées.
Pour une raison que j'ignore, le bouton est créé, mais la macro ne s'exécute pas lorsque je clique sur le bouton de
la
feuille.
J'ai aussi testé, et cela fait la même chose si j'essaie de passer un paramètre à un bouton de commande du menu. Le
bouton est créé, mais la macro associée n'est jamais exécutée.
Si quelqu'un connaît la raison de cette situation, j'aimerais bien qu'il (elle) partage le truc que j'ai désactivé
sans
m'en rendre compte !
Merci ce votre collaboration.
Salutations!
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:3FA9A072.1F395DC6@videotron.ca...
bonjour vous deux,
chez moi aussi la colonne se colore en rouge, Denis essaie en changeant
le numéro d'index de la couleur,
on ne sait jamais.
isabelle
Bonjour Frédéric,
J'ai copié le code suivant dans un module... et si à partir de la feuille, je clique sur le textbox, rien ne se
passe...
à moins que je sois "colorblind" ;-)
Il doit bien y avoir un truc quelque part que je n'exécute pas !
Salutations!
'================== > > > Sub ZoneTexte()
Set ici = ActiveCell
T = ici.Top
L = ici.Left
W = ici.Width
H = ici.Height
Set un = ActiveSheet.Shapes. _
AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2)
un.OnAction = "'MaMacro """ & ici.Address & """'"
End Sub
Sub MaMacro(Adr)
Range(Adr).EntireColumn.Interior.ColorIndex = 3
End Sub
'================== > > >
FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !
OUI... Trop cool !!! Merci beaucoup
Maintenant, si ce n'est pas trop demander, j'aimerais affecter à cette zone
de texte, une macro, avec passage d'argument, comme quoi, quand on clique
sur la zone de texte, il faut agir sur la colonne (en d'autre terme,
j'aimerais connaître la référence de la cellule sur laquelle est positionnée
la zone de texte ... tu me suis...)
Néanmoins déjà grand merci pour la précédente réponse...
--
Bien Cordialement
Joël GARBE
+33 6 60 58 20 68
joel@joelgarbe.fr
"garnote" <rien@absent.net> a écrit dans le message de news:
cPPpb.9407$Ng3.6162@charlie.risq.qc.ca...
Salut Joël,
Est-ce que ça peut t'aider ?
Sub ZoneTexte()
Set ici = ActiveCell
T = ici.Top
L = ici.Left + ActiveCell.Width
Set un = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
L, T, 100, 50)
End Sub
Serge
"Joël" <joel@joelgarbe.fr> a écrit dans le message de news:
bo8ftb$j6h$1@news-reader2.wanadoo.fr...
Bonjour,
Tout se passe en VBA ! (mettez les intonnations voulues ;-) .... )
j'ai commencé par ajouter des cases à cocher (en VBA donc). En
tâtonnant,
je
suis parvenu les positionner exactement là où elles doivent être.
Je voudrais faire la même chose avec des zones de texte.
En revanche, j'aimerais ne plus être obligé de "tâtonner", et faire en
sorte
que la zone de texte (à laquelle je souhaite affecter une macro toujours
en
VBA) s'affiche en plein milieu d'une cellule déterminée.
Effectivement, je clique sur la zone de texte ....
J'ai eu l'occasion de rebooter et cela n'a rien changer ....
Mon classeur a déjà été enregistré ....
Je ne connais pas d'autre anomalie de fonctionnement à l'application Excel que celui là ...
Si j'exécute cette ligne de code (sans passage du paramètre), aucun problème à souligner : Sub MaMacro() Range("B1").EntireColumn.Interior.ColorIndex = 32 End Sub
Aucun problème d'affichage des couleurs à l'écran ou à l'impression ...à souligner...
Je veux bien prendre 2 aspirines... mais pour l'euthanasie active...Attendons que le problème prenne une dimension démesurée!!!
Je veux bien que JPS m'appelle Michel si cela fait parti de la solution !
;-)
En attendant si quelqu'un veut bien recevoir ce fichier de quelque octets pour exécuter la procédure afin de déterminer si la cause a pour origine le classeur ou l'application Excel elle-même.
Toute autre suggestion est bienvenue.
Salutations!
"sabatier" a écrit dans le message de news: heu..........à tout hasard, ta proc est bien dans un module standard, denis, et non dans celui de la feuille? jps
Denis Michon wrote:
Bonjour Isabelle,
Merci pour ton aide Isabelle. J'ai essayé plusieurs choses, mais il m'est impossible d'obtenir un résultat tangible avec
les procédures proposées.
Pour une raison que j'ignore, le bouton est créé, mais la macro ne s'exécute pas lorsque je clique sur le bouton de la
feuille.
J'ai aussi testé, et cela fait la même chose si j'essaie de passer un paramètre à un bouton de commande du menu. Le bouton est créé, mais la macro associée n'est jamais exécutée.
Si quelqu'un connaît la raison de cette situation, j'aimerais bien qu'il (elle) partage le truc que j'ai désactivé sans
m'en rendre compte !
Merci ce votre collaboration.
Salutations!
"isabelle" a écrit dans le message de news: bonjour vous deux,
chez moi aussi la colonne se colore en rouge, Denis essaie en changeant le numéro d'index de la couleur, on ne sait jamais.
isabelle
Bonjour Frédéric,
J'ai copié le code suivant dans un module... et si à partir de la feuille, je clique sur le textbox, rien ne se passe...
à moins que je sois "colorblind" ;-)
Il doit bien y avoir un truc quelque part que je n'exécute pas !
Salutations!
'================== > > > Sub ZoneTexte() Set ici = ActiveCell T = ici.Top L = ici.Left W = ici.Width H = ici.Height Set un = ActiveSheet.Shapes. _ AddTextbox(msoTextOrientationHorizontal, L, T, W, H * 2) un.OnAction = "'MaMacro """ & ici.Address & """'" End Sub
Sub MaMacro(Adr) Range(Adr).EntireColumn.Interior.ColorIndex = 3 End Sub '================== > > > FS -- Frédéric Sigonneau [MVP Excel - né un sans-culottide] Gestions de temps, VBA pour Excel : http://perso.wanadoo.fr/frederic.sigonneau Si votre question sur Excel est urgente, évitez ma bal !
OUI... Trop cool !!! Merci beaucoup
Maintenant, si ce n'est pas trop demander, j'aimerais affecter à cette zone de texte, une macro, avec passage d'argument, comme quoi, quand on clique sur la zone de texte, il faut agir sur la colonne (en d'autre terme, j'aimerais connaître la référence de la cellule sur laquelle est positionnée la zone de texte ... tu me suis...)
Néanmoins déjà grand merci pour la précédente réponse...
--
Bien Cordialement
Joël GARBE +33 6 60 58 20 68
"garnote" a écrit dans le message de news: cPPpb.9407$
Salut Joël,
Est-ce que ça peut t'aider ?
Sub ZoneTexte() Set ici = ActiveCell T = ici.Top L = ici.Left + ActiveCell.Width Set un = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _ L, T, 100, 50) End Sub
Serge
"Joël" a écrit dans le message de news: bo8ftb$j6h$
Bonjour,
Tout se passe en VBA ! (mettez les intonnations voulues ;-) .... )
j'ai commencé par ajouter des cases à cocher (en VBA donc). En tâtonnant,
je
suis parvenu les positionner exactement là où elles doivent être.
Je voudrais faire la même chose avec des zones de texte.
En revanche, j'aimerais ne plus être obligé de "tâtonner", et faire en sorte
que la zone de texte (à laquelle je souhaite affecter une macro toujours en
VBA) s'affiche en plein milieu d'une cellule déterminée.
