code fonctions Excell

Salut,

Alors voila ce ke je veux faire.

je veux créer une fonction qui me permet de compter le nombre de fois ou apparait un argument mais suivant 2 conditions.

parce que sinon ca serait trop facile et je ne demanderais pas vu qu'il existe la fonction NB.SI

en gros voila la logique :
pour tte les cellules de la colonne alpha si la valeur = condition 1 et pour tte les cellules de la colonne beta si la valeur = la condition 2 alors compter le nombre de fois ou cela apparait.

Alors voila ce que j'ai fait :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Public Function SiContarSi(Rango1 As Range, Criterio1 As Variant,_ Rango2 As Range, Criterio2 As Variant) As Integer 'Dim Celda1 As Object 'Dim Celda2 As Object For Each Cells In Range("Rango1") If Cells.Value = Criterio1 Then For Each Cells In Range("Rango2") If Cells.Value = Criterio2 Then SiContarSi = SiContarSi + 1 End If Next Cells 'Call CountIf End If Next Cells End Function

---

J'ai remis en vert ce que pour l'instant je laisse en commentaire 5 ceux des solutions qui n'ont pas l'air de fonctionner

En fait pour le moment et je ne sais pas comment la corriger j'ai tjs la même erreur / Erreur de Compilation : Argument non facultatif ----> erreur 449

j'ai aussi penser que comme l'idée etait proche de la fonction NB.SI si j'arrivai a sortir le code complet de cette fonction je m'en sortirai mais ya apparemment pas moyen de connaitre le code...

pour finir, je suis pas une pro de la programmation ni meme mon metier. j'ai acquis une certaine logique (pas forcement correcte) et j'ai qque notions... disons que je suis capable d'ecrire un pgr simple mais la je bloque completement, je sais pas ou chercher ou comment resoudre le/les pb et j'ai di a mon chef que j'aurai fait l'analyse du fichier pour demain matin...et sans ca je peux pas faire grand chose! enfin si mais a la main et a chaque fois que le fichier sera modifier il faudra recompter...

voila avis aux pros... vous etes des stars!

Salut Citrouilli

Pourquoi une fonction alors que SommeProd fait déjà celà

Code:

---

=SOMMEPROD((Plage1=Critere1)*(Plage2=Critere2))

---

Mytå

sinon, pour le vba, je pense que c'est parce que tu utilise cells dans ta boucle, et puis ta boucle n'est pas bonne, tu n'as pas besoin de faire une boucle dans tous rango2 pour savoir si la cellule a coté de ta valeur est égale.
et puis, si rango1 est une plage que tu a nommé dans excel, tu peux ecrire in range("rango1"), par contre si tu la nomme dans le code vba, tu dois écrire in range(rango1), moi , je prend cette option, a toi de voir

Code:

---

1 2 3 4 5 6

for each valeurA in range (Rango1) if valeurA = Criterio1 Then ligne = valeurA.row if cells(ligne, 3 ) then SiContarSi = SiContarSi + 1 en if next valeurA

---

bien sur, tu remplace 3 par le n° de ta colonne béta dans

Code:

---

if cells(ligne, 3 ) then SiContarSi = SiContarSi + 1

---

Citation:

---

Envoyé par Mytå_Qc

Salut Citrouilli

Pourquoi une fonction alors que SommeProd fait déjà celà

Code:

---

=SOMMEPROD((Plage1=Critere1)*(Plage2=Critere2))

---

Mytå

---

alors j'ai testé mais ce n'est pas ca... la fonction me multiplie lee nombre d'occurence trouvé dans le colonne alpha par le nombre d'occurence trouvé dans la colonne beta.

alos que moi je veux elimimer...

ex:

alpha beta
2 A
3 B
5 A
2 C

moi je veux kil me sorte 1 pour le critère "2" sur la colonne alpha et le critere "A" sur la colonne beta. et cette fonction me donne 2*2=4

c'est ce que mon prmier programme faisait

Citation:

---

Envoyé par alsimbad

sinon, pour le vba, je pense que c'est parce que tu utilise cells dans ta boucle, et puis ta boucle n'est pas bonne, tu n'as pas besoin de faire une boucle dans tous rango2 pour savoir si la cellule a coté de ta valeur est égale.
et puis, si rango1 est une plage que tu a nommé dans excel, tu peux ecrire in range("rango1"), par contre si tu la nomme dans le code vba, tu dois écrire in range(rango1), moi , je prend cette option, a toi de voir

Code:

---

1 2 3 4 5 6

for each valeurA in range (Rango1) if valeurA = Criterio1 Then ligne = valeurA.row if cells(ligne, 3 ) then SiContarSi = SiContarSi + 1 en if next valeurA

---

bien sur, tu remplace 3 par le n° de ta colonne béta dans

Code:

---

if cells(ligne, 3 ) then SiContarSi = SiContarSi + 1

---

---

je vais tester:king:

Bon alors voila ce ke j'ai tenté:

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

Public Function Contar2Si(Rango1 As Range, Criterio1 As Variant, Rango2 As Range, Criterio2 As Variant) As Integer     Dim Celda1 As Object Dim Celda2 As Object Dim Contar As Integer   Contar = 0   For Each Celda1 In Range(Rango1)   Eval1 = Rango1.Cells(i) & "=" & Criterio1 Eval2 = Rango2.Cells(i) & "=" & Criterio2   If Evaluate(Eval1) And Evaluate(Eval2) Then Contar = Contar + 1 End If     Next Celda1   Contar2Si = Contar   End Function

---

il ne me donne plus d'erreur de compil' mais un erreur de valuer qd je teste la fonction sous excel. en plus qd je selectionne la plage de celulle qui dans une autre feuille et qui est tte une colonne, il n'affiche NUM ?

si j'en crois ton exemple

Citation:

---

alpha beta
2 A
3 B
5 A
2 C

moi je veux kil me sorte 1 pour le critère "2" sur la colonne alpha et le critere "A" sur la colonne beta. et cette fonction me donne 2*2=4

---

cette formule convient tres bien, D1 et D2 sont les deux cellules ou tu inscrit tes criteres en l'occurence 2 et A

Code:

---

=SOMME(NB.SI(A1:B4;D1);NB.SI(A1:B4;D2))

---

du moins ça te donne 4 occurence, mais pas le 1 pour un seul alignement

non moi je veux k'il me dise il y a une seule fois la combinaison 2 et A dans les colonnes Alpha et Beta...

J'ai quasiment trouvé, le dernier problème qu'il me reste c'est que c'a fonction pour un plage défini mais pas pour tte le colonne (par ex J:J)
si je selectionne ça comme plage je resort une erreur Valeur? de la fonction
et une erreur NuM? pour chaque colonne... voila le code que j'ai :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function Contar2Si(Rango1 As Range, Criterio1 As Variant, Rango2 As Range, Criterio2 As Variant) As Integer   Dim i As Integer   For i = 1 To Rango1.Cells.Count   If Rango1.Cells(i).Value = Criterio1 And Rango2.Cells(i).Value = Criterio2 Then Contar2Si = Contar2Si + 1 End If   Next i   End Function

---

bon, alors, je te comprend pas, le premier code que je t'ai envoyé faisait parfaitement l'affaire
supposons que tu compare la colonne A et la colonne B, je vais pas jouer aux devinettes. tes criteres 1 et 2 sont en c1 et d1

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub deuxcriteres() Set criterio1 = Cells(1, 3) Set criterio2 = Cells(1, 4) lignes = Range("a1").End(xlDown).Row Set rango1 = Range("a1:a" & lignes) For Each valeurA In rango1 If valeurA = criterio1 And valeurA.Offset(0, 1) = criterio2 Then SiContarSi = SiContarSi + 1 Next valeurA MsgBox SiContarSi End Sub

---

par contre, je ne vois pas du tout comment cette fonction pourrait te donner un 2*2 = 4, dans ton exemple, elle te donne 1

Re le forum

Et mon sommeprod donne 1 aussi comme résultat et non 4

Mytå_Qc

Citation:

---

Et mon sommeprod donne 1 aussi comme résultat et non 4

Mytå_Qc

---

parfaitement, j'ai été voir le fichier, a part que je ne comprend pas comment tu a fais ça

Code:

---

=Contar2Si(A1:A5;D2;B1:B5;E2)

---

. c'est quoi?

dsl pour ton sommeprod... je sais pas ce que j'ai fait mais effectivement ca marche!
Enfin ca marche comme mon Contar2Si car il n'accpete pas de prendre la colonne en enteir mais seulement une partie.

Merci

Citation:

---

Envoyé par alsimbad

parfaitement, j'ai été voir le fichier, a part que je ne comprend pas comment tu a fais ça

Code:

---

=Contar2Si(A1:A5;D2;B1:B5;E2)

---

. c'est quoi?

---

solution :
{=NB(A2:B5)*(SI(A2:A5=2;1;0)*(SI(B2:B5="A";1;0)))}

en d'autres termes :

Sub Macro1()
'
Selection.FormulaArray = _
"=COUNT(R[-8]C[-3]:R[-5]C[-2])*(IF(R[-8]C[-3]:R[-5]C[-3]=2,1,0)*(IF(R[-8]C[-2]:R[-5]C[-2]=""A"",1,0)))"

End Sub

désolé, mais c'est un peu chinois pour moi, je vois bien que c'est une fonction personnalisée, mais je ne sais pas comment on met ça en oeuvre?
je viens de voir que tu a mis ça en module, donc je comprend bien que c'est ça, mais je savais pas qu'on pouvais le faire

Code:

---

1 2 3 4 5 6 7 8

Public Function Contar2Si(Rango1 As Range, Criterio1 As Variant, Rango2 As Range, Criterio2 As Variant) As Integer Dim i As Integer For i = 1 To Rango1.Cells.Count If Rango1.Cells(i).Value = Criterio1 And Rango2.Cells(i).Value = Criterio2 Then Contar2Si = Contar2Si + 1 End If Next i End Function

---

mais apres, comment on passe de là a la boite qui s'inscrit dans excel quand tu veux t'en servir? c'est automatique?
j'édite parce que j'apprend, j'ai fais ça pour voir

Code:

---

1 2 3

Public Function metaucarré(alfa) As Integer alfa = alfa * alfa End Function

---

et effectivement ma fonction apparaitr, c'est bien, mais elle me renvoie 0 alors que je rentre 2et elle devrais donc me renvoyer 4. ou c'est que je me trompe?

Salut le forum

Alsimbad essaye plutôt

Code:

---

1 2 3 4

Public Function metaucarré(alfa) As Integer metaucarré = alfa * alfa End Function

---

Ta variable de sortie est metaucarré
Ta variable d'entrée est alfa

Mytå_Qc

ha d'accord, je vois.
hé ben c'est super, merci
bonne journée