A voir également:
- Marco fusion à partir des indices
- Creer un groupe whatsapp a partir d'un autre groupe - Guide
- Annuaire portable gratuit a partir d'un nom - Forum Réseaux sociaux
- Comment fusionner des pdf sans logiciel - Guide
- Trouver un nom à partir d'une adresse ✓ - Forum Loisirs / Divertissements
- Comment faire une recherche à partir d'une photo - Guide
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+
30 mai 2016 à 19:36
- 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.