Discussion :

[Missy33]

Bonjour,

je suis à la recherche d'un algorithme en vba qui me permettrait de réaliser un regroupement sur un champ de type texte. J'ai une requête accees avec environ 400 lignes à trier et a parcourir pour repérer les lignes à regrouper.
Ensuite le regroupement se ferait sur les lignes conécutives comme ci-dessous;

Par exemple

Champ1 Champ2
aab0 toto
aab1 toto
aab2 toto
aab3 toto
aab4 toto
aab5 toto
aab6 toto
aab7 toto
aab8 toto
aab9 toto

J'aimerais me retrouver avec une ligne de ce type:

Champ1 Champ2
aab toto

Merci de vos réponse et soyez indulgent s'il vous plait je pars un peu de zéro sous Access et VBA.

[alassanediakite]

Salut
Tel que je voie l'exemple, il suffit de faire...

Code :

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

SELECT first(champ1), champ2 FROM latable GROUP BY champ2

Il reste à traduire ça en requête graphique avec ACCESS.
@+

[Missy33]

Bonjour

Merci beaucoup pour ta réponse mais en fait j'ai 400 lignes dans ma table et je dois rechercher les éléments qui se suivent (aab0, aab1... jusqu'a aac9) pour les regrouper sans impact pour les autres lignes qui ne sont pas concernées. je passerais par exemple de 400 à 400-9( 10 lignes regroupés en 1e ligne) donc 391 au lieu de 400.

Ta requête avec first marche bien dans la mesure ou je retrouve mes lignes regroupés mais les autres lignes n'apparaissent pas dans le résultat de la requête.
Je pense qu'un algorithme de tri et regroupement serait peut-être plus adapté , mais je n'arrive pas à le mettre en place.. ou peut être une autre option de requête Access que ne ne connais pas.

N'hésitez pas à me demander des précisions si c'est pas très clair.

[Missy33]

De plus la ligne de regroupement doit être du type aab(pour montrer qu'elle est la ligne "mère" des 10 autres éléments:

Champ1 Champ2
aab0 toto
aab1 toto
aab2 toto
aab3 toto
aab4 toto
aab5 toto
aab6 toto
aab7 toto
aab8 toto
aab9 toto
xxx5 toto
yxy8 toto

donc on se retrouve après le regroupement
champ1 champ2
aab toto
xxx5 toto
yxy8 toto

Merci de vos retours sur ce sujet vraiment urgent et bloquant pour moi..

[accessisgood]

Pour se retrouver avec une ligne de ce type:

Champ3 Champ2
aab toto

on peut creer un Champ3 qui sera un champ calcule qui reprend les 3 premiers caracteres de Champ1
Champ3=left([Champ1],3)

apres il est plus facile de filtrer/regrouper sur ce Champ3