Discussion :

[drakkar_agfa]

Bonjour à tous!

J'ai un problème d'optimisation.

Je compter le nombre de fois que j'ai une combinaise de valeurs dans une table. EX: dans le permier champ la valeur "Pomme" ET dans le deuxième champ la valeur "Orange".

Pour l'instant, je peux faire un IF qui parcourt la table et si trouvé le premier, un autre IF qui vérifie si le deuxième champ est Orange, ensuite il incrémente un compteur.
J'ai remarqué la leuteur de l'exécution... et j'aimerais l'optimiser.

J'ai vérifier avec .Find (et findNext) mais il est impossible de faire la vérification de deux champs à la fois... non?

Ensuite avec Seek, il est possible de vérifier plusieurs champs mais, comment faire un Seek next? Est-ce possible?

Je sais qu'il existe un Application.Countif en VBA Excel, est-ce qu'il a un équivalent en Acces? Si oui, il serait possible d'ajouter un champ qui serait la concaténation de mes deux valeurs et faire la vérif sur ce champ.

Si vous avez des idées à m'apporter elles sont les bienvenues!

Merci à l'avance!

Mathieu

[nico84]

Bonjour,

En SQL c'est assez simple il me semble :

Code sql :

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

select count(*) from matable where champ1='pomme' and champ2='orange'

Il est possible d'inclure cette requête dans du code vba et de remplacer les constantes par des variables si besoin :

Code :

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

1
2
3
4
var1="pomme"
var2="orange"
Set rst = CurrentDb.OpenRecordset("select count(*) as n from matable where champ1='" & var1 & "' and champ2='" & var2 & "';")
msgbox "nombre de couples " & var1 & "/" & var2 " : " & rst!n

[drakkar_agfa]

Je crois bien que c'est ce que j'ai besoin!

Je testerai ce soir et je vous en redonnerez des nouvelles!

Merci