Discussion :

[wholehog2]

bonjour,
je cherche à insérer une zone de texte (par une macro) où la cellule est selectionné.
je n'y arrive pas. Que dois-faire ?

[cafeine]

Hello,

Pourquoi ne passes-tu pas par l'enregistreur de macro ?

Menu :
Outils > Macro ... > Nouvelle Macro

[wholehog2]

c'est ce que j'ai fait mais ça l'insere toujours au même endroit.

alors que je veux que ça l'insere où la cellule est selectionné.

[SfJ5Rpw8]

tiens essai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
 Dim c As Range 'Cellule sur laquelle coller le text box
 Dim sh As Worksheet 'Feuille ..
 Dim tx 'As TextBox
 Set c = ActiveCell
 Set sh = ActiveSheet
 
 Set tx = sh.OLEObjects.Add(ClassType:="Forms.TextBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=c.Left, Top:=c.Top, Width:=102.75, Height _
        :=15).Object
 
tx.Text = c.Address