Compter les "xlDiagonalUp"

skoobi

XLDnaute Barbatruc

• 1 Décembre 2008

• #2

Re : Compter les "xlDiagonalUp"

Bonjour,

remplace "Selection" par "Cel":

If Cel.Borders(xlDiagonalUp).LineStyle = xlContinuous Then LineNB ...

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 1 Décembre 2008

• #3

Re : Compter les "xlDiagonalUp"

Bonjour vinc, Skoobi🙂

une autre soution, pour tous les styles de ligne :

Code:

If cel.Borders(6).LineStyle <> -4142 Then LineNB = LineNB + 1

bonne journée
@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 1 Décembre 2008

• #4

Re : Compter les "xlDiagonalUp"

Bonjour Vinc, skoobi, Pierrot, le forum,

Essayer :

Code:

Function LineNB(plage As Range) As Long
Application.Volatile
Dim Cel As Range
For Each Cel In plage
LineNB = LineNB - (Cel.Borders(xlDiagonalUp).LineStyle <> xlNone)
Next Cel
End Function

Il est rappelé que dans une opération, True se converti en -1

Quand on modifie simplement le format des cellules, la fonction n'est pas recalculée. Pour obtenir le recalcul, appuyer sur la touche F9.

A+

 

Vote positif 0 Vote négatif

V

Vinc

Guest

• 2 Décembre 2008

• #5

Re : Compter les "xlDiagonalUp"

Merci pour vos réponses... Merci "skoobi", je suis vraiment tombé de haut quand j'ai vu la réponse et cela n'a pas été le manque de chercher 😡

Sinon "Job75" j'ai essayé ta solution et je confirme qu'elle fonctionne à merveille aussi...

 

Vote positif 0 Vote négatif