Instruction For Each

[jarmow]

Bonjour,

Je voudrais à l'aide d'une macro remettre le choix de toutes mes listes déroulantes au 1er choix. J'ai essayé le code suivant :

Sub raz()

' Remet toutes les listes déroulantes au premier choix

Dim CB As ComboBox

Sheets("Contrôle").Select

For Each CB In Contrôle.ComboBox
    CB.ListIndex = 1
Next CB

End Sub

Cependant, lorsque j'exécute le code, j'ai l'erreur suivante:

Erreur d'exécution 424:
Objet requis




Que faire ???

Merci de votre aide

 

[camarchepas]

Re : Instruction For Each

Bonjour ,

Voir comme ceci

CB.ListIndex = -1

 

[jarmow]

Re : Instruction For Each

Bonjour,

Même souci, Excel me retourne le même message.

 

[Pierrot93]

Re : Instruction For Each

Bonjour,

essaye peut être ceci :

For Each cb In Contrôle.DropDowns
    cb.ListIndex = 0
Next d

bon après midi
@+

 

[jarmow]

Re : Instruction For Each

Bonjour Pierrot93,

Encore le même problème...

 

[Pierrot93]

Re : Instruction For Each

Re,

bah... mets un tout petit fichier que l'on puisse reproduire le cas... et pendant que tu y es, indique la version excel concernée...

 

[Dranreb]

Re : Instruction For Each

Bonjour.

J'y vais aussi de ma proposition au pif (pas de classeur joint) :

Sub raz()

' Remet toutes les listes déroulantes au premier choix

Dim OLE As OLEObject

For Each OLE In Sheets("Contrôle").OLEObjects
   If TypeName(OLE.Object) = "ComboBox" Then OLE.Object.ListIndex = 0
   Next OLE

End Sub

 

[jarmow]

Re : Instruction For Each

Voici le fichier concerné (il est en construction, d'où la mise en page non soignée)

 

[Pierrot93]

Re : Instruction For Each

Re,

modifie comme suit :

Sub raz()
Dim CB As DropDown
For Each CB In Feuil2.DropDowns
    CB.ListIndex = 0
Next CB
End Sub

 

[jarmow]

Re : Instruction For Each

Super ça marche !!!
Je viens de comprendre mon erreur, à savoir que j'ai confondu objet et collection.
Un grand merci à toi Pierrot93

 

[Pierrot93]

Re : Instruction For Each

Re,

A noter également qu'il s'agit de controles de type formulaire et non "activex"...