Marco fusion à partir des indices
ramzi
-
Hidalgo454 -
Hidalgo454 -
Bonjour,
J'ai besoin de faire fusionner un très grand nombre de cellule. Le fichier contient 1255 ligne et une colonne. Je connais les indices des cellules à fusionner (ou les numéros des lignes) : Dans une autre feuille j'ai une colonne où il y a les indice où elle commence la fusion et une autre colonne où elle se termine.
MERCI.
J'ai besoin de faire fusionner un très grand nombre de cellule. Le fichier contient 1255 ligne et une colonne. Je connais les indices des cellules à fusionner (ou les numéros des lignes) : Dans une autre feuille j'ai une colonne où il y a les indice où elle commence la fusion et une autre colonne où elle se termine.
MERCI.
1 réponse
-
Bonjour
une proposition à tester et adapter
Sub Macro()
Dim WS1 As Worksheet, WS2 As Worksheet, i As Integer, Rep As Long
Set WS1 = Worksheets("Feuil4") ' feuille de cellule à fusionner ,à adapter
Set WS2 = Worksheets("Feuil5") ' feuille des indices ,à adapter
Rep = MsgBox("Seule la première ligne des cellules fusionnées sera conservée." & vbLf & "Poursuivre ?", vbYesNo)
If Rep = vbNo Then Exit Sub
Application.DisplayAlerts = False
With WS2
For i = 1 To WS2.Range("A" & Rows.Count).End(xlUp).Row
WS1.Range("A" & .Cells(i, 1) & ":A" & .Cells(i, 2)).MergeCells = True
Next
End With
Application.DisplayAlerts = True
End Sub
A+
