Parcourir les contrôles d'une feuilleRésolu

Question

bonjour

j'aimerais savoir comment on peut parcourir tous les contr&#244;les d'une feuille EXCEL un peu &#224; la mani&#232;re de Access (For each CTL in Me.Controls)??

La collection Controls n'existe pas sous excel.

Merci de votre aide.

@+

--------------------------------------------------------------------------------
Phantom_2005

michelxld · Accepted Answer

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

econs · Answer

Tu dois pouvoir trouver la collection Controls dans l'objet ActiveSheet.




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

phantom_2005 · Answer

Il n'y a pas de propri&#233;t&#233;s pour Activesheet ou Application.Activsheet


--------------------------------------------------------------------------------
Phantom_2005

phantom_2005 · Answer

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&#233;t&#233; non g&#233;r&#233;e par cet objet'
For Each CtlChkBox In Application.ActiveSheet.Controls

---------------------------------------------------------------------------------------------
Phantom_2005

phantom_2005 · Answer

Merci bien michelxld, ca fonctionne parfaitement!

@+

--------------------------------------------------------------------------------
Phantom_2005

Parcourir les contrôles d'une feuille

5 réponses

Discussions similaires