Aide pour Fonction

Version imprimable

26/08/2009, 10h08
Maiden002

Aide pour Fonction

Bonjour, je suis entrain de faire une fonction pour mon fichier Excel.

C'est voulu d'abord faire avec une formule normal, mais sa c'est avéré trop compliqué donc je me rabats sur du VBA.

J'ai un tableau de gestion d'érreur qui est dans la feuille "Error Report" et mon Code doit se trouver dans d'une autre feuille

Le principale dans mon tableau :

Colonne C : Reference du Test (qui est aussi présent dans une autre feuille)
Colonne I : Date d'ouverture de l'erreur
Colonne J : Date fermeture de l'erreur (quand elle est résolu)
Colonne K : Date de déploiement (quand erreur corrigé est donné a l'utilisateur)

J'ai commencer a faire une formule qui est la plus simple :

Code:

=SOMMEPROD(('Error Report'!$C$15:$C$151=B12)*(ESTNUM('Error Report'!$I$15:$I$151)))

Voila en faite, il va chercher combien dans la Colonne C de mon tableau dans "Error Report" combien il trouve de ligne ou il y a la meme valeur que B12 (ex : TF102) et ensuite il me dit combien dans ceux la,qui on dans la colonne I la case Pleine.

En clair : il me dit combien d'erreur du Test TF102 on une date d'ouverture.

Mon probléme maintenant sa serai de trouver, combien d'erreur du Test "???" on une date de fermeture (mais il me dit combien y'en a que si la date de fermeture est inférieur a la date d'aujourd'hui.)

Si quelqu'un peu m'aider, sa serai super :)

Merci
26/08/2009, 10h19
Krovax
Bonjour,
Tu as commencé ton code? tu peux nous le montrer?
Tu ne sais pas créer une fonction personnalisé et l'utiliser?
Tu as réfléchi à comment le réaliser?

Une méthode pas la plus rapide mais simple a programmer :

Commence par parcourir ton tableau à la recherche de tes Tf machin si la ligne corespond a ta recherche tu regarde la colonne date et tu compare a la date d'aujourdh'ui. Si les deux teste sont bon alors tu incrémente ta variable de comptage.
Code:

1 2 3 for i =2 to derniereligne if cells(i,3)="TF Machin" and cells(i,10)>Date then nbres=nbres+1 next i
Il va falloir que tu précise l'onglet qui contient les cellules et que tu trouve la dernière ligne que tu créé la fonction, etc...

Je pense que tu peux parcourir ta colonne C:

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
sub help()
 
dim c as range, plage as range
dim derlig as long
dim Nb1 as long, Nb2 as long, Nb3 as long
 
with worksheets("Error Report")
Derlig=.range("C65536").end(xlup).row
Set Plage=.range("C1","C" & derlig)
Nb1=0
Nb2=0
Nb3=0
For each c in plage
If c.value= .range("B12").value then 'j'ai pas bien compris si la case est dans la même feuille ou pas donc je te laisse adapter
Nb1=Nb1+1
i=c.row
If cells(i,9).value<>"" then Nb2=Nb2+1
If cells(i,10).value<>"" then Nb3=Nb3+1
end if
next c
end with
 
MsgBox("Il y a " & Nb1 & " lignes contenant l'erreur présente en B12" & chr(10) & "Il y a eu " & Nb2 & " erreurs ouvertes" & chr(10) & "Il y a eu " & Nb3 & " erreure fermées(résolues)")
 
end sub

Bon test:zoubi:

Edit j'avais opublié le end with