Vinc
XLDnaute Junior
-Bonjour à vous, je sèche un peu sur ma ligne de commande VBA et souhaiterais avoir votre contribution...
-Je souhaite dans une plage donné compter le nombre de cellule avec une bordure oblique...
Voici ma fonction VBA appelée LineNB :
Ensuite dans la cellule ou je souhaite comptabiliser le nombre de bordure j'ai inscris la fonction suivante :
Merci de votre aide car ca reste toujours à 0..
-Je souhaite dans une plage donné compter le nombre de cellule avec une bordure oblique...
Voici ma fonction VBA appelée LineNB :
Code:
Function LineNB(Plage As Range) As Long
Application.Volatile
Dim Cel As Range
For Each Cel In Plage.Cells
If Selection.Borders(xlDiagonalUp).LineStyle = xlContinuous Then LineNB = LineNB + 1
Next Cel
End Function
Ensuite dans la cellule ou je souhaite comptabiliser le nombre de bordure j'ai inscris la fonction suivante :
Code:
=LineNB(B5:H105)
Merci de votre aide car ca reste toujours à 0..