XL 2016 Effacer texte dans combobox

[Mimi]

Bonjour à tous,

Avec le bouton j'efface la cellule J1 et j'essaie d'effacer les deux combobox

mais voila il beugue sur la ligne en jaune

Comment je pourrais faire ??

D'avance merci

Mimi

 

[youky(BJ)]

Bonjour Mimi,
Listindex peux renvoyer 0 donc bug
Change aussi la ligne du For j'ai enlevé +1, et enlève le .value dans Macro1
Bruno

ColonneDonnées = (ComboBox1.ListIndex + 1 * 6) - 4
End If
For Each cell In .Range(.Cells(2, ColonneDonnées ), .Cells(.Cells(10000, ColonneDonnées ).End(xlUp).Row, ColonneDonnées))

Sub Macro1()
    Range("J1").Select
    Selection.ClearContents
    ComboBox1 = ""
    ComboBox2 = ""
End Sub

 

[Mimi]

Bonjour Bruno,
Le principe de vider est bon, mais pour la recherche avec la combobox2 dans ma bases ne fonctionne plus.
Merci

 

[youky(BJ)]

Re,
Voici une autre façon de faire avec un formulaire c'est mieux.
Bruno

 

[Mimi]

Merci bruno je vais regarder sa en détail
Encore merci

 

[youky(BJ)]

Bonsoir,
Si tu préfère comme tu l'avais fait sans userform voici
Bruno

 

[Mimi]

Bonjour Bruno,
Merci beaucoup c'est impeccable
Encore merci
Michel