[VBA-E] Compter les cellules fusionnées

Bonjours,

Y a t'il un moyen de compter le nombre de cellules fusionnées entre elles dans une colonne?
Si par exemple A1 est fusionnée avec A2, il faut écrire 2 dans B1
Si dans la même colonne, A3 est fusionnée avec A4 et A5, il faut écrire 3 dans B3
et ainsi de suite.

Merci de votre aide !

Bonjour

Via une fonction perso

Code:

---

1 2 3 4

Function Nombre_Cellules_Fusionnees(Selection As Range) Nombre_Cellules_Fusionnees = Selection.MergeArea.Cells.Count End Function

---

que tu peux utiliser dans une cellule. Ainsi, si A1 et A2 sont fusionnées, en B1, tu peux avoir

Code:

---

=Nombre_Cellules_Fusionnees(A1)

---

pour obtenir 2 comme réponse

Ok?

Ça fonctionne à merveille!

Merci Pierre pour ton aide précieuse !!

bonjour, je me permet de déterrer la hache de guerre car je voudrais adapter cette formule à mon cas :
je voudrais que cette formule concerne une plage de cellule dans laquelle il y a plusieurs plage de cellule fusionnée. Il faudrait que la formule renvoie le nombre total de cellules fusionnées (donc la somme des cellules des 2 plages).

exemple : A1 et A2 fusionnées, A4 et A5 fusionnées. La formule, rentrée en A7, porterais sur les cellules A1 à A6 et renverrais 4.

Voilà, merci pour votre attention.

Je pense que ça correspond à ta demande même s'il doit y avoir plus simple

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Function Nombre_test(Selection As Range) Nombre_test = 0 For Each cellule In Selection.Cells If cellule.Address = cellule.MergeArea.Address Then Nombre_test = Nombre_test + 1 ElseIf temp <> cellule.MergeArea.Address Then temp = cellule.MergeArea.Address Nombre_test = Nombre_test + 1 End If Next End Function

---