Traiter un ensemble de cellule dans une fonction

Bonjour à tous,

N'étant pas un pro du VBA, je suis désolé si ma question est un peu simpliste.

J'aimerais compter un nombre de cellules (mais ce n'est pas une plage) dont le format - bordure comporte les obliques (croix).

Exemple ci-dessous ne fonctionne pas car la fonction appelée attend une plage de cellule :

la cellule qui appelle la fonction : =NbFormatDiag(H23;H27;H31;H35;H39)

la fonction :

Function NbFormatDiag(plage As Range)

Dim c As Range

Application.Volatile

For Each c In plage

NbFormatDiag = NbFormatDiag - (c.Borders(xlDiagonalDown).LineStyle <> xlNone And c.Borders(xlDiagonalUp).LineStyle <> xlNone)

Next c

End Function

Merci pour votre aide

Bonjour,

Ta fonction n'attend qu'un seul paramètre, il faut l'utiliser ainsi :

=NbFormatDiag((H23;H27;H31;H35;H39))

eric

Bonsoir Eric et un grand MERCI,

Ca marche parfaitement