Créer des textbox et les positionners dans Excel.

Version imprimable

Bonjour,

Je souhaite insérer des Textebox sur chaque ligne dans un fichier.

J'arrive à créer ma textebox sans problème par contre je n'arrive pas à la positionner dans la cellule que je souhaite.
Je pense que c'est facile mais pas moyen de trouver la solution.

J'avais test ce code : créer 4 textebox positionner dans la cellule Q2 Q3 Q4 Q5
Code:

1 2 3 4 5 6 7 8 9 10 For i = 2 To 5 ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 1075.5, 500, 500, 76.5).Name = "toto" With toto .Left = Sheets("test").Range("Q" & i).Left .Top = Sheets("test").Range("Q" & i).Top End With Next
Si quelqu'un a une petite idée :)

Merci

bonne journée

Salut, tu y étais presque :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub InsertTextBoxes()
 
    'Boucle For pour ajouter 4 TextBox
    For i = 2 To 5
        'Déclaration de la variable qui va contenir la TextBox créée
        Dim txtBox As Shape
        'Création d'une TextBox avec une taille de 100x15 et positionnée en (0,0) dans la feuille active
        Set txtBox = ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 0, 0, 100, 15)
        'Donner un nom unique à chaque TextBox, par exemple "TextBox_2" pour la TextBox de la ligne 2
        txtBox.Name = "TextBox_" & i
        'Positionnement de la TextBox en fonction de la colonne Q et de la ligne i
        txtBox.Left = Cells(i, 17).Left
        txtBox.Top = Cells(i, 17).Top
    Next i
 
End Sub

18/04/2023, 12h45
shakapouet

Super merci Franc,

J'avais déjà tester de cette façon mais j'avais oublié de déclarer le Shape , le boulet :)

Encore merci pour l'aide.

Bonne journée