Discussion :

[Korleone]

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 !

[Pierre Fauconnier]

Bonjour

Via une fonction perso

Code :

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

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 :

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

=Nombre_Cellules_Fusionnees(A1)

pour obtenir 2 comme réponse

Ok?

[Korleone]

Ça fonctionne à merveille!

Merci Pierre pour ton aide précieuse !!

[AsktoKnow]

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.

[traersa]

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

Code :

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

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