XL 2019 Copier coller et fusionner

[math004]

Bonjour,
Je suis novice en VBA et j’ai besoin d’aide. Je cherche à créer une macro qui copie/ colle une cellule et les fusionne par la suite.

Par exemple, je veux copier coller la cellule a1 dans la cellule E1 et la fusionner avec les cellules F1 et G1. Dans la cellule B1, j’ai le chiffre 5 pour la colonne de destinations dans la la cellule c1, j’ai le chiffre 3 pour la fusion. J’ai environ 400 lignes à faire ...

Merci d’avance!

 

[job75]

Bonsoir math004, bienvenue sur XLD,

Les éléments que vous donnez ne permettent pas d'établir une règle générale pour créer une macro.

A+

 

[math004]

Bonjour,
J'ai fait un exemple. J'ai mes trois colonnes et le résultat dans la section résultat.

merci!

 

[job75]

Bon j'ai compris, utilisez cette macro :

Sub Fusionner()
Dim i&, P As Range, resu As Range
Application.ScreenUpdating = False
On Error Resume Next 'sécurité
With [A1].CurrentRegion
    .Columns(4).Resize(, Columns.Count - 3).Delete xlToLeft 'RAZ
    .Columns(4).Resize(, Columns.Count - 3).HorizontalAlignment = xlCenter 'centrage
    For i = 2 To .Rows.Count
        .Cells(i, .Cells(i, 2)).Resize(, .Cells(i, 3)).Merge 'fusion
        .Cells(i, .Cells(i, 2)) = .Cells(i, 1)
        Set P = .Cells(1, .Cells(i, 2)).Resize(, .Cells(i, 3)) 'en ligne 1
        Set resu = .Range(IIf(resu Is Nothing, P, resu), P)
    Next
End With
resu.Merge 'fusion en ligne 1
resu = "Résultat"
End Sub