Fusionner 2 colonnes en gardant les lignes

Bonjour.
Sélectionne les cellules de la colonne de gauche et exécute la macro
suivante :
Sub test()
Dim c As Range
For Each c In Selection
Range(c, c.Offset(0, 1)).Merge
Next c
End Sub

Cordialement.
Daniel
"Zémial" <zemial@bluewin.ch> a écrit dans le message de news:
45743a8d$1_3@news.bluewin.ch...

Bonjour.

J'ai un blanc la. :)

J'ai 2 colonnes avec plusieurs lignes et j'aimerai faire qu'une seul
colonne mais en gardant les lignes.
Comment dois-je faire svp?

Merci d'avance pour votre aide.


a+

Zémial

Bonjour. (repost; l'original a été envoyé à 18:01 et je ne l'ai pas encore
reçu !)
Sélectionne les cellules de la colonne de gauche et exécute la macro
suivante :
Sub test()
Dim c As Range
For Each c In Selection
Range(c, c.Offset(0, 1)).Merge
Next c
End Sub

Cordialement.
Daniel

"Zémial" <zemial@bluewin.ch> a écrit dans le message de news:
45743a8d$1_3@news.bluewin.ch...

Bonjour.

J'ai un blanc la. :)

J'ai 2 colonnes avec plusieurs lignes et j'aimerai faire qu'une seul
colonne mais en gardant les lignes.
Comment dois-je faire svp?

Merci d'avance pour votre aide.


a+

Zémial

Il y a aussi ceci : à titre d'exemple

Attention, si tu as des données dans la colonne A et B
les données de la colonne B seront perdues avec cette
procédure.

Sub test()
With Range("A1:B20")
Application.DisplayAlerts = False
.Merge True
Application.DisplayAlerts = True
End With
End Sub



"Zémial" <zemial@bluewin.ch> a écrit dans le message de news: 45743a8d$1_3@news.bluewin.ch...
Bonjour.

J'ai un blanc la. :)

J'ai 2 colonnes avec plusieurs lignes et j'aimerai faire qu'une seul
colonne mais en gardant les lignes.
Comment dois-je faire svp?

Merci d'avance pour votre aide.


a+

Zémial