Bonjour,
Je souhaiterais travailler dans des textbox groupées dans des shapes.

J'arrive à lister et sélectionner les shapes de ma feuille de calculs pour l'instant mais ne parviens pas à sélectionner les textbox à l'intérieur.

Je pars du code que j'ai trouvé par l'enregistreur de macros:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
    ActiveSheet.Shapes.Range(Array("Group 1")).Select
    ActiveSheet.Shapes.Range(Array("TextBox 4")).Select
    Selection.Formula = "=$S$1"
    Range("B8:B9").Select
Le code que j'ai trouvé pour sélectionner les shapes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Set myDocument = Worksheets(ActiveSheet.Name)
With myDocument.Shapes
 numShapes = .Count
 Debug.Print numShapes
 
For i = 1 To numShapes
myDocument.Shapes.Range(Array(i)).Select
Debug.Print myDocument.Shapes.Range(Array(i)).Name
Next i
Je n'arrive donc pas à passer de:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
myDocument.Shapes.Range(Array(i)).Select
à:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 ActiveSheet.Shapes.Range(Array("Group 1")).Select
    ActiveSheet.Shapes.Range(Array("TextBox 4")).Select
Je précise que les noms de mes "Goup" ne se suivent pas, j'ai "1" et "10" par exemple et idem pour les textbox, là on peut lire: "TextBox 4" mais il n'y a pas de "3" avant car lors de travaux précédents, j'ai dû en supprimer et en ajouter et je ne pensais pas à développer comme je cherche à le faire là alors.


Si quelqu'un peut m'aider, merci beaucoup d'avance.