TextBox et cellule fusionnée

Bonjour,

J'ai un souci que je n'arrive absolument pas à résoudre ... et qui est pourtant résolvable puisque j'ai déjà rencontré le cas et que ça a marché (mais j'ai oublié comment ! arf).

J'ai donc une macro qui fait appelle à une TextBox et donc le résultat se met sous forme de liste déroulante. Mon problème est que la liste déroulante est sur 3 cellules fusionnées et c'est la fusion des cellules qui coince !

Voici la macro, la cellule fusionnée étant "HUISSIERCHOIX" :

Code:

---

1 2 3 4 5 6

Private Sub TextBoxHuissier_change() Sheets("FORMULAIRE").Unprotect Password:="BOUH" ThisWorkbook.Sheets("FORMULAIRE").Range("HUISSIERCHOIX").ClearContents Range("ChoixDépartementHuissier").Value = TextBoxHuissier.Text ChoixHuissier End Sub

---

Merci pour votre aide.

Bon, n'ayant pas eu de réponse, je pars sur une autre idée mais j'ai une question : peut-on, pour fusionner 3 colonnes par une macro, faire la sélection de la première colonne qui elle porterait un nom jusque la troisième colonne qui ne serait pas forcément toujours par exemple H120 ? Donc en clair, dire "de la colonne HUISSIERCHOIX + colonnes à côté" ...

Code:

---

1 2 3 4 5 6 7 8 9 10

Range("HUISSIERCHOIX:H120").Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter .WrapText = False .Orientation = 0 .AddIndent = False .ShrinkToFit = False .MergeCells = True End With

---

Bon, j'ai fini par trouver ma solution pour le problème 1 ... il suffisait d'ajouter ".MergeArea" avant mon "ClearContents" !!! :yaisse2: