Ne pas prendre ne compte les lignes vides

Fermé
hshs - 16 juin 2016 à 13:19
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 19 juin 2016 à 08:13
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
A voir également:

1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
19 juin 2016 à 08:13
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