BDNB en VBA

[Caphorn]

Bonjour à tous

Pour extraire des infos dans une base excel j'utilise la bonne vielle méthode avec sur une feuille mes etiquette de colonne pour definir les differents critères d'extraction comptage des tranche d'ages, niveaux scolaires, etc...
Tout fonctionne très bien le problème c'est que ma base devient de plus en plus importante et j'aurais voulu savoir s'il y a une possibilité de le faire en VBA

par exemple à partir d'un colonne Age en J compter les -26 26à50 et +50

merci

 

[Jacques87]

Bonjour CapHorn

Oserais-je ce jeu de mot : tempête dans un crane, tu risques de te heurter aux écueils (lol)

En effet pourquoi faire lourd quand tu as à ta disposition une fonction qui te donneras satisfaction très facilement
NB.SI
et crois moi je ne suis pas un adepte des fonctions pourtant

Bon courage et bon vent

PS sinon en VBA
si les âges sont en colonne A

N=0
For i = 1 To Range('A65536').End(XlUp).Row
If Range('A' & I).Value < 26 Then N = N+1
Next I
MsgBox(N)

te donnera le nombre de personnes de moins de 26 26 ans

Message édité par: Jacques87, à: 11/02/2006 17:11

 

[Caphorn]

Bonjour Jacques87
Ok pour un seul critére, je l'utilise mais quand deux ou plus sont combiné??

 

[mutzik]

Bonjour Caphorn, Jacques87

tout cela est bien beau, mais il faudra mettre une double condition par la suite. Utiliser la syntaxe (priez pour nous lol) suivante

N=0
For i = 1 To Range('A65536').End(XlUp).Row
If Range('A' & I).Value >=26 and Range('A' & I).Value < 50 Then N = N+1
Next I
MsgBox N

tu peux également demander les limites inf et supérieure avec l'instruction inputbox, style :
LimiteInf = inputbox('limite inférieure, valeur exclue')
LimiteSup = inputbox('limite supérieure, valeur incluse') et ensuite adapter ton code
Perso, j'utilises les fonctions de base de données dans la feuille de calcul, cela fonctionne tres bien ...

Message édité par: mutzik, à: 11/02/2006 18:57

 

[Jacques87]

Excuse moi, j'ai du m'absenter

pour réponre à ta question, voici un exemple

If Range('A' & I).Value > 12 and Range('A' & I).Value < 26
Then N = N+1
End If
te donne le nombre de personnes dont l'âge est supérieur à 12 et inférieur à 26
même chose avec OR et tu peux combiner

Message édité par: Jacques87, à: 11/02/2006 19:06

 

[pat1545.]

Salut,


pas besoiin de vba, il suffit d'un sommeprod pour ce faire !
mais si tu mets un tit exemple joint, ce serait bien.
Patrick

 

[Caphorn]

Merci à tous
Je vais tester et vous tiendrais au courant

PSour Pat45
Je ne maitrise pas sommeprod et pour des cas précis Monique ma fourni pas mal de solutions Je pensais au VBA pour faire plus rapidement des mise à jour d'une année à l'autre