[VBA/Excel] Différent suivant certaines cases

Bonjour,

Voilà je voudrais incorporer dans la requéte suivante :

Code:

---

ApproSQL10 = "SELECT TOP 10 Articles.Codeart, Articles.Désignation, Articles.Localisation, [QteThéorique]*[Prixachat] AS Montant, [Qtéstock]+[Qtéréser] AS QteThéorique FROM Articles WHERE ((Articles.Codeart>=100000000) AND ([Qtéstock]+[Qtéréser])<>0 AND (Articles.Dateachat>=#" & DateDeb & "#) AND (Articles.Dateachat<=#" & DateFin & "#)) ORDER BY 4 DESC"

---

Qui ferait un sorte que les 10 premiers résultats soit pas les mêmes que les trois classeurs différents si il y a sinon qu'il test sur le nombre de classeur qu'il y a.

Voilà merci d'avance

ps : Pour l'explication détaillé, je cherche a faire un inventaire par mois d'une partie d'un stock, tout les mois je teste certaine partie de mon stocks, en l’occurrence ici les plus gros montant mais je voudrais que sur trois mois je retrouve pas les même histoire de changer un peu. Chaque mois j'ajoute donc un classeur a mon fichier Excel

Je me suis mal exprimé ?

Peut être bien. Supposant que tu exporte le résultat sur Excel tu peux ajouter un champ Boolean dans ta table (DejaTraite) que tu mets jour après exportation.

Tu change ensuite ta requête en y ajoutant un autre critère sur tous les non déjà traités

Code:

---

1 2	ApproSQL10 = "SELECT TOP 10 Articles.Codeart, ... And Not DejaTraite"

---

Je peux pas modifier ma base de données Access mais simplement trouver une solution en testant les classeurs avants,

Est ce que ça ne serait pas possible de testé si il y a des classeur avant ma feuille et la feuille menu, ça donne un resultat style 2 ou 4.. et a partir de la faire ma requete where codearticle<>valeur suivant position feuille -2 AND codearticle<>valeur suivant position feuille -1.... ?

Bien sur. Mais dans ta requête autant essayer d'avoir quelque chose du genre

Code:

---

1 2 3

... Where CodeArticle Not In () ...

---

Maintenant dans le In () tu te débrouilles pour avoir par exemple un tableau des feuille (ou une correspondance Feuille -> Numero) à exclure.

Le problème sera de ne pas louper la correspondance d'une part; et d'autre par d'avoir une méthode qui te permet peut être de tout réinitialiser.

Si je place les enregistrement de mes code article dans un colonne caché, je mets de A30 à A40 puis de A40 à A50 puis A50 à A60 puis des que la suite passe au dela de A60 sa écrase le A30 0 A60 etc... puis dans le In je dis différent de la colonne A30 à A60 ?

Citation:

---

Envoyé par Myogtha

... je mets de A30 à A40 puis de A40 à A50 puis A50 à A60 puis des que la suite passe au dela de A60 sa écrase le A30 0 A60 etc... puis dans le In je dis différent de la colonne A30 à A60 ?

---

J'ai pas bien compris. Tu veux bien montrer le code.

Je n'ai pas fais le code encore mais un genre de

Code:

---

1 2 3 4 5

Range("A2:A11").Select Selection.Copy Sheets("Menu").Select Range("A40").Select ActiveSheet.Paste

---

au lieu de fixé A40 on dis de testé si A40 est plein en incrémentant jusqu'a vide, genre la se serait à A50 et qu'a chaque fois que je lance un nouveau suivi chaque mois que ça me rajoute sur trois mois et que des qu'il arrive en A70 (correspondant à 3 mois d'enregistrement) il écrase le reste, voir plus precis encore , non ?

Je me perds là

ici

Citation:

---

Est ce que ça ne serait pas possible de testé si il y a des classeur avant ma feuille et la feuille menu,...

---

il était question de classeur (la feuille de calcul)

Maintenant

Citation:

---

Range("A2:A11").Select

---

apparamment c'est des cellules que tu traites.

Je suis peut être fatigué !