Aide sur function

[mamour60]

Bonjour a tous,

J'ai un tableau ou j'ai dans la colonne A des noms de personne, dans la colonne B des Motifs et dans la colonne C il y a l'année. Je veux avoir le nombre de motif par personne et par année. avec une fuction simplifier pour la personne qui va l'utiliser.

Function Litige(Nom, motif)
Application.Volatile
Litige = Evaluate("SumProduct((A12:A30 = nom)*(B12:B30 = motif)*(C12:C30=Annee)")
End Function

Merci de votre aide et bonne aprés midi.

@+

Bruno

 

[mamour60]

Re : Aide sur function

Rebonjour a tous,

J'ai essayer cela mais ça ne marche pas.

Function Litige(Nom, motif, annee)
Application.Volatile

V1 = Nom
V2 = motif
V3 = annee

Litige = [SumProduct((A12:A30 = V1)*(B12:B30 = V2)*(C12:C30=V3)]

End Function

Merci de me dire si vous avez une idée ou pas
bonne soirée a tous

Bruno

 

[Cousinhub]

Re : Aide sur function

Bonsoir,

un petit essai :

Function Litige(Nom, motif, annee)
Application.Volatile
Litige = Evaluate("SumProduct((A12:A30 = """ & Nom & """)*(B12:B30 = """ & motif & """)*(C12:C30= " & annee & "))")
End Function

 

[mamour60]

Re : Aide sur function

Bonjour,

Merci bhbh cela marche trés bien.
bonne journée



@+

Bruno

 

[mamour60]

Re : Aide sur function

Bonjour a tous,

La function que l'on a créer marche très bien, mais je l'utilise sur plusieurs onglets et lorsque je mets a jour un onglet tous les autres garde le même résultat.

Comment faire pour qu'avec la même function les onglets garde les propres résultats ?

@+

Bruno

 

[BOISGONTIER]

Re : Aide sur function

Bonjour,

Private Sub Worksheet_Activate()
  Calculate
End Sub

JB

 

[mamour60]

Re : Aide sur function

Bonjour BOISGONTIER,

Cela fonctionne mais j'ai un onglet recap ou je prend le nbre de DR et le montand ainsi que le nbre de CR et le montand.

Cela me donne zéro car les résultats des onglet ne sont pas garde en mémoire.

Je joints un exemple.

@+

Bruno

 

[mamour60]

Re : Aide sur function

Bonjour a tous,

J'ai essayer cela mais ça ne marche pas.


Public Function NBLitige(nom, motif, annee) As Long
Dim nom, motif, annee As Range

Application.Volatile

Litige = evaluate("SumProduct((A12:A1000 = """ & Nom & """)*(B12:B1000 = """ & motif & """)*(C12:C1000 = " & annee & "))")

End Function

@+

Bruno

 

[BOISGONTIER]

Re : Aide sur function

Function NBLitige(nom, motif, annee) As Long
Application.Volatile
NBLitige = Evaluate("SumProduct((A12:A1000 = """ & nom & """)*(B12:B1000 = """ & motif & """)*(C12:C1000 = " & annee & "))")
End Function

JB

 

[mamour60]

Re : Aide sur function

Bonsoir BOISGONTIER,

J'ai essayer mais cela ne marche pas lorsque je fais F9 sur un feuil j'ai l'impression que toutes les feuilles se recalcul.

Bonne soirée

Bruno