Discussion :

[shakapouet]

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 :

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

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

[Franc]

Salut, tu y étais presque

Code :

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

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

[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