Discussion :

[AMEDDO79]

Bounhour every one


je travaille sur un fichier que je recoit chaque moi et depuis je fais des rapport mensuel

mon but est d'automatiser les taches

je fais des calcules dans de 3 tableaux dans la page 2 par les fonction somme.si.ens et nb.si.ens à partir d'une autre page qui s'appelle "producing"

en gros voici mes fonctions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SOMME.SI.ENS(Producing!AZ:AZ,Producing!I:I,"critére1",Producing!M:M,"<> critére2",Producing!M:M,"<> critére3",Producing!U:U, "critére4",Producing!AZ:AZ,"<critére5")

pour la somme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=NB.SI.ENS(Producing!I:I,"critére1",Producing!M:M,"<> critére2",Producing!M:M,"<> critére3",Producing!U:U, "critére4",Producing!AZ:AZ,"<critére5")

pour le nombre des occurences

j'ai une user form me permet d'ouvrir le fichier et la page producing du mois voulus=> le producing voulu, mes fonction marche pas quand j'ouvre un autre mois parceque ça affiche producing (2) ou quand je supprime la page producing en cours #ref

je pense q'une macro avec bouton afféctée va faire l'affaire mais je n'ai pas pu le faire à plusieurs critéres

Quelqu'un peut m'aider s'il vous plait

crdt

[parmi]

Bonjour,

Dans quelle colonne dois-tu mettre ces formules ?
Est-ce que c'est toujours dans la même colonne sur toutes les feuilles ?

[parmi]

Tu inscris tes critères ainsi

...Producing!I:I,"critére1"...

Est-ce que ce sont des noms de variables ou c'est du texte qui est inscrit tel quel "critére1" ?

[AMEDDO79]

oui oui les variables de chaque colonne de tableau

exemple:

=SOMME.SI.ENS(Producing!AZ:AZ;Producing!I:I;"2012";Producing!M:M;"<> Machinery breakdown";Producing!M:M;"<> Public liability";Producing!U:U; "Mat damage & Bus interruption";Producing!AZ:AZ;"<750000")

[parmi]

Je ne suis pas certain de bien comprendre...
En fait, je ne vois pas pourquoi la feuille Producing prendrait un 2.
J'imagine que tu crées ces feuilles par code (?)

Bon, disons que tu veux mettre ta formule en colonne Z et que tes formules commencent sur la ligne 2
Ça pourrait ressembler à ça... (fait à la volée...)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim nbLignes as long
Dim Critere1,Critere2,Critere3,Critere4,Critere5
 
'Pour les critères, c'est à toi de voir...
'Ça peut être des contrôles sur un Userform
'N'oublie pas qu'un nombre doit être un nombre et non pas une String si tes données sont bien des nombres
critere1=2012   ' ou = CLng(MonTextbox)
critere2="Machinery breakdown"
critere3="Public liability"
critere4="Mat damage & Bus interruption"
critere5=750000
 
nbLignes = activesheet.Cells(Rows.count, "Z").end(xlup).row
Activesheet.Range("Z2:Z" & nbLignes).Formula = _
   "=SUMIFS(" & activesheet.name & "!AZ:AZ," & activesheet.Name & "!I:I," & critere1 & ","  & activesheet.Name & "!M:M,<>" & critere2 & "," & activesheet.Name & "!M:M,<>" & critere3 & "," & activesheet.Name & "!U:U, " & critere4 & "," & activesheet.Name & "!AZ:AZ,<" & critere5 & ")"

Donc, le principe est de changer les points-virgules par des virgules puisqu'on utilise Formula pour la portabilité.
"Producing", tu le changes pour ActiveSheet.Name puisque c'est la feuille active, peu importe qu'elle soit nommée avec un 2 un 3 ou autre.
Et le critère est défini au préalable et tu ne dois pas mettre de guillemets.

[AMEDDO79]

Votre code me semble logique mais ça n'a pas marché

En fait les calcules je veux pas les faire dans la meme feuille que producing mais dans une autre feuille qu'on l'appellle "analyse claims"

merci

J'ai mis
Dim Critere1, Critere2, Critere3, Critere4, Critere5 as Variant

??

voici le fichier