Sélectionner les n textbox d'un groupe dans une shape

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:

---

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:

---

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:

---

1 2	myDocument.Shapes.Range(Array(i)).Select

---

à:

Code:

---

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.

J'arrive à sélectionner 1 textbox:

Code:

---

1 2 3 4

ActiveSheet.Shapes.Range(Array("Textbox 4")).Select Debug.Print Selection.Formula Debug.Print Selection.Text

---

Mais je voudrais boucler sur toutes mes:

Code:

---

1 2	ActiveSheet.Shapes.Range(Array("Textbox" & i)).Select

---

Je ne parviens pas à compter i max pour une boucle

Code:

---

for i = 1 to max

---

Citation:

---

Envoyé par Kestion100

Je ne parviens pas à compter i max pour une boucle

Code:

---

for i = 1 to max

---

---

Voir avec

Code:

---

For i = 1 to ActiveSheet.Shapes.Count

---

si ça marche.
Cordialement.

Cette formule compte les shapes dans lesquelles sont groupées mes TextBox et les boutons et ne compte que 5 or les bons chiffres sont 2 shapes (or boutons) qui regroupent en tout 8 Textbox.

Je cherche donc à obtenir 8