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