Discussion :

[arkazar]

Après plusieurs essais dans tous les sens, je fais appel a vous.

Après avoir colorisé une plage de cellules en fonction d’un test pour que la couleur s'arrête là ou s'arrêtent les données, je voudrai ensuite sélectionner cette plage et la fusionner de manière à y mettre le titre de mon tableau. Si quelqu’un peut m’aider j’en serais ravi. D’avance MERCI.

Code :

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

1
2
3
4
5
For Each f In Range("A1:AZ1")
        If f.Offset(1, 0).Value <> "" Then
            f.Interior.ColorIndex = 35
       End If
Next f

J’ai essayé en mettant « f » dans un Range suivi d'un Merge mais rien et dans Cell idem…

[random]

on ne fusionne jamais de cellule
c'est une règle de base
on fait format centrer sur plusieurs colonnes
sinon c'est la cata qui t'attend

[SfJ5Rpw8]

ne connaissant pas la régle de base cité précédament... il m'arrive de fusionner des cellules...

tiens voilà le code demandé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim Cf As Range 'cellule fusionnée
For Each f In Range("A1:AZ1")
If f.Offset(1, 0).Value <> "" Then
  If Cf Is Nothing Then
    Set Cf = f
  Else
    Set Cf = Union(Cf, f)
  End If
  f.Interior.ColorIndex = 35
End If
Next f
 Cf.MergeCells = True
End Sub

[Megaxel]

Ha bon? C'est une règle de base?
Tu peux être plus précis sur les risques, parce que je ne vois pas très bien.

[arkazar]

Ok merci j'en prends bonne note, avant de centrer sur plusieurs colonnes il faut que je puisse savoir les ref de début et de fin de ce qui a été colorisé. Et c'est que je bloque.

Une fois que j'aurais ma selection je pourrais me servir de "xlCenterAcrossSelection"

[SfJ5Rpw8]

ben tu utilise mon code précédent en remplaçant la derniére ligne par :

Code :

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

 Cf.HorizontalAlignment = xlCenterAcrossSelection

[arkazar]

C'est super ça marche niquel,
Un grand MERCI à Toi