Discussion :

[Kestion100]

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.

[Kestion100]

J'arrive à sélectionner 1 textbox:

Code :

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

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 :

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

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

Je ne parviens pas à compter i max pour une boucle

Code :

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

for i = 1 to max

[laurent_ott]

Je ne parviens pas à compter i max pour une boucle

Code :

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

for i = 1 to max

Voir avec

Code :

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

For i = 1 to ActiveSheet.Shapes.Count

si ça marche.
Cordialement.

[Kestion100]

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