Fusion de cellule horizontale

[Jean-philippe94]

Bonjour,

J'ai trier des cellules et je souhaite fusionner 2 cellules a chaque lignes automatiquement. J'ai essayer une macro mais je ne sais pas comment faire pour le macro passe a la ligne suivante automatiquement et s'arrete au bout d'un certain nombre de ligne.

voila mon essaye..
'
Range('B81:C81').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range('B81+1:C81+1').Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
End Sub

 

[myDearFriend!]

Bonsoir Jean-philippe94,

De façon simple, tu peux procéder comme suit :

      With Range('B81:C81')
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlBottom
            .WrapText = False
            .Orientation = 0
            .AddIndent = False
            .IndentLevel = 0
            .ShrinkToFit = True
            .ReadingOrder = xlContext
            .MergeCells = True
            .Copy
      End With
      'Même chose de la ligne 82 à 100
      Range(Cells(82, 2), Cells(100, 3)).PasteSpecial Paste:=xlPasteFormats
      Application.CutCopyMode = False

Cordialement,

 

[Jean-philippe94]

Merci de ta reponse, mais je souhaite que la macro passe automatiquement a la ligne suivant et fasse la meme chose avec les 100 ou 200 lignes qui suivent.

D'avance merci

 

[myDearFriend!]

Bonsoir Jean-philippe94, le Forum,

Jean-philippe, as-tu au moins pris la peine de tester ce morceau de code ? :huh:

De deux choses l'une, soit je n'ai rien compris à ta question et là, on a vraissemblablement un problème de langue, soit tu n'as pas testé ce code car il te permet de fusionner les 2 cellules des colonnes B et C de la ligne 81 à la ligne 100 (incluses) d'un seul coup et d'un seul !

L'adapter sur 100 ou 200 lignes en lieu et place des 20 lignes proposées en exemple relève du jeu d'enfant...

Bonne soirée et bon courage pour la suite...

Cordialement,

 

[Marc_du_78]

Bonsoir Didier, Jean Philippe,
excusez-moi de m'inmiscer dans votre fil, comme je débute, je désire seulement savoir si j'ai bien compris :

je pense qu'ici

Range(Cells(82, 2), Cells(100, 3)).PasteSpecial Paste:=xlPasteFormats

il faudrait faire :

Range(Cells(82, 2), Cells(200, 3)).PasteSpecial Paste:=xlPasteFormats

Pour mon instruction, merci de me le confirmer où de me dire si je n'ai pas, comme Jean Philippe, compris.

 

[myDearFriend!]

Bonsoir Marc,

Oui, c'est tout à fait ça.

Pour traiter les 200 lignes suivantes on pourrait même mettre :

Range(Cells(82, 2), Cells(281, 3)).PasteSpecial Paste:=xlPasteFormats

Cordialement,