Discussion :

[Un Internaute]

Bonjour le forum,
Comme indiqué dans le titre y a t-il à faire mieux?
C'est pour défusionner des cellules sur 3 colonnes (G H I) avec 3 couleurs différentes pour passer sur l'année suivante.
Merci pour vos retours
Cordialement

Voici la macro:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub DefusionnerLignesSimulation()
With Range("G3:I4,G84:I84,G87:I87,G89:I89,G91:I91")
  .MergeCells = False  'False pour Défusionner
  .Interior.ColorIndex = 40
  .HorizontalAlignment = xlCenterAcrossSelection
With Range("G5:I5,G26:I26,G47:I47,G68:I68")
  .MergeCells = False
  .Interior.ColorIndex = 24
  .HorizontalAlignment = xlCenterAcrossSelection
With Range("G85:I85,G88:I88,G90:I90,G92:I92")
  .MergeCells = False
  .Interior.ColorIndex = 36
  .HorizontalAlignment = xlCenterAcrossSelection
 
End With
End With
End With
End Sub

[casefayere]

Bonjour,
au départ, si tu veux améliorer ton fichier, évites les fusions de cellules (déconseillé), d'autres moyens sont possibles (centrer sur plusieurs colonnes, etc.)

sinon, je ne vois pas grand-chose, si tu es pour enlever la fusion partout, tu prends toute la plage

Code :

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

1
2
3
4
5
6
7
8
9
Sub DefusionnerLignesSimulation()
With Range("G3:I92")
  .MergeCells = False
  .HorizontalAlignment = xlCenterAcrossSelection
End With
Range("G3:I4,G84:I84,G87:I87,G89:I89,G91:I91").Interior.ColorIndex = 40
Range("G5:I5,G26:I26,G47:I47,G68:I68").Interior.ColorIndex = 24
Range("G85:I85,G88:I88,G90:I90,G92:I92").Interior.ColorIndex = 36
End Sub

[Un Internaute]

Bonjour casefayere,
Merci pour ton idée mais j'ai changé mon programme ça n'a plus rien à voir.
Excuse mon retard mais j'étais absent.
Bonne journée à toi
Bien cordialement