macro fusion de cellules Résolu

Question

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

f894009 · Accepted Answer

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

lg · Answer

wow ! quelle rapidité ! merci. Je vais testé ca demain mais merci. 

Cordialement

lg · Answer

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

Macro fusion de cellules

3 réponses

Discussions similaires

Newsletters