Moyene avec selection des valeurs à prendre
Résolu/Fermé
godzila182
-
19 juin 2015 à 14:54
ccm81 Messages postés 10543 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 mars 2023 - 19 juin 2015 à 15:22
ccm81 Messages postés 10543 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 18 mars 2023 - 19 juin 2015 à 15:22
A voir également:
- Moyene avec selection des valeurs à prendre
- L'indice n'appartient pas à la sélection vba - Forum VB / VBA
- Ce coeur n'est plus a prendre adopte ✓ - Forum Vos droits sur internet
- Musique à prendre ou à laisser ✓ - Forum Musique / Radio / Clip
- Prendre photo avec webcam - Guide
- Prendre le controle d'un pc a distance sans autorisation - Forum Programmation
3 réponses
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
19 juin 2015 à 15:01
19 juin 2015 à 15:01
Bonjour
Est ce que les 2 plages contiguës (ex A1:A10 et B1:B10) ?
Cdlmnt
Est ce que les 2 plages contiguës (ex A1:A10 et B1:B10) ?
Cdlmnt
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
19 juin 2015 à 15:14
19 juin 2015 à 15:14
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
godzila182
Messages postés
2
Date d'inscription
vendredi 19 juin 2015
Statut
Membre
Dernière intervention
19 juin 2015
19 juin 2015 à 15:20
19 juin 2015 à 15:20
Super, ca marche bien. je te remercie pour la rapidité.
ccm81
Messages postés
10543
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
18 mars 2023
2 336
19 juin 2015 à 15:22
19 juin 2015 à 15:22
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
19 juin 2015 à 15:08
Si j'enleve A3, j'enleve aussi B3