VBA - calculer le nombre de zones fusionnées sur une ligne

Bonjour à tous,

Comme toujours un exemple est toujours mieux qu'un long discourt

J'ai sur la 1ère ligne , 4 zones fusionnées concomitantes depuis la 1ière colonne

Je veux passer de zone fusionnée en zone fusionnée sachant que la donnée est toujours sur la première cellule de la zone fusionnée.

Je dois absolument connaitre le nombre de zones fusionnées car je concatène les données de chaque zone et les sépare par une tabulation sachant qu'il est possible qu'aucune donnée soit dans une zone

Merci par avance pour toute aide

Salut,

tu as la possibilité de t'attaquer au problème avec les propriétés MergeArea (de type Range)+ Address qui te donneront les infos de nombre de cellules fusionnées et cellule "principale"

Bonjour Jean-Philippe,

Merci pour l'info mais a priori pas de solution simple :calim2:

Bonjour,

Citation:

---

Envoyé par informer

... a priori pas de solution simple

---

Peut-être qu'une solution simple existe mais ta demande n'est pas très claire :

Citation:

---

Envoyé par informer

J'ai sur la 1ère ligne , 4 zones fusionnées concomitantes depuis la 1ière colonne
Je veux passer de zone fusionnée en zone fusionnée sachant que la donnée est toujours sur la première cellule de la zone fusionnée.

---

Concomitant : veut dire qui se produit ou se présente en même temps !
C'est sûrement pas le cas ...

Peut-être :

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim cel As Range For Each cel In Intersect(ActiveSheet.Rows(1), ActiveSheet.UsedRange).Cells If cel.MergeCells And cel.Address = cel.MergeArea.Cells(1, 1).Address Then MsgBox cel.MergeArea.Address End If Next End Sub

---

Bonjour Patrice740

Tu as tout à fait raison, ce n’est pas concomitant mais CONTIGÜES .:mouarf:

Mais après réflexion il faut oublier CONTIGÜES

Donc ma problématique est de connaître pour une ligne, le nombre de zones fusionnées et l’adresse de la première cellule pour chaque zone fusionnée.

Merci pour ton aide

Re,

Citation:

---

Envoyé par informer

Donc ma problématique est de connaître pour une ligne, le nombre de zones fusionnées et l’adresse de la première cellule pour chaque zone fusionnée.

---

L'adresse, c'est ce que fait le code que je t'ai proposé, il suffit d'y ajouter un compteur.

super Patrice740:ccool:

J’imagine que si

Code:

---

1 2 3

Dim oCells as Cells Set oCells = Intersect(ActiveSheet.Rows(1), ActiveSheet.UsedRange).Celles Débug.print oCells.count ‘—-> nombre de zones fusionnées

---

Je teste la semaine prochaine

Encore merci Patrice740