Parcourir les contrôles d'une feuille [Résolu]

phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 18 févr. 2005 à 11:23 - Dernière réponse : phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention
- 18 févr. 2005 à 14:21
bonjour

j'aimerais savoir comment on peut parcourir tous les contrôles d'une feuille EXCEL un peu à la manière de Access (For each CTL in Me.Controls)??

La collection Controls n'existe pas sous excel.

Merci de votre aide.

@+

--------------------------------------------------------------------------------
Phantom_2005
Afficher la suite 

5 réponses

Meilleure réponse
michelxld 402 Messages postés vendredi 6 août 2004Date d'inscription 12 octobre 2008 Dernière intervention - 18 févr. 2005 à 14:02
3
Merci
bonjour

les objets "Controls " sont dans les Userforms

Si les objets sont dans la feuille tu peux utiliser "OLEObject"
j'espere que cette adaptation pourra t'aider :

Dim CtlChkBox As OLEObject


For Each CtlChkBox In ActiveSheet.OLEObjects
If TypeOf CtlChkBox.Object Is MSForms.CheckBox Then
'Blablabla
End If
Next CtlChkBox

bon apres midi
michel

Merci michelxld 3

codes-sources a aidé 79 internautes ce mois-ci

econs 4066 Messages postés mardi 13 mai 2003Date d'inscription 23 décembre 2008 Dernière intervention - 18 févr. 2005 à 11:49
0
Merci
Tu dois pouvoir trouver la collection Controls dans l'objet ActiveSheet.




Manu
-------------------------------------------
Une question bien posée, c'est une chance de réponse bien adaptée.
phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 18 févr. 2005 à 11:57
0
Merci
Il n'y a pas de propriétés pour Activesheet ou Application.Activsheet


--------------------------------------------------------------------------------
Phantom_2005
phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 18 févr. 2005 à 12:02
0
Merci
voila un petit bout de mon code:

Private Sub Worksheet_Activate()


Dim CtlChkBox As Control


For Each CtlChkBox In Application.ActiveSheet.Controls
Select Case TypeName(CtlChkBox)
Case "Checkbox":
'Blablabla
End Select
Next CtlChkBox


End Sub


Erreur a cette ligne 'Propriété non gérée par cet objet'
For Each CtlChkBox In Application.ActiveSheet.Controls

---------------------------------------------------------------------------------------------
Phantom_2005
phantom_2005 184 Messages postés mercredi 8 décembre 2004Date d'inscription 1 septembre 2010 Dernière intervention - 18 févr. 2005 à 14:21
0
Merci
Merci bien michelxld, ca fonctionne parfaitement!

@+

--------------------------------------------------------------------------------
Phantom_2005

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.