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

Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
1 septembre 2010
- 18 févr. 2005 à 11:23 - Dernière réponse :
Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
1 septembre 2010
- 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
Messages postés
402
Date d'inscription
vendredi 6 août 2004
Dernière intervention
12 octobre 2008
- 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

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 88 internautes ce mois-ci

Messages postés
4066
Date d'inscription
mardi 13 mai 2003
Dernière intervention
23 décembre 2008
- 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.
Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
1 septembre 2010
- 18 févr. 2005 à 11:57
0
Merci
Il n'y a pas de propriétés pour Activesheet ou Application.Activsheet


--------------------------------------------------------------------------------
Phantom_2005
Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
1 septembre 2010
- 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
Messages postés
184
Date d'inscription
mercredi 8 décembre 2004
Dernière intervention
1 septembre 2010
- 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.