Discussion :

[Mactao]

Bonjour à tous,

J'ai un petit soucis avec la fonction merge.

Je dispose d'une plage de cellules (disons N lignes et M colonnes) que je souhaiterai merger afin d'obtenir uniquement des lignes (N lignes et 1 colonne).

Je sais le faire en passant par une boucle mais bonjour le temps d’exécution...

Je vous joints mon code avec la boucle.

Code :

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

1
2
3
4
5
6
7
8
9
    For i = 1 To Lignes
        Ligne_Merge = 23 + i
        Range("D" & Ligne_Merge & ":E" & Ligne_Merge).Select
        With Selection
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .MergeCells = True
        End With
    Next i

Ma question : Existe-t-il un moyen de le faire sans passer par une boucle ?

Merci d'avance ^^

[Invité]

Salut,

Il faut "merger" la première ligne et ensuite la copier/coller sur l'ensemble de la plage.