De-fusionner des domaines

Bonjour le forum,
TOUT fonctionne bien avec les conseils de patricktoulon pour un autre problème.
Maintenant j'ai les domaines suivant à dé-fusionner.

Code:

---

"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.

Code:

---

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

Bonjour,


est-ce que je suis le seul à ne pas comprendre de quoi tu parle quand tu dis domaine ?

pour Wikipedia :

Citation:

---

Un domaine est l'ensemble des maisons, des dépendances et des terres agricoles qui entourent les jardins et les terrains d'une très grande propriété, comme une maison de campagne ou un hôtel particulier.

---

c'est cela ? :roll:

Oui c'est bien ça. Terres à mettre en culture puis en jachère!!!

Je plaisantais en disant cela ... dis nous plutôt comment est représenté ton nom de domaine sur ton fichier ... c'est quoi ..? une valeur dans une colonne ( si oui n'oublie pas de préciser... laquelle, comment...)

Je l'ai pris comme tel!!!
Terres à mettre en culture puis en jachère (fusionnée et dé-fusionnée)!!!
Je suis en train d'y gratter un peu et soumet à votre sagacité le résultat...si résultat il y a!!!
Bien cordialement

Voilà le résultat de mes cogitations et ça fonctionne.
Bonne fin de journée à vous tous
Bien cordialement

Code:

---

1 2 3 4 5 6 7

Sub DefusionnerCellules() With Range("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") .MergeCells = False .Interior.ColorIndex = 36 .HorizontalAlignment = xlCenterAcrossSelection End With End Sub

---