Bonjour le forum,
TOUT fonctionne bien avec les conseils de patricktoulon pour un autre problème.
Maintenant j'ai les domaines suivant à dé-fusionner.
"G8:I8,G9:I9,G10:I10,G11:I11,G13:I13,G14:I14,G15:I15,G16:I16,G26:I26,G27:I27,G28:I28,G29:I29,G31:I31,G32:I32,G33:I33,G34:I34,G44:I44,G45:I45,G46:I46,G47:I47,G49:I49,G50:I50,G51:I51,G52:I52,G62:I62,G63:I63,G64:I64,G65:I65,G67:I67,G68:I68,G69:I69,G70:I70"
Voici la macro faites par patricktoulon concernant mon premier problème.
1 2 3 4 5 6 7 8 9 10 11 12 13
| Sub DefusionnerCellules()
Dim addr As String
With ActiveSheet
For Each Cel In Range(Cells(8, "G"), Cells(Rows.Count, "G").End(xlUp))
If Cel.MergeCells = True Then
addr = Cel.MergeArea.Address
Couleur = Cel.MergeArea(1).Interior.Color
Cel.MergeCells = False
Range(addr).Interior.Color = Couleur
End If
Next
End With
End Sub |
Où dois-je mettre les noms de domaines dans la macro ou faire autre macro?
Merci d'avance pour vos conseils
Bien cordialement
Partager