for each control in ....

[Léa]

bonsoir tout le monde,

J'ai un énorme trou de mémoire
Je veux balayer tous les controles présents sur une feuille
pour cela je veux utiliser la boucle

For each control in ........
Next

mais que faut-il mettre à la place des petits points ?
Si j'étais dans un USF : Me!'mon Usf' conviendrait, mais dans une feuille je ne trouve plus

Merci à tous

 

[CBernardT]

Bonsoir Léa

essaies avec :

ActiveSheet.Shapes.Count

Cordialement

CBernardT

 

[Léa]

Bonsoir CBernardT,

C'est gentil, mais j'ai toujours la même erreur
'Objet requis'
J'ai cherché avant de faire appel, j'ai fait de nombreux essais, et je m'en veux car j'ai complètement oublié la syntaxe dans le cas de contrôles situés dans une feuille, ou alors je fais une grosse bétise qui m'échappe

Encore merci et bonne soirée

 

[CBernardT]

Re,

Je ne connais pas ton dossier mais peut être est-ce simplement une affaire de déclaration de variable.

Sub Eventail ()
Dim Control As Variant
For Each Control In ActiveSheet.Shapes
Control.Select
Next Control
End Sub


A+

CBernardT

 

[Eric C]

Bonsoir le forum
Bonsoir Léa, bonsoir CBernardT

Peut être que :

Contrôles de feuille :

Dim Obj as Object
For Each Obj in ActiveSheet.OLEObjects
...

 

[Léa]

eh ben voila
C'est bien ce que je disais, je me plantais et je ne voyais pas la bourde
Je déclarais mon checkbox en tant que control

C'est toujours comme cela on passe un temps fou sur de telles bétises, il est vrai que la fatigue aidant, on n'est plus très efficace
Il est grand temps d'aller se coucher, donc je vous embrasse, et vous souhaite une bonne nuit

Encore merci, je dormirai mieux