E
Enfazz
Guest
Bonjour à tout le forum !!
Voilà, j'ai deux feuilles la première feuille à ce format par exemple la:
Id Nom Codeinc
----------------------------
001 Dupont 802
002 Dufour 211
...
...
la seconde table à ce format ci , elle contient la description des codeinc.
Dans cette table chaque donnée est unique.
Codeinc Libellé
----------------------------
211 Vomissement
...
802 Fracture
Je voudrais, grâce à du code VBA, savoir combien il y a eu d'incidents 211 ou 744 etc... à partir de ma table principale(la première). J'ai essayé plein de trucs mais rien de concluant. Pourtant ça semble facile comme ça ms je galère....Il faut savoir qu'il y a plus de 4000 incidents donc j'essais de trouver un moyen pour ne pas avoir à les traiter un par un........
g essayé des trucs dans ce genre mais mes boucles trippent, démarrent à 144 etc... bref je suis largué.
Sub occur(ligne as Integer)
cpt=0
'Recherche ds la table 1
For Each c In Worksheets(1).Range("Q2:Q340").Cells
'Recherche ds table 2
For each cel In Worksheets(2).Range("A" & ligne).Cells
If cel=c Then
cpt=cpt+1
End if
Next cel
Next c
End Sub
Sub Macro()
Dim i as Integer
For i=2 to 4325
occur(i)
Next i
End Sub
Si quelqu'un a une soluce....
Merci d'avance.
Voilà, j'ai deux feuilles la première feuille à ce format par exemple la:
Id Nom Codeinc
----------------------------
001 Dupont 802
002 Dufour 211
...
...
la seconde table à ce format ci , elle contient la description des codeinc.
Dans cette table chaque donnée est unique.
Codeinc Libellé
----------------------------
211 Vomissement
...
802 Fracture
Je voudrais, grâce à du code VBA, savoir combien il y a eu d'incidents 211 ou 744 etc... à partir de ma table principale(la première). J'ai essayé plein de trucs mais rien de concluant. Pourtant ça semble facile comme ça ms je galère....Il faut savoir qu'il y a plus de 4000 incidents donc j'essais de trouver un moyen pour ne pas avoir à les traiter un par un........
g essayé des trucs dans ce genre mais mes boucles trippent, démarrent à 144 etc... bref je suis largué.
Sub occur(ligne as Integer)
cpt=0
'Recherche ds la table 1
For Each c In Worksheets(1).Range("Q2:Q340").Cells
'Recherche ds table 2
For each cel In Worksheets(2).Range("A" & ligne).Cells
If cel=c Then
cpt=cpt+1
End if
Next cel
Next c
End Sub
Sub Macro()
Dim i as Integer
For i=2 to 4325
occur(i)
Next i
End Sub
Si quelqu'un a une soluce....
Merci d'avance.