VBA: Définir une valeur par défaut pour un range d'activeX combobox

Bonjour tout le monde,

J'ai une question qui parait facile mais que je n'ai pas trouvé de solution !

J'ai un range définit d'activeX combobox et je veux via une macro réinitialiser toutes les valeurs affichées et mettre une valeur précise.
J'ai essayé ceci mais ça ne marche pas:

Code:

---

1 2 3 4 5 6

Option Explicit Sub Worksheet_Activate() Dim ws As Worksheet Set ws = Sheets("Ma_feuille") ws.Range("B2,D20").Value = "ma_valeur_par_défaut" End Sub

---

Quelqu'un peut m'aider svp ?

j'ai testé ça marche

Code:

---

1 2 3 4 5

Sub Worksheet_Activate() Dim ws As Worksheet Set ws = Sheets("Ma_feuille") ws.Range("B2,D20").Value = "ma_valeur_par_défaut" 'place une valeur dans les cellules B2 et D20 uniquement End Sub

---

Code:

---

1 2 3 4 5

Sub Worksheet_Activate() Dim ws As Worksheet Set ws = Sheets("Ma_feuille") ws.Range("B2:D20").Value = "ma_valeur_par_défaut" 'place une valeur dans les cellules de B2 à D20 uniquement End Sub

---

Code:

---

1 2 3 4 5

Sub Worksheet_Activate() Dim ws As Worksheet Set ws = Sheets("Ma_feuille") ws.UsedRange.Value = "ma_valeur_par_défaut" 'place une valeur dans la plage de cellules utilisées End Sub

---

Merci beaucoup pour votre réponse, c'est presque fait sauf que je veux ajouter une condition, que si la valeur existante est différente de la valeur par défaut que je veux poser, je veux que la macro change cette valeur uniquement,

J'ai fait ça mais ça marche pas :(

Code:

---

1 2 3 4 5 6 7 8

Sub Worksheet_Activate() Dim ws As Worksheet Set ws = Sheets("Ma_feuille") If Range("B2,D20").Cells.Value = "AZERTY" Then ws.UsedRange.Value = "ma_valeur_par_défaut" 'place une valeur dans la plage de cellules utilisées End If End Sub

---