Ne pas prendre ne compte les lignes vides

hshs -  
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,

J ai ce code qui calcule une moyenne de jours pour chaque personne, mais quand il y a des lignes vides sur ma feuille "All" ca me donne des trop grands chiffres j ai fait une condition if mais ca marche pas
Est ce que vous pouvvez m aider pleaaaaase

'average for each validator and total
For Each rCell In Worksheets("Ratios").Range(Worksheets("Ratios").Cells(8, 3), Worksheets("Ratios").Cells(8, lastLignRatio))
nbDate = 0
sumDate = 0

For i = 2 To lastLignAll
If Worksheets("All").Range("M" & i).Value = rCell And IsDate(Worksheets("All").Range("K" & i).Value) And IsDate(Worksheets("All").Range("N" & i).Value) Then
sumDate = sumDate + (Worksheets("All").Range("N" & i).Value - Worksheets("All").Range("K" & i).Value)
sumDateTotal = sumDateTotal + (Worksheets("All").Range("N" & i).Value - Worksheets("All").Range("K" & i).Value)
nbDate = nbDate + 1
nbDateTotal = nbDateTotal + 1
ElseIf IsDate(Worksheets("All").Range("K" & i).Value) = False Or IsDate(Worksheets("All").Range("N" & i).Value) = False Then
sumDate = sumDate + 0
sumDateTotal = sumDateTotal + 0
End If
Next
If nbDate > 0 Then
sumDate = sumDate / nbDate
Else
sumDate = 0
End If

1 réponse

Réponse 1 / 1
michel_m Messages postés 16602 Date d'inscription   Statut Contributeur Dernière intervention   3 314
 
bonjour

Cells(8, 3) ????
= la cellule située ligne 8 colonne 3 ou range("C8")
--->écrite cells(ligne,colonne)

"quand il y a des lignes vides"
et dans le code "quand la cellule n'est pas une date", ce qui n'est pas pareil
0