créer zone de texte avec une macro

[wholehog2]

Bonjour à tous !

voila je ne suis pas un expert en vba et je ne vois pas comment créer une zone de texte par une macro à l'endroit ou une cellule est sélectionné.
C'est à dire que je voudrais sélectionner une cellule, lancer la macro, et que la zone de texte se créer à l'endroit ou j'ai sélectionner ma cellule.

D'avance merci.

 

[Pierrot93]

Re : créer zone de texte avec une macro

Bonjour,

regarde le code ci-dessous si il peut t'aider :

Dim s As Shape
With ActiveCell
    Set s = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, .Left, .Top, 80, 30)
End With

bonne journée
@+

 

[pierrejean]

Re : créer zone de texte avec une macro

bonjour wholehog2

et bienvenue sur XLD

Vois si cela te convient : macro zone_texte
qui crée une zone texte correspondante a la selection (1 ou plusieurs cellules)

Edit: Salut Pierrot

 

[wholehog2]

Re : créer zone de texte avec une macro

merci pour vos réponses rapides

pierrejean:
t'as solution me donne une erreur:
erreur d'exécution '1004'
erreur définie par l'application ou par l'objet

pierrot93:
c'est nickel c'est pile poil ce que je voulais et ça marche. Merci.

 

[pierrejean]

Re : créer zone de texte avec une macro

Re

Curieux
chez moi cela tourne aussi bien sous Excel 2000 que sous Excel 2007
Quelqu'un peut confirmer le bug (ou de preference l'inverse )

 

[jeanpierre]

Re : créer zone de texte avec une macro

Bonjour wholehog2, Pierrot, Pierrejean,

Pierrejean pas de souci chez-moi avec Excel 2000, ça roule.

Bonne journée.

Jean-Pierre

 

[Pierrot93]

Re : créer zone de texte avec une macro

Bonjour à tous

Pas de souci chez moi sous 2003, avec le code de PierreJean...

@+

 

[wholehog2]

Re : créer zone de texte avec une macro

moi aussi je suis sous excel 2003

 

[pierrejean]

Re : créer zone de texte avec une macro

Re
Une possiblité de bug :
La selection n'est pas une (ou plusieurs) cellules
Est-ce le cas ?

 

[jeanpierre]

Re : créer zone de texte avec une macro

Re,

Pas de bug avec selection de plusieurs cellules (2 en ligne, 2 en colonne ou 4 (lignes et colonnes)).

Pas de bug non plus en cas de selection multiple. Seul la première cellule reçoit la zone de texte.

Bon après-midi.

Jean-Pierre

 

[Oceanbleue111]

Re : créer zone de texte avec une macro

bonjour wholehog2

et bienvenue sur XLD

Vois si cela te convient : macro zone_texte
qui crée une zone texte correspondante a la selection (1 ou plusieurs cellules)

Edit: Salut Pierrot

Bonjour Pierrot
J'ai ouvert le fichier et il est vide. J'ai bien besoin de cette formule pouvez-vous m'aider?
Dominique

 

[pierrejean]

Bonjour Oceanbleue111
Il faut sélectionner 1 ou plusieurs cellules puis lancer la macro