Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Ajout Zone Texte en VBA

Ajout Zone Texte en VBA

21 réponses
Avatar
Joël
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
joel@joelgarbe.fr
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2 3
Avatar
isabelle
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













Avatar
Denis Michon
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













Avatar
AV
Ave Denis,

Juste comme ça, au cas ou :
Tu cliques bien, SUR la zone de texte après l'exécution de la macro qui la créé
("ZoneTexte") ?

Pas de problème chez moi.....
AV
Avatar
Denis Michon
Bon matin AV,


Rien à faire ! La macro ne s'exécute pas ! C' est comme il n'y avait pas de macro attachée au bouton. Et pourtant, si
je regarde via un clic droit sur le bouton, la macro attachée, il m'affiche ceci : Classeur2.xls!'MaMacro "$F$25"' .
Est-ce normal docteur ? ;-))



Salutations!




"AV" a écrit dans le message de news:bocmqh$fdf$
Ave Denis,

Juste comme ça, au cas ou :
Tu cliques bien, SUR la zone de texte après l'exécution de la macro qui la créé
("ZoneTexte") ?

Pas de problème chez moi.....
AV
Avatar
AV
Est-ce normal docteur ? ;-))


Je préconise l'euthanasie active plus 2 aspirines !

AV

Avatar
sabatier
et moi, je préconise d'exécuter cette proc dans un classeur enregistré
et non pas dans un Classeur2, 3, 4 etc...comme il semble que tu le
fasses, michel!!!!.
hugh
jps (chez qui ça marche aussi avec XL 97)

AV wrote:

Est-ce normal docteur ? ;-))


Je préconise l'euthanasie active plus 2 aspirines !

AV



Avatar
sabatier
oups, c....ie de ma part.... AV a sûrement raison en disant que tu ne cliques pas
au bon endroit, denis...regarde si le bouton "affecter une macro" est "actif" quand
tu cliques là ^ù tu cliques....
jps

AV wrote:

Ave Denis,

Juste comme ça, au cas ou :
Tu cliques bien, SUR la zone de texte après l'exécution de la macro qui la créé
("ZoneTexte") ?

Pas de problème chez moi.....
AV


Avatar
sabatier
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















Avatar
isabelle
salut Denis,

as tu essayé dans un classeur nouveau après un reboot du pc,

Sub MaMacro(Adr)
MsgBox " ça fonctionne"
End Sub

isabelle


Bon matin AV,

Rien à faire ! La macro ne s'exécute pas ! C' est comme il n'y avait pas de macro attachée au bouton. Et pourtant, si
je regarde via un clic droit sur le bouton, la macro attachée, il m'affiche ceci : Classeur2.xls!'MaMacro "$F$25"' .
Est-ce normal docteur ? ;-))

Salutations!

"AV" a écrit dans le message de news:bocmqh$fdf$
Ave Denis,

Juste comme ça, au cas ou :
Tu cliques bien, SUR la zone de texte après l'exécution de la macro qui la créé
("ZoneTexte") ?

Pas de problème chez moi.....
AV


Avatar
Denis Michon
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" 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















1 2 3