Macro fusion de cellules

Résolu
lg -  
 lg -
Bonjour,

j'ai un fichier excel 2010, sur 1 colonne j'ai :
cellule 1 avec une valeur
cellule (dessous) 2 est vide
cellule 3 avec une valeur
cellule (dessous) 4 est vide
...
je voudrais fusionner la ligne 1 avec la 2 et la ligne3 avec la 4, ...

Comment s'y prendre ?

Cordialement
A voir également:

3 réponses

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

A adapter a votre besoin

Sub Macro1()
  'butee a definir
  Const fin = 30
  For x = 1 To fin Step 2
    With Worksheets("feuil1").Range("A" & x & ":A" & x + 1)
      .HorizontalAlignment = xlCenter
      .VerticalAlignment = xlBottom
      .WrapText = False
      .Orientation = 0
      .AddIndent = False
      .IndentLevel = 0
      .ShrinkToFit = False
      .ReadingOrder = xlContext
      .MergeCells = True
    End With
  Next x
    
End Sub
2
lg
 
wow ! quelle rapidité ! merci. Je vais testé ca demain mais merci.

Cordialement
0
lg
 
Je l'ai modifié et ca marche nickel ! Merci beaucoup !

Cordialement

L
0