Parcourir un tableau recursivement

Parcourir un tableau recursivement - VB/VBA/VBS - Programmation

Marsh Posté le 25-01-2010 à 13:56:55    

Bonjour,
 
Je souhaire en VBA uniquement pouvoir generer un tableau dynamiquement.
 
Je connais :
 

  • Taille de départ (8,8)
  • Tableau à 2 dimensions


Je voudrai lire les valeurs de ce tableau et comparer chaque ligne.
Si une ligne ENTIERE est > à une ligne --> on supprimer la ligne et la colonne correspondante
 
Exemple :
 

Code :
  1. ligne 1 : 1 1 1 1 1 1 1 1
  2. ligne 2 : 2 2 2 2 2 2 2 2
  3. ligne 3 : 0 0 0 0 0 0 0 0
  4. .....


 
Je parcours mon tableau :  
 
Premier passage : on compare ligne1 et ligne2 --> ligne 1 est inférieur.
Deuxieme passage : on compare ligne1 et ligne3 --> toute la ligne 1 est superieur à la ligne 3
 
Donc je veux regénérer un tableau sans la ligne 3 et ni la colonne 3 ce qui veut dire que mon tableau devient en dimension (7,7).
Et je recommence jusqu'a ce qu'il n'y est plus de ligne superieur.
 
 
Je n'y arrive pas algorythmiquement
Je peche sur comment generer le tableau
 
 
Je pensai à un programme principal  avec 2 fonction
 

  • fonction LireTableau()  avec un "if" --> si toute la ligne < ligne comparer alors GenererTableau(tab,ligne,colonne)  


 

  • fonction GenereTableau(AncienTableau(),colonneEnlever,ligneEnlever)


Un petit coup de pouce...  
 
 
 
 
 
 

Reply

Marsh Posté le 25-01-2010 à 13:56:55   

Reply

Marsh Posté le 25-01-2010 à 14:05:04    

Pas besoin de récursion. Deux boucles imbriquées suffisent :
 
1. Loop until on n'a rien trouvé à supprimer
2. Loop from 1 to n until il faut supprimer quelque chose

Message cité 1 fois
Reply

Marsh Posté le 25-01-2010 à 14:20:07    

Comment je fais alors pour relire mon tableau  avec les nouvelles valeurs?
Ce que je cherche à faire c'est comment regenerer le tableau en fait sans les valeurs de la ligneSupprime et la colonneSupprime
 
LireTableau
 
Parcourir tableau(i,j)
Si tableau(i,j) > tableau (i+1,j+1)
 genererUnNouveauTableau(sans la ligne i+1 et colonne j+1)
FinSi
 
 

Reply

Marsh Posté le 25-01-2010 à 14:43:43    

Quel genre de tableau est-ce ?
Un tableau d'entiers basic, ou un tableau Excel, ou une table Access ?
 
Si c'est un tableau basic, on supprime une ligne (ou une colonne) en faisant un décalage, lequel se fait en recopiant la ligne (ou la colonne) suivante à l'emplacement de la ligne (ou de la colonne) suprimée, idem pour la ligne (ou la colonne) voisine, etc., et on diminue le nombre total de lignes (ou de colonnes). On peut faire un redim, mais ce n'est peut-être pas nécessaire.

Reply

Marsh Posté le 25-01-2010 à 14:51:16    

Au final ca sera un tableau excel...
 
Mais je veux pouvoir le faire avec un tableau d'entier basic
Justement c'est ça que je n'arrive pas à faire.

Reply

Marsh Posté le 25-01-2010 à 15:14:22    

Avec un tableau Excel, c'est plus facile, car il existe des commandes pour effacer une ligne (ou une colonne), et on n'a donc pas besoin de programmer le décalage.
 
Qu'est qui est difficile ?
L'algorithme a été défini. Chaque partie de l'algorithme est faisable. Où est le blocage ? Dans quel partie ?

Message cité 1 fois
Reply

Marsh Posté le 25-01-2010 à 17:20:10    

olivthill a écrit :

Avec un tableau Excel, c'est plus facile, car il existe des commandes pour effacer une ligne (ou une colonne), et on n'a donc pas besoin de programmer le décalage.
 
Qu'est qui est difficile ?
L'algorithme a été défini. Chaque partie de l'algorithme est faisable. Où est le blocage ? Dans quel partie ?


 
Genre avec un Worksheets.range(H6).value = null  ?
 
Mieux montrer mon sale code...  et je pense que tu vas vite comprendre pourquoi je m'embrouille...
 
JE fais plein de SI imbriquer...  
 
 
 

Code :
  1. m = 0
  4. Dim ligne0()
  5. Dim ligne1()
  6. Dim ligne2()
  7. Dim ligne3()
  8. Dim ligne4()
  9. Dim ligne5()
  10. Dim ligne6()
  11. Dim ligne7()
  12. Dim ligne0_active As Boolean
  13. Dim ligne1_active As Boolean
  14. Dim ligne2_active As Boolean
  15. Dim ligne3_active As Boolean
  16. Dim ligne4_active As Boolean
  17. Dim ligne5_active As Boolean
  18. Dim ligne6_active As Boolean
  19. Dim ligne7_active As Boolean
  20. Dim trouver As Boolean
  21. Dim sortir_comparaison As Boolean
  22. Dim nbrLigne As Integer
  23. Dim tour As Integer
  24. Dim tour0 As Integer
  25. Dim tour1 As Integer
  26. Dim tour2 As Integer
  27. Dim tour3 As Integer
  28. Dim tour4 As Integer
  29. Dim tour5 As Integer
  30. Dim tour6 As Integer
  31. Dim tour7 As Integer
  39. nbrLigne = 7
  43. For m = 0 To 7
  45. tour0 = 0
  46. tour1 = 0
  47. tour2 = 0
  48. tour3 = 0
  49. tour4 = 0
  50. tour5 = 0
  51. tour6 = 0
  52. tour7 = 0
  53. tour = 0
  55. trouver = False
  56. sortir_comparaison = False
  57. ligne0_active = True
  58. ligne1_active = True
  59. ligne2_active = True
  60. ligne3_active = True
  61. ligne4_active = True
  62. ligne5_active = True
  63. ligne6_active = True
  64. ligne7_active = True
  65. p = 0
  66. l = -2
  67. k = 6
  68. k2 = 0
  69. i = 0
  71.     For i = 0 To nbrLigne
  72.     l = l + 2
  73.         ReDim Preserve ligne0(i)
  74.         ReDim Preserve ligne1(i)
  75.         ReDim Preserve ligne2(i)
  76.         ReDim Preserve ligne3(i)
  77.         ReDim Preserve ligne4(i)
  78.         ReDim Preserve ligne5(i)
  79.         ReDim Preserve ligne6(i)
  80.         ReDim Preserve ligne7(i)
  81.    
  83. 'ICI JE REGARDE SI LA LIGNE EST ACTIVE ET SI LA CELLULE NE CONTIENT PAS "-" ALORS J'INCERE DANS LE TABLEAU LA VALEUR
  84.         If ligne0_active = True & ActiveSheet.Range(colonne(l) & k + 0) <> "-" Then
  85.             ligne0(i) = ActiveSheet.Range(colonne(l) & k + 0)
  86.         End If
  87.        
  88.         If ligne1_active = True & ActiveSheet.Range(colonne(l) & k + 1) <> "-" Then
  89.             ligne1(i) = ActiveSheet.Range(colonne(l) & k + 1)
  90.         End If
  91.        
  92.         If ligne2_active = True & ActiveSheet.Range(colonne(l) & k + 2) <> "-" Then
  93.             ligne2(i) = ActiveSheet.Range(colonne(l) & k + 2)
  94.         End If
  95.        
  96.         If ligne3_active = True & ActiveSheet.Range(colonne(l) & k + 3) <> "-" Then
  97.             ligne3(i) = ActiveSheet.Range(colonne(l) & k + 3)
  98.         End If
  99.            
  100.         If ligne4_active = True & ActiveSheet.Range(colonne(l) & k + 4) <> "-" Then
  101.             ligne4(i) = ActiveSheet.Range(colonne(l) & k + 4)
  102.         End If
  103.            
  104.         If ligne5_active = True & ActiveSheet.Range(colonne(l) & k + 5) <> "-" Then
  105.             ligne5(i) = ActiveSheet.Range(colonne(l) & k + 5)
  106.         End If
  107.            
  108.         If ligne6_active = True & ActiveSheet.Range(colonne(l) & k + 6) <> "-" Then
  109.              ligne6(i) = ActiveSheet.Range(colonne(l) & k + 6)
  110.         End If
  111.            
  112.         If ligne7_active = True & ActiveSheet.Range(colonne(l) & k + 7) <> "-" Then
  113.             ligne7(i) = ActiveSheet.Range(colonne(l) & k + 7)
  114.         End If
  115.            
  116.     Next i
  117. i = 0
  118.     For i = 0 To nbrLigne
  119.    
  120.         If trouver = False Then
  121.        
  122.             'ligne1
  123.              If ligne0(i) >= ligne1(i) Then
  124.                 If sortir_comparaison = False Then
  125.                     If ligne1_active = True Then
  126.                         If tour1 = 7 Then
  127.                             For j = 0 To 7
  128.                                 ligne1(j) = "-"
  129.                                 ActiveSheet.Range(colonne(j * 2) & k + 1).Value = "-"
  130.                                 k2 = k + j
  131.                                 ActiveSheet.Range("L" & k2).Value = "-"
  132.                                 ligne1_active = False
  133.                                 trouver = True
  134.                                 sortir_comparaison = True
  135.                                
  136.                             Next j
  137.                             nbrLigne = nbrLigne - 1
  138.                         Else
  139.                             tour1 = tour1 + 1
  140.                         End If
  141.                     End If
  142.                 End If
  143.             End If
  144.            
  145.             'ligne2
  146.             If (ligne0(i) >= ligne2(i)) Then
  147.                 If sortir_comparaison = False Then
  148.                     If ligne2_active = True Then
  149.                         If tour2 = 7 Then
  150.                             For j = 0 To 7
  151.                                 ligne2(j) = "-"
  152.                                 ActiveSheet.Range(colonne(j * 2) & k + 2).Value = "-"
  153.                                 k2 = k + j
  154.                                 ActiveSheet.Range("N" & k2).Value = "-"
  155.                                 ligne2_active = False
  156.                                 trouver = True
  157.                                 sortir_comparaison = True
  158.                                
  159.                             Next j
  160.                             nbrLigne = nbrLigne - 1
  161.                         Else
  162.                             tour2 = tour2 + 1
  163.                         End If
  164.                     End If
  165.                 End If
  166.             End If
  167.            
  168.             'ligne3
  169.             If (ligne0(i) >= ligne3(i)) Then
  170.                 If sortir_comparaison = False Then
  171.                     If ligne3_active = True Then
  172.                         If tour3 = 7 Then
  173.                             For j = 0 To 7
  174.                                 ligne3(j) = "-"
  175.                                 ActiveSheet.Range(colonne(j * 2) & k + 3).Value = "-"
  176.                                 k2 = k + j
  177.                                 ActiveSheet.Range("P" & k2).Value = "-"
  178.                                 ligne3_active = False
  179.                                 trouver = True
  180.                                 sortir_comparaison = True
  181.                            
  182.                             Next j
  183.                             nbrLigne = nbrLigne - 1
  184.                         Else
  185.                             tour3 = tour3 + 1
  186.                         End If
  187.                     End If
  188.                 End If
  189.             End If
  190.            
  191.             'ligne4
  192.             If ligne0(i) >= ligne4(i) Then
  193.                 If sortir_comparaison = False Then
  194.                     If ligne4_active = True Then
  195.                         If tour4 = 7 Then
  196.                             For j = 0 To 7
  197.                                 ligne4(j) = "-"
  198.                                 ActiveSheet.Range(colonne(j * 2) & k + 4).Value = "-"
  199.                                 k2 = k + j
  200.                                 ActiveSheet.Range("R" & k2).Value = "-"
  201.                                 ligne4_active = False
  202.                                 trouver = True
  203.                                 sortir_comparaison = True
  204.                                
  205.                             Next j
  206.                             nbrLigne = nbrLigne - 1
  207.                         Else
  208.                             tour4 = tour4 + 1
  209.                         End If
  210.                     End If
  211.                 End If
  212.             End If
  213.            
  214.             'ligne5
  215.             If (ligne0(i) >= ligne5(i)) Then
  216.                 If sortir_comparaison = False Then
  217.                     If ligne5_active = True Then
  218.                         If tour5 = 7 Then
  219.                             For j = 0 To 7
  220.                                 ligne5(j) = "-"
  221.                                 ActiveSheet.Range(colonne(j * 2) & k + 5).Value = "-"
  222.                                 k2 = k + j
  223.                                 ActiveSheet.Range("T" & k2).Value = "-"
  224.                                 ligne5_active = False
  225.                                 trouver = True
  226.                                 sortir_comparaison = True
  227.                                
  228.                             Next j
  229.                             nbrLigne = nbrLigne - 1
  230.                         Else
  231.                             tour5 = tour5 + 1
  232.                         End If
  233.                     End If
  234.                 End If
  235.             End If
  236.            
  237.             'ligne6
  238.             If (ligne0(i) >= ligne6(i)) Then
  239.                 If sortir_comparaison = False Then
  240.                     If ligne6_active = True Then
  241.                         If tour6 = 7 Then
  242.                             For j = 0 To 7
  243.                                 ligne6(j) = "-"
  244.                                 ActiveSheet.Range(colonne(j * 2) & k + 6).Value = "-"
  245.                                 k2 = k + j
  246.                                 ActiveSheet.Range("V" & k2).Value = "-"
  247.                                 ligne6_active = False
  248.                                 trouver = True
  249.                                 sortir_comparaison = True
  250.                                
  251.                             Next j
  252.                             nbrLigne = nbrLigne - 1
  253.                         Else
  254.                             tour6 = tour6 + 1
  255.                         End If
  256.                     End If
  257.                 End If
  258.             End If
  259.            
  260.             'ligne7
  261.             If (ligne0(i) >= ligne7(i)) Then
  262.                 If sortir_comparaison = False Then
  263.                     If ligne7_active = True Then
  264.                         If tour7 = 7 Then
  265.                             For j = 0 To 7
  266.                                 ligne1(j) = "-"
  267.                                 ActiveSheet.Range(colonne(j * 2) & k + 7).Value = "-"
  268.                                 k2 = k + j
  269.                                 ActiveSheet.Range("Y" & k2).Value = "-"
  270.                                 ligne7_active = False
  271.                                 trouver = True
  272.                                 sortir_comparaison = True
  273.                                
  274.                             Next j
  275.                             nbrLigne = nbrLigne - 1
  276.                         Else
  277.                             tour7 = tour7 + 1
  278.                         End If
  279.                     End If
  280.                 End If
  281.             End If
  282.            
  283.            
  284.         End If
  285.        
  286.    
  287.     Next i
  288. Next m


Reply

Marsh Posté le 26-01-2010 à 13:19:02    

olivthill a écrit :

Pas besoin de récursion. Deux boucles imbriquées suffisent :
 
1. Loop until on n'a rien trouvé à supprimer
2. Loop from 1 to n until il faut supprimer quelque chose


 Loop from 1 to n unti  
 
n represente quoi...
 
BOn j'ai recommencé un exemple test mais je ne vois pas ou est ce que je dois supprimer une ligne :
 

Code :
  1. Do While ligneASupprimer = True
  2.         Do While resultatLigne > resultatLigneCompare
  3.        
  4.             If nouveau(numeroLigne, numeroColonne) > nouveau(numeroLigneCompare + 1, numeroColonne) Then
  5.            
  6.             End If
  7.            
  8.         Loop
  9.     Loop


Message édité par PsYKrO_Fred le 26-01-2010 à 13:20:33
Reply

Marsh Posté le 26-01-2010 à 15:36:57    

Voici le code qui correspond à l'exemple, mais il faudra peut-être l'adapter un peu.

Sub ReduireTableau()
  nb_col = 8
  nb_lig = 8
  ' 1. Loop until on n'a rien trouvé à supprimer
  Do
    qqchose_a_sup = False
    ' 2. Loop from 1 to n until il faut supprimer quelque chose
    For i = 2 To nb_lig
      ' Voir si la première ligne est superieure à la ligne en cours
      est_sup = True
      For j = 1 To nb_col
         If (Cells(1, j) <= Cells(i, j)) Then
           est_sup = False
           Exit For
         End If
      Next j
      If (est_sup = True) Then
        Cells(i, 1).EntireRow.Delete
        nb_lig = nb_lig - 1
        Cells(1, i).EntireColumn.Delete
        nb_col = nb_col - 1
        qqchose_a_sup = True
        Exit For
      End If
    Next i
  Loop While qqchose_a_sup = True
End Sub


Message cité 1 fois
Reply

Marsh Posté le 26-01-2010 à 18:55:15    

olivthill a écrit :

Voici le code qui correspond à l'exemple, mais il faudra peut-être l'adapter un peu.

Sub ReduireTableau()
  nb_col = 8
  nb_lig = 8
  ' 1. Loop until on n'a rien trouvé à supprimer
  Do
    qqchose_a_sup = False
    ' 2. Loop from 1 to n until il faut supprimer quelque chose
    For i = 2 To nb_lig
      ' Voir si la première ligne est superieure à la ligne en cours
      est_sup = True
      For j = 1 To nb_col
         If (Cells(1, j) <= Cells(i, j)) Then
           est_sup = False
           Exit For
         End If
      Next j
      If (est_sup = True) Then
        Cells(i, 1).EntireRow.Delete
        nb_lig = nb_lig - 1
        Cells(1, i).EntireColumn.Delete
        nb_col = nb_col - 1
        qqchose_a_sup = True
        Exit For
      End If
    Next i
  Loop While qqchose_a_sup = True
End Sub




 
 
Merci beaucoup je pense que je dois l'adapter evidemment mais je ne vois pas à quel moment tu lui passe les valeurs du tableau en fait...  
 
Dois je remplacer Cells(1,j) avec Tableau(i,j) ?

Reply

Marsh Posté le 26-01-2010 à 18:55:15   

Reply

Marsh Posté le 27-01-2010 à 09:46:51    

Citation :

Dois je remplacer Cells(1,j) avec Tableau(i,j) ?


Ca dépend dans quellle ligne.
 
Dans la ligne If (Cells(1, j) <= Cells(i, j)) Then , Cells(1, j) désigne le contenu de la cellule de la ligne 1, colonne j. Donc, ici, on peut effectivement remplacer la cellule Excell par une cellule de tableau basic.
 
Dans la ligne Cells(i, 1).EntireRow.Delete, Cells(i, 1) désigne un objet qui n'a pas d'équivalent en basic. Cette ligne devra être remplacée par une boucle pour faire le décalage dont je parlais plus haut.

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed