Trier par ordre alphabétique un tableau.

Question

Bonsoir, 
       Ceci est mon 1er message, je vais donc me présenter vite fais. Je m&#8217;appelle Jérémy, 25 ans, je suis étudiant en Dut Info S1 et j'ai débuté par Access en base de donnée.

Je tombe sur un petit problème que je n'arrive pas a régler. J'ai déjà essayé pas mal d&#8217;algorithme, mais rien ne fonctionne.

C'est pourtant simple, je souhaiterai trier un tableau de 2 colonne par ordre alphabétique.

Mon tableau ce présente telle quel :

For i = 1 To UBound(T_client_index)
                    
                    Line Input #fichier_client_index, enreg_clients
                    T_client_index(i, 1) = Mid(enreg_clients, 1, 3)
                    T_client_index(i, 2) = Mid(enreg_clients, 4)
                    
Next

  1WISSOCQ             
  2ASCONE              
  3BENCTEUX            
  4CANNY               
  5CUVILLIER           
  6DUPONCHEL           
  7GODON               
  8LEFEBVRE            
  9LEMAITRE            
 10PAPEGAY             
 11RAVAUX              
 12SOUXDORF            
 13THOREZ              
 14VASTRA       

Je n'ai mis qu'une petit parti bien sur ( il y a 132 noms)

Je ne demande pas un algorithme ou code tout fait. Je souhaite comprendre le fonctionnement du tri d'un tableau pour en faire un code.  

D'avance merci !

cs_Jack · Answer

Salut et bienvenu, Jérémy.

Sous Access, tu fais du VBA, pas du VB.Net.
Mémorise la catégorie de la question pour le futur, merci.

VBA s'apparente à VB6.
En faisant une recherche de "trier tableau" parmi les codes (sauf .Net), tu trouveras des exemples - Les fichiers FRM, BAS, CLS sont lisibles sous NotePad (ou autre)

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

Nohlan · Answer

Merci pour ta réponse Jack, j'ai effectivement lue des sources sur le site mais je ne les comprend pas. Je ne souhaite pas faire un simple copier/coller du code. Je souhaite comprend comment cela fonctionne et en crée un.

Ayant 2 colonnes ( une pour le numero et une pour le nom ), je souhaite que les 2 bougent en même temps.

ucfoutu · Answer

Bonjour,
1) Quel code as-tu tenté de comprendre ? (plusieurs manières possibles, donc plusieurs codes possible) ?
2) pour faire en sorte que la 2ème colonne suivent l'ordre de la première, c'est évident : lorsque l'on déplace (changement de ligne) un item de la première colonne, on en fait autant (on l'envoie sur la même ligne) avec l'item correspondant de la seconde (évident !)


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Merci Ucfoutu.

J'avais trouvé ce code là qui m'avait l'aire opé :

Sub TriAlpha(stringTab As Variant)
   Dim var_tampon As String
    For i = UBound(stringTab) To 1 Step -1
        For j = 0 To i - 1
            If stringTab(j) > stringTab(j + 1) Then
                var_tampon = stringTab(j)
                stringTab(j) = stringTab(j + 1)
                stringTab(j + 1) = var_tampon
            End If
        Next j
    Next i
End Sub

je rajouterai biensur le déplacement de ma 2éme colonne.

Mais je ne vois pas comment va ce dérouler les actions dans mon tableau.
D'accord s'il trouve une chaine plus grande, il va la mettre en tampon pour remplacer par celle en j+1. Mais cette nouvelle variable qui est en 1er position ne sera plus verifié par les suivantes ? J'ai bien vue une 2éme boucle "for" au debut mais je ne comprend pas les lignes :

Sub TriAlpha(stringTab As Variant)
   Dim var_tampon As String
    For i = UBound(stringTab) To 1 Step -1
        For j = 0 To i - 1

ucfoutu · Answer

tout est pourtant là :
  var_tampon = stringTab(j)
  stringTab(j) = stringTab(j + 1)
  stringTab(j + 1) = var_tampon
si tu ne comprends pas le déplacement induit pour un tableau à une seule colonne, avance pas à pas ! (c'est comme avec un tas de buchettes) !
Si tu le comprends et que tu ne vois vraiment pas comment l'adapter pour un tableau à deux colonnes, c'est que tu n'a alors pas encore acquis la connaissance d'un tableau dynamique !
Je vais ME CONTENTER de ceci :
Un tableau à 2 dimensions est ainsi dimensionné (exemple)
Dim tablo(3,2) ===>> 3 lignes et deux colonnes
On se réfère à la ligne x de la colonne y par : tablo(x,y)
Si je déplace la ligne 2 de la première colonne vers la ligne 1 de la première colonne ===>>
je déplace également la ligne 2 de la deuxième colonne vers la ligne 1 de la deuxième colonne.
Je ne vois vraiment pas : ni ton incompréhension, ni l'utilité d'une deuxième boucle !
Je VEUX te voir appliquer (au moins tenter) cela et voir le code écrit. 
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

cs_MPi · Answer

Personnellement, j'irais plutôt comme ceci
For i = 0 to UBound(stringTab)  ' ou UBound(stringTab) -1 selon la méthode de vérification
For j = i to UBound(stringTab) 'même commentaire

Le "-1" peut être nécessaire pour éviter de vérifier une donnée en dehors des limites du tableau

MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI

Nohlan · Answer

Private Sub TRIER_Click()
    
        Erase T_client_index
        
        Open "H:\Cours\OMGL\OMGL 1	pfichiers\client_index" For Input As fichier_client_index
        
                
                For i = 1 To UBound(T_client_index)
                    
                    Line Input #fichier_client_index, enreg_clients
                    T_client_index(i, 2) = Mid(enreg_clients, 1, 3)
                    T_client_index(i, 1) = Mid(enreg_clients, 4)
                    
                Next
        
                For i = UBound(T_client_index) To 1 Step -1
                    For j = 0 To i - 1
                        If Asc(T_client_index(j, 1)) > Asc(T_client_index(j + 1, 1)) Then
                            var_tampon = T_client_index(j, 1)
                            T_client_index(j, 1) = T_client_index(j + 1, 1)
                            T_client_index(j + 1, 1) = var_tampon
                        End If
                    Next j
                Next i
       
        Close fichier_client_index
        
End Sub

J'ai dans un 1er temps essayé de trier la 1er colonne, mais cela ne marche pas avec mes : 
Asc(T_client_index(j, 1)) > Asc(T_client_index(j + 1, 1)

Est une bonne solution pour comparer des chaines de caractéres ? 
Ma méthode ne fonctionne pas apparement mais je ne vois pas l'erreur.

ucfoutu · Answer

Ah !
Et tu crois qu'en passant par l'utilisation (au demeurant bien inutile) de Asc, tu es allé dans le sens que je t'indiquais ?
Je t'ai demandé (sur la base de ce que je t'exposais) : non de changer de code, mais de déplacer à chaque fois (en utilisant le code, tel quel, de tri de la colonne 1) l'article de la colonne 2 correspondant à un déplacement de l'article de la colonne 1.
Relis. Réfléchis ===>> tente, au moins !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Merci Ucfoutu pour toute ces infos, mais je voudrai dans un 1er temps bouger la colonne 1 , la 2 c'est pas le problème. 

Je suis passé par le code Asc pour vérifier les chaines de caractère mais ça n'a pas l'aire de fonctionner : Argument ou appel de procédure incorrecte.

ucfoutu · Answer

je voudrai dans un 1er temps bouger la colonne 1 
Oui ?
et que fait donc le code montré (si une seule colonne) ?
Et qu'ai-je dit plus haut à propos des tableaux à 2 dimensions ?
Ce sont ces deux dimensions, que je voudrais (et je t'en ai pourtant parlé) de voir utiliser !
Une chose apparaît de plus en plus clairement : tu veux utiliser des tableaux dynamiques, mais sans même prendre la peine de t'y intéresser ! 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Je ferai simplement : 

                        If String1 > String2 Then
                            var_tampon = T_client_index(j, 1)
                            T_client_index(j, 1) = T_client_index(j + 1, 1)
                            T_client_index(j + 1, 1) = var_tampon
                            
                            var_tampon = T_client_index(j, 2)
                            T_client_index(j, 2) = T_client_index(j + 1, 2)
                            T_client_index(j + 1, 2) = var_tampon
                        End If

Mais pour la 1er colonnes ca ne fonctionne même pas.

ucfoutu · Answer

Tu vas me faire le plaisir d'ouvrir ton aide VBA à la rubrique 
Utilisation des tableaux

la lire
t'attarder à la sous-rubrique :
Utilisation de tableaux multidimensionnels
la lire également
elle est claire et n'apporte aucune remarque de ma part !
Sauf peut-être celle-ci : ton tableau n'ayant que deux colonnes, il n'est pas vraiment nécessaire d'utiliser une seconde boucle pour si peu ===> 
A l'article tablo(3,1) de la 1ère colonne correspond l'article (sur la même ligne) tablo(3,2) de la 2ème colonne. Dur dur ? Vraiment ?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Je viens de lire l'aide, n'ayant vue en cour que le simple tableau, je découvre un peu tout ça. J'essaye bien sur de comprendre le fonctionnement. J'ai modifié un peu mon code qui ne fonctionne toujours pas, j'ai modifié la comparaison des chaines, mais toujours la même erreur dans le StrComp. 

For i = 1 To UBound(T_client_index)
                        
                        TestComp = StrComp(T_client_index(j, 1), T_client_index(j + 1, 1))
                        
                        If TestComp = 1 Then
                            var_tampon = T_client_index(j, 1)
                            T_client_index(j, 1) = T_client_index(j + 1, 1)
                            T_client_index(j + 1, 1) = var_tampon
                            
                            var_tampon = T_client_index(j, 2)
                            T_client_index(j, 2) = T_client_index(j + 1, 2)
                            T_client_index(j + 1, 2) = var_tampon
                        End If
                Next

Nohlan · Answer

Une erreur modifié, remplacement des j par des i.

TestComp = StrComp(T_client_index(i, 1), T_client_index(i + 1, 1)) :
-l'indice n&#8217;appartient pas à la sélection.

ucfoutu · Answer

C'est pas vrai ....
Regarde ce petit exemple que je te fait en vitesse.
Il est bâclé et ne fait qu'appliquer ce que je t'ai dit. Rien d'autre ! ===>>

Dim tablo(2, 1) ' tableau exemple à 3 lines et 2 colonnes (puisque indices commençant à 0)
 
  'remplissons-le, pour avoir un exemple à traiter
  tablo(0, 0) "toto": tablo(0, 1) "corr toto"
  tablo(1, 0) "tata": tablo(1, 1) "corr tata"
  tablo(2, 0) "titi": tablo(2, 1) "corr titi"
  
  ' trions-le, maintenant sur la 1ère colonne, par oirdre croissant :
  
  Dim tampon_col1 As String, tampon_col2 As String, i As Integer
  For i = 0 To UBound(tablo, 1) - 1
    If tablo(i, 0) > tablo(i + 1, 0) Then
      tampon_col1 tablo(i, 0): tampon_col2 tablo(i, 1)  ' je mémorise les deux !
      tablo(i, 0) tablo(i + 1, 0): tablo(i, 1) tablo(i + 1, 1) 'je déplace les deux
      tablo(i + 1, 0) tampon_col1: tablo(i + 1, 1) tampon_col2  ' je déplace les deux
     End If
   Next i
 
  ' preuve que ton tableau a été trié sur colonne 1 et sa colonne 2 a suivi ===>>
  For i = 0 To UBound(tablo, 1)
    MsgBox "première ligne : " & tablo(i, 0) & " en sa colonne 1 et &  " & tablo(i, 1) & " en sa colonne 2"
  Next
Alors ???


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Je comprend très bien ce code Ucfoutu, je test sur le miens un truc similaire, et te dit te suite si cela fonctionne.

ucfoutu · Answer

Non ! Ne viens rien me dire car moi, j'en ai terminé avec ce truc à 4 sous.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Encore merci ucfoutu pour toute ces infos. Ton dernier exemple était clair, j'ai essayé de l'adapter a mon code mais il reste un souci je pense.

Je joins ma source si quelqu'un y voit quelque chose. 
D'avance merci.

Private Sub TRIER_Click()
    
        Erase T_client_index
        
        Open "H:\Cours\OMGL\OMGL 1	pfichiers\client_index" For Input As fichier_client_index
        
                
                For i = 1 To UBound(T_client_index)
                    
                    Line Input #fichier_client_index, enreg_clients
                    
                    T_client_index(i, 1) = Mid(enreg_clients, 4)
                    T_client_index(i, 2) = Mid(enreg_clients, 1, 3)
                    
                Next
        
       
  
                Dim tampon_col1 As String, tampon_col2 As String
                For i = 1 To UBound(T_client_index, 1) - 1
                    If T_client_index(i, 1) > T_client_index(i + 1, 1) Then
                        tampon_col1 = T_client_index(i, 1)
                        tampon_col2 = T_client_index(i, 2)  ' je mémorise les deux !
                        T_client_index(i, 1) = T_client_index(i + 1, 1)
                        T_client_index(i, 2) = T_client_index(i + 1, 2) 'je déplace les deux
                        T_client_index(i + 1, 1) = tampon_col1
                        T_client_index(i + 1, 2) = tampon_col2  ' je déplace les deux
                    End If
                Next
       
       
                For i = 1 To UBound(T_client_index)
                    ' J'affiche dans ma fenétre Access un résultat pour voir.
                    
                    TEXTETRIER = TEXTETRIER & T_client_index(i, 1) & "|" & T_client_index(i, 2) & Chr(13) & Chr(10)
                    nbrC = nbrC + 1
                     
                Next
        
        
        
        Close fichier_client_index
        
End Sub

Et dans ma fenétre Access : 

ASCONE              |  2
BENCTEUX            |  3
CANNY               |  4
CUVILLIER           |  5
DUPONCHEL           |  6
GODON               |  7
.
.(Je n'est pas tout mis.)
.
NJIEDJOUK           |132
MACHIN133           |133
FORGET              |134
DECOTTIGNIES        |135
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
WISSOCQ             |  1

cs_ShayW · Answer

Salut 

Private Sub BubleSortTable()
 Dim rowword As Integer
 Dim row As Integer
 Dim word1, word2 As String
 row = UBound(table, 1) - 1
For i = 0 To UBound(table, 1) - 1
 
  For iter = 0 To row
   If LCase(table(iter, 0) & table(iter, 1)) > LCase(table(iter + 1, 0) & table(iter + 1, 1)) Then
    word1 = table(iter, 0)
    word2 = table(iter, 1)
    table(iter, 0) = table(iter + 1, 0)
    table(iter, 1) = table(iter + 1, 1)
    table(iter + 1, 0) = word1
    table(iter + 1, 1) = word2
   End If
   Next iter
   row = row - 1
 Next i
End Sub

bon courage

ucfoutu · Answer

Rhoooo...
Quel rapport avec le problème du tri d'un tableau ?
Ce problème a été traité et tu l'as bien adapté à un tableau basé sur l'indice 1 et non 0

Tu n'y tries par contre QUE les articles qu'il contient (ceux dont tu l'as alimenté ! . Il ignore tous les autres (déjà dans ta table, pourtant)
Et tu l'as alimenté par CE code :
Open "H:\Cours\OMGL\OMGL 1	pfichiers\client_index" For Input As fichier_client_index
        
                
                For i = 1 To UBound(T_client_index)
                    
                    Line Input #fichier_client_index, enreg_clients
                    
                    T_client_index(i, 1) = Mid(enreg_clients, 4)
                    T_client_index(i, 2) =  Mid(enreg_clients, 1, 3)
                    
                Next
où l'on voit bien que le tableau (étrange !!!) était  dimensionné à l'avance  (comment et à combien, d'ailleurs ?)
Elle est là, ton "erreur"... et n'a rien à voir avec le tri !
Ouvre ton aide VBA sur le mot Preserve (Redim Preserve) et lis 
Si tu as encore des difficultés avec cet aspect-là  ===>> autre discussion car rien à voir avec le tri, mais avec l'alimentation d'un tableau (à trier ou non !) !
A demain, peut-être (vais au dodo, là ...)        


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Et par ailleurs (v'la aut'chose) :
Qu'est donc TEXTTRIER ?
 car si une textbox, ma foi, comme je ne vois nulle part que tu as effacé son contenu éventuel :
  TEXTETRIER = TEXTETRIER & T_client_index(i, 1) & "|" & T_client_index(i, 2) & Chr(13) & Chr(10)

Ajoutera des lignes (celles du tableau trié) au texte déjà présent (des lignes provenant d'un essai précédent). 

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Ce que je vois mieux, au petit matin, conforte assez ce que supposait mon message du  28 novembre 2012 à 23:20:25

1WISSOCQ
2ASCONE
3BENCTEUX
4CANNY
5CUVILLIER
6DUPONCHEL
7GODON
8LEFEBVRE
9LEMAITRE
10PAPEGAY
11RAVAUX
12SOUXDORF
13THOREZ
14VASTRA

Je n'ai mis qu'une petit parti bien sur ( il y a 132 noms)




ASCONE | 2
BENCTEUX | 3
CANNY | 4
CUVILLIER | 5
DUPONCHEL | 6
GODON | 7
.
.(Je n'est pas tout mis.)
.
NJIEDJOUK |132   = ======>>> coincidence ? couac à partir du  133ème  nom 
MACHIN133 |133
FORGET |134
DECOTTIGNIES |135 

Troublante coincidence ? 
________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Après une bonne nuit, je ne me recoucherai pas sans avoir fini ce f*****g TP.

Déjà je corrige quelque chose il y a bien 135 noms. 

Mon tableau à été déclaré comme ceci ( dans un module ) :

Global T_client_index(199, 2) As String

Comme écrit sur le code je le vide au début de la fonction. Et ma TexteBox (TEXTERTRIER) est vide avant l'affichage. Je rajoute juste au fur a mesure dedans.

ucfoutu · Answer

1) on ne dimensionne pas un tableau ainsi (avant même de connaître le nombre d'article qu'il doit recevoir). 
Comme déjà dit : si tu veux savoir comment faire pour alimenter "sainement" ton tableau ===>> autre discussion à ce SEUL sujet
2) le code de tri fonctionne selon un algo totalement indépendant du nombre d'articles à trier
Voilà voilà ! 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Utilisateur anonyme · Answer

Bonjour,

Il y a un snipet ici en VBA.

Nohlan · Answer

Ucfoutu, j'ai déclaré ce tableau de cette façon car mon TP me le demandé comme ça.

" Déclarez les variables globales fichier_client et fichier_client_index.
" Déclarez également en global le tableau T_client_index(199,2) qui servira à gérer l'index. Les colonnes du tableau sont :
- 1er colonne : le nom du client, qui servira d'index;
- 2eme colonne : le numéro relatif d'enregistrement. 
Remarque : Le tableau T_client_index est le stockage mémoire du fichier purement séquentiel fichier_client_index, qui comporte donc aussi 2 champs: NOM ( longueur 20car) et NUMERO ( 3car alphanumérique )

J'avais alors posé la question au professeur que notre tableau allé recevoir que des string et que le numéro aurait du être au format asc, mais apparemment vb ne prête pas attention. 

Donc apres 2 autres étapes on nous demande : 
- Effacer le contenu du tableau T_client_index;
- relisez fichiez_client_index et remplissez le tableau;
- Triez le tableau et réécrivez le dans z:	pfichiers;
- Affichez le tableau dans le champs comme ci-dessus;"

Je ne met pas en doute tes commentaires, je fais juste ce que me demande le TP :-)

ucfoutu · Answer

1) Ouille ! Attends un peu, là ! C'est de ma faute !
J'ai oublié, dans mon code, une boucle dans la boucle !
Désolé.
Reprends de code de ShayW !
2) Il est désolant que l'on t'ai demandé de dimensionner forfaitairement ton tableau . Vraiment ...
Regarde quand même ce que fait ceci, où tu devras ensuite trier le tableau tablo (code donné par shayW, le mien ayant omis une boucle dans la boucle) :

 Open "H:\Cours\OMGL\OMGL 1	pfichiers\client_index" For Input As #1
     strtext = Split(Input(LOF(1), #1), vbCrLf)
  Close #1
  ReDim tablo(1 To UBound(strtext), 1 To 2)
  For i = 0 To UBound(strtext) - 1
    tablo(i + 1, 1) = Mid(strtext(i), 4)
    tablo(i + 1, 2) = Mid(strtext(i), 1, 3)
  Next
  'Le voilà, ton tableau tablo, dimensionné exactement, non encore trié. La preuve ===>>
  For i = 1 To UBound(tablo, 1)
    MsgBox tablo(i, 1) & " ! " & tablo(i, 2)
  Next

J'ai même évité le redim preserve (si tu veux un code avec, je te le fais aussi)
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

et avec ton tableau dimensionné forfaitairement à 199 ===>> tous les articles en excédent du nombre réel vont rester vides et donc être classés en tête du tri 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Nohlan · Answer

Je remarque aussi un autre problème que tu avait signalé. Je ferme mon programme et quand j&#8217;exécute à nouveau certains noms sont doublé et plus je ferme et relance ils sont triplé, quadruplé....

       Dim rowword As Integer
                Dim row As Integer
                Dim word1, word2 As String
 
                row = UBound(T_client_index, 1) - 1
                
                For i = 1 To UBound(T_client_index, 1) - 1
 
                    For iter = 0 To row
                        If LCase(T_client_index(iter, 1) & T_client_index(iter, 2)) > LCase(T_client_index(iter + 1, 1) & T_client_index(iter + 1, 2)) Then
                            word1 = T_client_index(iter, 1)
                            word2 = T_client_index(iter, 2)
                            
                            T_client_index(iter, 1) = T_client_index(iter + 1, 1)
                            T_client_index(iter, 2) = T_client_index(iter + 1, 2)
                            T_client_index(iter + 1, 1) = word1
                            T_client_index(iter + 1, 2) = word2
                        End If
                    Next iter
                    row = row - 1
                Next i
       
                TEXTETRIER = " "
                For i = 1 To UBound(T_client_index)
                    ' J'affiche dans ma fenétre Access un résultat pour voir.
                    If T_client_index(i, 1) <> " " Then
                        TEXTETRIER = TEXTETRIER & T_client_index(i, 1) & "|" & T_client_index(i, 2) & Chr(13) & Chr(10)
                        nbrL = nbrL + 1
                    End If
                Next
        
        NBRELEMENT = nbrL
        
        Close fichier_client_index

ucfoutu · Answer

1) Pour éviter les blancs, le mieux n'est pas de ne pas ajouter les vides, mais de dimensionner ton tableau comme je te l'ai dit. Il n'est pas logique de le dimensionner "forfaitairement" à 199 lignes. 
2) pour ce qui est de tes "cumuls" entre sessions, cela ne devrait pas arriver puisque tu remets chaque fois à vide TEXTETRIER. Au fait, ce n'est pas " ", mais "".
Sauf si, bien évidemment (mais on ne le voit pas dans ton code), ton code contient des instructions de re-écrirure de ton fichier.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Ah ben ouais ... évidemment Corrige vite ta ligne : If T_client_index(i, 1) <> " " Then un aricle vide ne contient pas " " (un espace), mais rien ! ===>> If T_client_index(i, 1) <> "" Then ________________________ Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches. Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

cs_ShayW · Answer

Bonsoir Ucfoutu

comment en vb6 je déclare un multidimensional array sans connaitre sa taille ?

si j'écris dim table(,) ce n'est pas accepté

merci

ucfoutu · Answer

- Où (quel module et quel évènement) et comment (montre le code) as-tu déclaré et dimensionné ton tableau ? Es-tu certain, par ailleurs, de ne pas avoir redimensionné par une autre ligne de code, quelque-part, à l'aide de redim ?
- Où et comment (montre le code) as-tu effacé ce tableau ?
- Aurais-tu réécrit (par code) le fichier traité ? Réponse oui ou non uniquement.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Je n'ai a aucun moment redimensionné mon tableau.
Il est déclaré dans le module 1 :

Option Compare Database
Option Explicit

Global fichier_client As Integer
[u]
Global fichier_client_index As Integer

Global T_client_index(199, 2) As String

Public Type structure_client
    Numcli As String * 7
    Nom As String * 20
    Prenom As String * 15
    Cp As String * 5
End Type


Public enreg_client As structure_client

Public Sub initialiser()
    fichier_client = 1
    fichier_client_index = 2
End Sub
/u



[u]
J'ai effacé mon tableau au début de fonction juste avant l'ouverture /u:

Private Sub TRIER_Click()
    
        'efface le contenu du tableau T_client_index
        Erase T_client_index
        
        'On relis fichier_client_index et on remplis le tableau
        Open "H:\Cours\OMGL\OMGL 1	pfichiers\client_index" For Input As fichier_client_index


Oui j'ai réécris (par code) le fichier traité.

ucfoutu · Answer

A ShayW :
Regarde (c'est ce qu'il fait), ce code-là dans mon message de jeudi 29 novembre 2012 à 14:40:51
Observe bien : Pas de Dim ===>> Redim directement, puisque l'on utilise des variables et non des valeurs numériques directement. 

C'est pareil sous VB6
Fais ce test dans un projet tout neuf sous VB-. Il te parlera ===>>

Private Sub Command4_Click()
  a 2: b 3
  ReDim tablo(a, b)
  For i = 0 To a
    For j = 0 To b
      tablo(i, j) = "on s'en fout " & i & "  " & j
    Next
  Next

  For i = 0 To a
    For j = 0 To b
      MsgBox tablo(i, j)
    Next
  Next
End Sub

Amitiés.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Ben ... Il est alors tout-à-fait normal qu'il soit dimensionné à 199 à la réouverture de ton appli.
S'agissant d'un tableau de taille variable (strings), ton Erase, toutefois, ne se contente pas d'en effacer les articles ===>> il lui fait perdre son dimensionnement.
Tu t'en apercevrais en lançant par exemple ta procédure (celle où se trouve ta lecture de fichier) deux fois de suite sans fermer ton appli. Une erreur devrait être alors dénoncée par VB du fait de la perte du dimensionnement de ton tableau.
J'observe par ailleurs une maladresse dans ton code. Pourquoi attends-tu la fin du tri pour fermer ton fichier (Close fichier_client_index) ? Il est sage de le fermer sans attendre, dès sa lecture terminée, juste après le next de :
For i = 1 To UBound(T_client_index)
            
                    Line Input #fichier_client_index, enreg_clients
                    T_client_index(i, 2) = Mid(enreg_clients, 1, 3)
                    T_client_index(i, 1) = Mid(enreg_clients, 4)
                    
                Next
Mais revenons à l'essentiel (à l'anomalie principale)
Tu me dis ne redimensionner ton tableau nulle part ailleurs.
Ouais ... mais alors je ne comprends plus comment, après ton Erase (qui en supprime les dimensions dans la foulée), tes instructions sont exécutées sans erreur immédiatement dénoncée par VB !
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Non. Je retire ce que j'ai dit, qui n'est vrai que si Redim, ce qui n'est pas ton cas. Ton Erase ne fait pas de dégâts.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Ouais ... mais alors je ne comprends plus comment, après ton Erase (qui en supprime les dimensions dans la foulée), tes instructions sont exécutées sans erreur immédiatement dénoncée par VB ! 

Je ne suis absolument pas à ton niveau, mais le fait de le declarer en global dans un module, a chaque appelle de ce dernier il prend automatiquement les dimansions ?

'efface le contenu du tableau T_client_index
        Erase T_client_index
        
        'On relis fichier_client_index et on remplis le tableau
        Open "H:\Cours\OMGL\OMGL 1	pfichiers\client_index" For Input As fichier_client_index
        
                
                For i = 1 To UBound(T_client_index)
                    
                    Line Input #fichier_client_index, enreg_clients
                    ' Pour chaque nouvelle ligne au decoupe avec Mid
                    'Pour le nom de 4 à la fin
                    T_client_index(i, 1) = Mid(enreg_clients, 4)
                    'Pour le numero de 1 à 3
                    T_client_index(i, 2) = Mid(enreg_clients, 1, 3)
                    
                Next

ucfoutu · Answer

Non. Laisse tomber (lis mon dernier message) ===>> tu n'es pas dans le cas craint.
Mais il y a là un mystère que plus rien n'explique !
Si tout a été dit (en es-tu bien certain ?) le phénomène que tu dénonces ne devrait pas être là !
Peux-tu (on ne sait jamais) ouvrir ton fichier (celui traité) par le bloc-notes et jeter un oeil à son contenu ? Et me dire si "étrangetés" ? 


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

1WISSOCQ             
  2ASCONE              
  3BENCTEUX            
  4CANNY               
  5CUVILLIER           
  6DUPONCHEL           
  7GODON               
  8LEFEBVRE            
  9LEMAITRE            
 10PAPEGAY             
 11RAVAUX              
 12SOUXDORF            
 13THOREZ              
 14VASTRA              
 15LANNEZ              
 16MOTTET 
.
.
.
.
.  


Non rien de spécial.

ucfoutu · Answer

ce que tu viens de montrer est EXACTEMENT ce que tu vois avec le bloc-notes ?
Etrange, surprenant, même, car alors ces lignes :
 Line Input #fichier_client_index, enreg_clients
                    T_client_index(i, 1) = Mid(enreg_clients, 1, 3)
                    T_client_index(i, 2) = Mid(enreg_clients, 4)

ne feraient pas ce que tu dis qu'elles font (ce que tu as dans ton tableau) !!!
Tu ne me dis pas tout, je pense...
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Je suis autant surpris que toi, je suis depuis 1heures a la recherche de cette erreur. Je n'irai pas me coucher avant :) 




Private Sub LISTERTOUS_Click()
    initialiser
    
    Open "H:\Cours\OMGL\OMGL 1	pfichiers\client" For Random As fichier_client
    
    
    TEXTEFICHIER = ""
    nbrC = 0
    i = 1
    While Not EOF(fichier_client)
        ' 2/ Lecture des données du fichier client et transfére dans le champ TEXTEFICHIER.
        
        Get fichier_client, , enreg_client
                
                ' Format du numero pour avoir un truc bien aligné
                i = Format(i, "@@@")
                
                'Ajout au fur à mesure de la nouvelle chaine
                TEXTEFICHIER = TEXTEFICHIER & i & "|" & enreg_client.Numcli & "|" & enreg_client.Nom & "|" & enreg_client.Prenom & "|" & enreg_client.Cp & Chr(13) & Chr(10)
                
                ' Incrémentation du nombre de clients
                nbrC = nbrC + 1
                
                'ecriture dans le tableau
                '(i,1) -> colonne 1
                T_client_index(i, 1) = enreg_client.Nom
                '(i,2) -> colonne 2
                T_client_index(i, 2) = i
                'Boucle while donc incrementation du i
                i = i + 1
                
            
    Wend
    
    'Affichage du nombre de client
    NBRCLIENT = nbrC
    Close fichier_client
    
    'Ecriture du tableau sous forme d'un fichier séquentiel
    Open "H:\Cours\OMGL\OMGL 1	pfichiers\client_index" For Output As fichier_client_index
        
                
                
                For i = 1 To UBound(T_client_index)
                
                    'A chaque tour de boucle on passe a la ligne ( au client ) suivant
                    'on met la ligne ( mais 2 colonnes ) dans la même chaine
                    client = T_client_index(i, 2) & T_client_index(i, 1)
                    
                    'Pour ecrire la chaine client dans un fichier "client_index"
                    'supprimer et créée automatiquement a chaque clic sur le bouton
                    Print #fichier_client_index, client
                    
                Next
                
           
        
    Close fichier_client_index
    
End Sub


Private Sub TRIER_Click()
    
        'efface le contenu du tableau T_client_index
        Erase T_client_index
        
        'On relis fichier_client_index et on remplis le tableau
        Open "H:\Cours\OMGL\OMGL 1	pfichiers\client_index" For Input As fichier_client_index
        
                
                For i = 1 To UBound(T_client_index)
                    
                    Line Input #fichier_client_index, enreg_clients
                    ' Pour chaque nouvelle ligne au decoupe avec Mid
                    'Pour le nom de 4 à la fin
                    T_client_index(i, 1) = Mid(enreg_clients, 4)
                    'Pour le numero de 1 à 3
                    T_client_index(i, 2) = Mid(enreg_clients, 1, 3)
                    
                Next
        
       
  
                'Boucle qui tri le tableau dans l'ordre alphabétique
                Dim rowword As Integer
                Dim row As Integer
                Dim word1, word2 As String
 
                row = UBound(T_client_index, 1) - 1
                
                For i = 1 To UBound(T_client_index, 1) - 1
 
                    For iter = 0 To row
                    'Comparaison des valeurs
                        If LCase(T_client_index(iter, 1) & T_client_index(iter, 2)) > LCase(T_client_index(iter + 1, 1) & T_client_index(iter + 1, 2)) Then
                            'On stock dans des variables temporaire pour intervertire
                            'Deja fait en Algo
                            word1 = T_client_index(iter, 1)
                            word2 = T_client_index(iter, 2)
                            
                            'On remplace par les nouvelles
                            T_client_index(iter, 1) = T_client_index(iter + 1, 1)
                            T_client_index(iter, 2) = T_client_index(iter + 1, 2)
                            
                            'On affecte la valeur la plus grande a la suite
                            T_client_index(iter + 1, 1) = word1
                            T_client_index(iter + 1, 2) = word2
                        End If
                    Next iter
                    row = row - 1
                Next i
       
       
                'Affichage dans TEXTETRIER du tableau
                
                TEXTETRIER = ""
                For i = 1 To UBound(T_client_index)
                    
                    If T_client_index(i, 1) <> "" Then
                        TEXTETRIER = TEXTETRIER & T_client_index(i, 1) & "|" & T_client_index(i, 2) & Chr(13) & Chr(10)
                        nbrL = nbrL + 1
                    End If
                Next
        'Nombre total de client
        NBRELEMENT = nbrL
        
        Close fichier_client_index
        
End Sub

ucfoutu · Answer

Hé, l'ami !
1) nous ne sommes plus du tout sur la même méthode de lecture des lignes de ton fichier ...
2) cette ligne :
 Print #fichier_client_index, client

modifie ton fichier
L'ensemble : utilise une acrobatie inutile pour alimenter ton tableau*
3) on ne sait pas à quel moment tu lances le tri (pas automatiquement, apparemment).

Je me doutais déjà de l'existence de choses dont tu ne parlais pas. Il y en a peut-être d'autres ...
Voilà toutefois des décennies que je ne joue plus au poker javanais (tu sais ? ce jeu dont on apprend les conventions - qui peuvent changer en cours de jeu - au fur et à mesure de l'avancement du jeu et au gré d'un seul des deux joueurs ... ) 
Voilà ce que te proposes donc le vieux crouton que je suis :
1) tu mets sur un site de dépôt le fichier texte à traiter, TEL qu'il est au départ (en .txt ou en zip de txt)
2) si je l'ai avant 22 heures, tu auras ici avant minuit un code simple,   jusq'au tri et à l'affichage du résultat dabns une textbox

Tu me diras à cette occasion si tu tiens vraiment à un dimensionnement "forfaitaire" à 199 (si ton prof l'impose ainsi) ou si tu veux du plus orthodoxe (dimensionnement exact). Moi, je saurais faire tant dans un cas que dans l'autre, mais tiens à ce que ce soit là TON choix (pas le mien).

Aller au-delà (jouer à découvrir), je n'en ai plus la force

Voilà.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

1 Je peux te donner ça bien sur, le truc particulier de ce tp c'est que l'on démarre avec un fichier relatif, que l'on affiche et dans la même boucle on écrit dans un tableau le NOM et NUMÉRO.

2 Ensuite on écrit le tableau sous forme d'un fichier séquentiel

3 Puis on efface le tableau 

4 On relis le fichier crée en 2 et on rempli le tableau

5 On tri le tableau et on réécrie un fichier avec les clients trié

6 Afficher le tableau dans le champ TEXTETRIER

On doit jouer avec les relatif, séquentiel et séquentiel indexé

Nohlan · Answer

http://www.mediafire.com/?v1c8ikpd6cb1csg

http://www.mediafire.com/view/?epope38oow81hh1

Nohlan · Answer

Au cas ou : 
Mon fichier access

http://www.mediafire.com/?7y925vy1548n03c

ucfoutu · Answer

Ensuite on écrit le tableau sous forme d'un fichier séquentiel 
Gné ?
On relis le fichier crée en 2 et on rempli le tableau 

je ne sais pas qui est ton prof, mais : si ce que je devine est vrai :
soit tu ne l'as pas compris du tout (notamment en ce qui concerne ce qu'il entend par fichier séquentiel = pseudo base de données), soit tu l'as compris mais il passerait alors par un drôle de tremplin bien inutile pour alimenter le tableau comme tu le fais, avant même son tri). 
Je vais préférer te laisser là, car on va considérablement s'éloigner, selon moi, de ce que t'a demandé ton prof. 
Le tri d'un tableau dynamique à deux dimensions a été traité. C'était le sujet de cette discussion.
Bonne nuit.

________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Je vais tenter de te mettre sur la voie que je devine (celle de ton prof) :
regarde deux petits extraits de l'aide :

Type Record    ' Désigne un type défini par l'utilisateur.
    ID As Integer
    Name As String * 20
End Type

Dim MyRecord As Record, RecordNumber    ' Déclare les variables.
' Ouvre le fichier en accès aléatoire.
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
For RecordNumber = 1 To 5    ' Effectue la boucle 5 fois.
    MyRecord.ID = RecordNumber    ' Définit l'identificateur.
    MyRecord.Name = "Mon nom" & RecordNumber    ' Crée une chaîne.
    ' Écrit l'enregistrement dans le fichier.
    Put #1, RecordNumber, MyRecord
Next RecordNumber
Close #1    ' Ferme le fichier.


Get, instruction, exemple
Cet exemple utilise l'instruction Get afin de lire les données d'un fichier et de les écrire dans une variable. Nous supposons que FICHTEST est un fichier contenant cinq enregistrements de type Record défini par l'utilisateur .

Type Record    ' Désigne un type défini par l'utilisateur.
    ID As Integer
    Name As String * 20
End Type

Dim MyRecord As Record, Position    ' Déclare les variables.
' Ouvre l'exemple de fichier en accès aléatoire.
Open "FICHTEST" For Random As #1 Len = Len(MyRecord)
' Lit l'exemple de fichier à l'aide de l'instruction Get.
Position = 3    ' Définit le numéro d'enregistrement.
Get #1, Position, MyRecord    ' Lit le troisième enregistrement.
Close #1    ' Ferme le fichier.

Ils devraient te conduire à plusieurs réflexions plus que utiles.
Ajoutons ceci : une fois ton fichier texte plat transformé (par put) et la structure d'accompagnement en fichier structuré  ===>> Get te permet d'en extraire les enregistrements (tous).
Cette extraction te permet d'alimenter facilement un pseudo recordset (appelons-le RS)
RS peur être trié par une simple requête. Ce tri peut alimenter un tableau (si tu le veux), mais également directement un contrôle d'affichage (y compris une textbox).
Rien ne t'empêche (en sens inverse) d'abonder ton fichier séquentiel à partir des données ainsi triées.

Par ailleurs : inutile de formater (tes "@@@") d'abord le fichier plat originel pour y revenir ensuite et en séparer le préfixe numérique et le reste.
Ex :
  toto = "1234567BLABLA"
  nume = Val(toto)
  reste = Mid(toto, Len(CStr(nume)) + 1)
  MsgBox reste & vbCrLf & nume

tu vois bien : une seule lecture suffit.

Reste qu'il est assez vraisemblable, comme tu l'as toi-même déjà dit, que les autres de ta classe ne seront pas bien plus "avancés" que toi.
Si tu as le temps de réfléchir à nouveau sur ces bases et de tout reprendre, tu seras le "caïd". Sinon : sois sans crainte : tu ne seras pas le dernier.
Amitiés et bonne nuit.
Je te laisse là.
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Nohlan · Answer

Je suis sur de moi en disant que je suis le seul a faire la fin de ce tp. 
Sinon je vais pour le seul jour ( vendredi ) qu'il me reste avant mon ds me concentrer sur les choses vue en cours, mais toutes tes explications mon beaucoup aidé, et je ne manquerai pas de venir revoir tout ça une fois passé ce test.

Encore un grand merci a toi pour ta patience qui est sur les forums fasse a des novices comme moi mise a rude épreuve

Trier par ordre alphabétique un tableau.

51 réponses

Votre réponse