(xl-VBA) Ajouter unedeuxieme conditions dans un macro

Bonjour

J'ai une commande en VBA a l'effet de faire la somme de la colonne M tant que la colonne B n'est pas vite et je veux y ajouter un autre condition a l'effet que tant que la colonne C soit < 100

Code:

---

1 2 3

Range("M4").Select ActiveCell.Formula2R1C1 = _ "=AVERAGE(IF(R7C2:R76C2<>"""",R7C13:R76C13))"

---

=moyenne(si("B7:B76" <> """",M7:M76)) je veux y a jouter SI("C7:C76"<100)

J'ai essayé
=moyenne(SI("b7:B76" <>"""" & and "C7:C76" < 100,M7:M76))

ou est-ce mieux que je procède avec une bloucle

merci pour vos suggestions


Mario

Salut,

As-tu essayé avec les formules Somme.Si ou Somme.Si.Ens ?
Exemple:

Code:

---

1 2	=SOMME.SI(B:B; "<>0") =SOMME.SI.ENS(B:B; B:B; "<>0")

---

Somme.Si.Ens conviendra mieux, elle est multi critères.

Merci de votre suggestion je vais faire des essais et vous revenir

J,ai fais un petit code pour faire un essais et ca fonctionne

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Sub Macro2() ' ' Macro2 Macro ' ' Touche de raccourci du clavier: Ctrl+t   Dim Moyenne As Double ' La moyenne de la colonne Dim Somme As Double ' La somme des valeurs de la colonne Dim numero, COMPTEUR, derniereligne As Integer   derniereligne = Cells(Rows.Count, 1).End(xlUp).Row   numero = 7 'Numéro de départ COMPTEUR = 0 Do While numero <= derniereligne 'Tant que la variable numero est <= DERNIERE LIGNE, la boucle est répétée If Cells(numero, 2).Value <> "" Then If Cells(numero, 3).Value < 100 Then Somme = Somme + Cells(numero, 13).Value COMPTEUR = COMPTEUR + 1 End If End If numero = numero + 1 'Le numéro est augmenté de 1 à chaque boucle Loop   If COMPTEUR > 0 Then ' Si le compteur est positif, c'est qu'on a au moins une valeur Moyenne = Somme / COMPTEUR ' On calcule la moyenne en divisant la somme par le compteur MsgBox "La moyenne de la colonne est " & Moyenne ' On affiche la moyenne dans une boîte de dialogue Else ' Sinon, c'est qu'on n'a aucune valeur MsgBox "Il n'y a pas de valeur dans la colonne" ' On affiche un message d'erreur End If       End Sub

---

Il peut avoir d'autre méthode je suis preneur

merci

Mario

Note:
Si tu comptes rester dans VBA, les formules sont utilisable via Application.WorksheetFunction, ca peut être plus efficace que faire des boucles.

Exemple:

Code:

---

1 2 3 4 5

Dim Ws As Excel.Worksheet Set Ws = ThisWorkbook.Worksheets(1)   Dim Somme As Double Somme = Application.WorksheetFunction.Sum(Ws.Range("B1:F56"))

---

Merci ta suggestion est tres bonne je vais l'essayé pour mieux comprendre les formules Vba

Mais j'ai cherché avec ce que tu ma suggéré

Code:

---

1 2 3

=SOMME.SI(B:B; "<>0") =SOMME.SI.ENS(B:B; B:B; "<>0")

---

j'ai trouvé ma réponse qui fonctionne

Code:

---

=AVERAGEA(SI(B7:B77<>"";SI(C7:C76<100;M7:M76)))

---

Merci encore

Mario