Macro fusion de cellules

Résolu/Fermé
lg - 14 nov. 2012 à 17:03
 lg - 16 nov. 2012 à 12:17
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

3 réponses

f894009
Messages postés
16496
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
24 mai 2022
1 633
14 nov. 2012 à 17:31
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
wow ! quelle rapidité ! merci. Je vais testé ca demain mais merci.

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

Cordialement

L
0