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.
A voir également:
- Marco fusion à partir des indices
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Comment faire une recherche à partir d'une photo - Guide
- Comment fusionner des pdf sans logiciel - Guide
- Display fusion - Télécharger - Divers Utilitaires
- Fitness park a partir de quel age - Forum Loisirs / Divertissements
1 réponse
Bonjour
une proposition à tester et adapter
A+
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+
- Compte 100% Forever Free,
- AUCUN frais d'inscription,
- pas de frais de traitement,
- pas de frais cachés.
- Viabox est le seul transitaire qui accepte bitcoins.