Discussion :

[Couettecouette]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Couettecouette]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Couettecouette]

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