[VBA-E]Selectionner une plage et la fusionner

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:

---

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…

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

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:

---

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

---

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.

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"

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

Code:

---

Cf.HorizontalAlignment = xlCenterAcrossSelection

---

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