XL 2016 Effacer des cellules a partir d'une combobox

[tmolle6085]

J’utilise cette commande

Rows([A9:A100].Find(ComboBox1.Value).Row).EntireRow.ClearContents

Mais je souhaiterais effacé uniquement les cellules des colonnes A et B et non toute la ligne.
Si quelqu’un peut m'aider
Merci

 

[Nairolf]

Salut,

Peut-être avec ceci :

Range("A" & [A9:A100].Find([A1].Value).Row & ":B" & [A9:A100].Find([A1].Value).Row).ClearContents

 

[job75]

Bonsoir tmolle6085, bienvenue sur XLD, salut Nairolf,

Soit :

On Error Resume Next
[A9:A100].Find(ComboBox1, , xlValues, xlWhole).Resize(, 2).ClearContents

soit :

On Error Resume Next
[A9:A100].Find(ComboBox1, , xlValues, xlPart).Resize(, 2).ClearContents

suivant que la recherche est totale ou partielle.

A+

 

[tmolle6085]

Merci à vous 2. Les 2 fonctionnents parfaitement.
bonne soirée