XL 2013 Combobox

[danone16]

Bonsoir
J'ai une feuille Excel qui contient 40 Combobox. Je souhaiterai effacer mes combobox.value="".
Voici ma programmation en VBA qui ne fonctionne pas.

For i=1 to 40
sheets("feuil1").(combobox & i).value=""
Next

Pourriez.vous me donner une aide.
Merci

 

[sylvanu]

Bonjour Danone,
Essayez ceci :

Sub EffacerCompbobox()
    Dim i%
    For i = 1 To 40
        ActiveSheet.OLEObjects("ComboBox" & i).Object.Value = "" ' Efface la valeur affichée
    Next i
End Sub

 

[Dranreb]

Bonsoir.
Essayez comme ça :

Dim OOt As OLEObject
For Each OOt In Sheets("Feuil1").OLEObjects
   If OOt.Name Like "ComboBox*" Then OOt.Object.Value = ""
   Next OOt

Ou bien, un peu plus proche de votre code initial :

Dim OOs As OLEObjects, I As Integer
Set OOs = Sheets("Feuil1").OLEObjects
For I = 1 To 40
   OOs("ComboBox" & I).Object.Value = ""
   Next I