Discussion :

[rroozzoo]

Bonjour,
J'ai un problème pour écrire deux macros. Je dois compter le nombre de références n’ayant plus été vendues depuis plus de 6 mois. Quelqu'un aurait-il la solution a cette macro sachant que je dois faire apparaitre le résultat dans une cellule. La colonne date est la colonne B.
Je dois aussi faire apparaitre la référence (colonne A) qui compte le C.A (colonne C) le plus élevé.
Merci d'avnce.

[nicdodo]

Bonjour,

Je suis loin d’être un expert et comme on m'ide souvent sur ce site et que j'ai pas forcement les compétences requises pour aider sur des problemes compliqués je pense pouvoir t’être utile pour résoudre ton problème car il me semble d'apres ce que tu me dis que ça nécessite juste de faire une fonction if

Par compter le nombre de références n'ayant pas été vendu depuis si moi tu veux dire que tu as un tableau genre nommé stock avec une colonne avec les références et une colonne avec la date des ventes?

[rroozzoo]

Oui c'est exactement ça ! J'ai un fichier de stocks avec deux cents milles lignes ! C'est pourquoi je dois passer par VBA ! J'ai 4 colonnes avec le nom de la rérérence, la date de la dernière vente et le C.a réalisé par référence

[nicdodo]

Donc si ta colonne ou sont tes dates de ventes est la 2 et si par exemple elle est en mois et que tu as beaucoup de lignes à analyser (2000 par exemple dans le code exemple que je t'ai mis) voila ce que je peux te conseiller.
Comme je t'ai dit je ne suis pas un expert donc je pense pouvoir t'aider à trouver des solutions qui fonctionnent mais quelqu'un de plus expérimenter sera peut être d'une meilleure aide. En attendant une boucle avec une fonction if devrait faire l'affaire il me semble

Code :

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

1
2
3
4
5
6
7
8
9
Sub stock()
 
For i = 2 To 2000 'pour i allant de la ligne 2 a 2000
 
If Cells(i, 2) >= 6 Then 'si la 1er puis la 2eme puis la 3eme etc ligne de la colonne 2 sont supêrieurs ou égales à 6 alors'
 
 ' voila il suffit que tu demandes ta requête'
 
End Sub

Si tu as besoin d'aide pour définir ta requête n'hésite pas mais il faudra que tu me dises si tu veux par exemple copier coller les données sur une autre feuilles ou ce que tu veux faire avec.

[Promethee25]

Bonjour,

As-tu vraiment besoin de passer par du VBA?
Excel convient très bien pour ça; j'ai fait le test avec les 2 formules suivantes portant sur 200000 lignes et le temps nécessaire est de 0,03s.
Je doute que l'on fasse vraiment mieux en VBA et surtout ça paraît inutile (on est déjà à 3 centièmes de seconde):

Formule donnant la référence ayant le C.A le plus élevé:

Code :

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

=INDEX(A2:A200001; EQUIV(MAX(C2:C200001); C2:C200001; 0))

Formule donnant le nombre de références n'ayant pas été vendues depuis plus de six mois (j'ai considéré que 6 mois = 6*30j et que tu as bien des cellules au format date en colonne B):

Code :

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

=NB.SI.ENS(B2:B200001; "<" & AUJOURDHUI() - 6*30)

[nicdodo]

Oui effectivement la vba n'est peut être pas nécessaire pour ce type de probleme