[VBA/Excel] Différent suivant certaines cases

**Myogtha** · 01/02/2007, 11h02

Bonjour,

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

Code :

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

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

**Myogtha** · 01/02/2007, 13h34

Je me suis mal exprimé ?

**DMboup** · 01/02/2007, 13h51

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 :

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

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

**Myogtha** · 01/02/2007, 14h01

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.... ?

**DMboup** · 01/02/2007, 14h10

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

Code :

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

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.

**Myogtha** · 01/02/2007, 15h03

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 ?

**DMboup** · 01/02/2007, 15h17

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.

**Myogtha** · 01/02/2007, 15h34

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

Code :

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

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 ?