XL 2013 Combobox

danone16 · Mardi à 21:51

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 · Mardi à 22:12

Bonjour Danone,
Essayez ceci :

VB:

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

sylvanu · Mardi à 22:12

Bonjour Danone,
Essayez ceci :

VB:

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 · Mardi à 22:14

Bonsoir.
Essayez comme ça :

VB:

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 :

VB:

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

XL 2013 Combobox

danone16

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires

XL 2013 Combobox

danone16

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency