Moyene avec selection des valeurs à prendre
Résolu
godzila182
-
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
ccm81 Messages postés 10909 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Moyene avec selection des valeurs à prendre
- Prendre photo avec webcam - Guide
- Prendre une photo avec son mac - Guide
- Prendre des mesures avec son telephone - Guide
- Moyenne avec coefficient excel - Guide
- Prendre un instantané pdf - Forum PDF
3 réponses
Essaies comme ceci
Cdlmnt
Public Function MoyCoul(plage1 As Range, plage2 As Range) As Single
Dim li As Long, nbli As Long, n As Long, total As Single
Application.Volatile
nbli = plage1.Rows.Count
total = 0
n = 0
For li = 1 To nbli
If plage1.Cells(li, 1).Interior.ColorIndex <> 3 Then
n = n + plage1.Cells(li, 1)
total = total + plage2.Cells(li, 1)
End If
Next li
MoyCoul = total / n
End Function
Cdlmnt
Pour faire joli, tu peux ajouter une vérification du nombre de lignes qui doit être identique dans les deux plages
Si c'est fini, merci de mettre le sujet à Résolu (sous le titre de ta question)
Bonne fin de journée
Public Function MoyCoul(plage1 As Range, plage2 As Range)
Dim li As Long, nbli As Long, n As Long, total As Single
Application.Volatile
nbli = plage1.Rows.Count
If nbli <> plage2.Rows.Count Then MoyCoul = "ERREUR": Exit Function
total = 0
n = 0
For li = 1 To nbli
If plage1.Cells(li, 1).Interior.ColorIndex <> 3 Then
n = n + plage1.Cells(li, 1)
total = total + plage2.Cells(li, 1)
End If
Next li
MoyCoul = total / n
End Function
Si c'est fini, merci de mettre le sujet à Résolu (sous le titre de ta question)
Bonne fin de journée
Si j'enleve A3, j'enleve aussi B3