Discussion :

[Un Internaute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Bonjour,


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

pour Wikipedia :

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 ?

[Un Internaute]

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

[SfJ5Rpw8]

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

[Un Internaute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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