Parcourir un tableau recursivement

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Parcourir un tableau recursivement

PsYKrO_Fred

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 :

ligne 1 : 1 1 1 1 1 1 1 1
ligne 2 : 2 2 2 2 2 2 2 2
ligne 3 : 0 0 0 0 0 0 0 0
.....

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

Publicité

olivthill

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

PsYKrO_Fred

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

olivthill

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.

PsYKrO_Fred

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.

olivthill

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

PsYKrO_Fred

olivthill a écrit :

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 :

m = 0
Dim ligne0()
Dim ligne1()
Dim ligne2()
Dim ligne3()
Dim ligne4()
Dim ligne5()
Dim ligne6()
Dim ligne7()
Dim ligne0_active As Boolean
Dim ligne1_active As Boolean
Dim ligne2_active As Boolean
Dim ligne3_active As Boolean
Dim ligne4_active As Boolean
Dim ligne5_active As Boolean
Dim ligne6_active As Boolean
Dim ligne7_active As Boolean
Dim trouver As Boolean
Dim sortir_comparaison As Boolean
Dim nbrLigne As Integer
Dim tour As Integer
Dim tour0 As Integer
Dim tour1 As Integer
Dim tour2 As Integer
Dim tour3 As Integer
Dim tour4 As Integer
Dim tour5 As Integer
Dim tour6 As Integer
Dim tour7 As Integer
nbrLigne = 7
For m = 0 To 7
tour0 = 0
tour1 = 0
tour2 = 0
tour3 = 0
tour4 = 0
tour5 = 0
tour6 = 0
tour7 = 0
tour = 0
trouver = False
sortir_comparaison = False
ligne0_active = True
ligne1_active = True
ligne2_active = True
ligne3_active = True
ligne4_active = True
ligne5_active = True
ligne6_active = True
ligne7_active = True
p = 0
l = -2
k = 6
k2 = 0
i = 0
For i = 0 To nbrLigne
l = l + 2
ReDim Preserve ligne0(i)
ReDim Preserve ligne1(i)
ReDim Preserve ligne2(i)
ReDim Preserve ligne3(i)
ReDim Preserve ligne4(i)
ReDim Preserve ligne5(i)
ReDim Preserve ligne6(i)
ReDim Preserve ligne7(i)
'ICI JE REGARDE SI LA LIGNE EST ACTIVE ET SI LA CELLULE NE CONTIENT PAS "-" ALORS J'INCERE DANS LE TABLEAU LA VALEUR
If ligne0_active = True & ActiveSheet.Range(colonne(l) & k + 0) <> "-" Then
ligne0(i) = ActiveSheet.Range(colonne(l) & k + 0)
End If
If ligne1_active = True & ActiveSheet.Range(colonne(l) & k + 1) <> "-" Then
ligne1(i) = ActiveSheet.Range(colonne(l) & k + 1)
End If
If ligne2_active = True & ActiveSheet.Range(colonne(l) & k + 2) <> "-" Then
ligne2(i) = ActiveSheet.Range(colonne(l) & k + 2)
End If
If ligne3_active = True & ActiveSheet.Range(colonne(l) & k + 3) <> "-" Then
ligne3(i) = ActiveSheet.Range(colonne(l) & k + 3)
End If
If ligne4_active = True & ActiveSheet.Range(colonne(l) & k + 4) <> "-" Then
ligne4(i) = ActiveSheet.Range(colonne(l) & k + 4)
End If
If ligne5_active = True & ActiveSheet.Range(colonne(l) & k + 5) <> "-" Then
ligne5(i) = ActiveSheet.Range(colonne(l) & k + 5)
End If
If ligne6_active = True & ActiveSheet.Range(colonne(l) & k + 6) <> "-" Then
ligne6(i) = ActiveSheet.Range(colonne(l) & k + 6)
End If
If ligne7_active = True & ActiveSheet.Range(colonne(l) & k + 7) <> "-" Then
ligne7(i) = ActiveSheet.Range(colonne(l) & k + 7)
End If
Next i
i = 0
For i = 0 To nbrLigne
If trouver = False Then
'ligne1
If ligne0(i) >= ligne1(i) Then
If sortir_comparaison = False Then
If ligne1_active = True Then
If tour1 = 7 Then
For j = 0 To 7
ligne1(j) = "-"
ActiveSheet.Range(colonne(j * 2) & k + 1).Value = "-"
k2 = k + j
ActiveSheet.Range("L" & k2).Value = "-"
ligne1_active = False
trouver = True
sortir_comparaison = True
Next j
nbrLigne = nbrLigne - 1
Else
tour1 = tour1 + 1
End If
End If
End If
End If
'ligne2
If (ligne0(i) >= ligne2(i)) Then
If sortir_comparaison = False Then
If ligne2_active = True Then
If tour2 = 7 Then
For j = 0 To 7
ligne2(j) = "-"
ActiveSheet.Range(colonne(j * 2) & k + 2).Value = "-"
k2 = k + j
ActiveSheet.Range("N" & k2).Value = "-"
ligne2_active = False
trouver = True
sortir_comparaison = True
Next j
nbrLigne = nbrLigne - 1
Else
tour2 = tour2 + 1
End If
End If
End If
End If
'ligne3
If (ligne0(i) >= ligne3(i)) Then
If sortir_comparaison = False Then
If ligne3_active = True Then
If tour3 = 7 Then
For j = 0 To 7
ligne3(j) = "-"
ActiveSheet.Range(colonne(j * 2) & k + 3).Value = "-"
k2 = k + j
ActiveSheet.Range("P" & k2).Value = "-"
ligne3_active = False
trouver = True
sortir_comparaison = True
Next j
nbrLigne = nbrLigne - 1
Else
tour3 = tour3 + 1
End If
End If
End If
End If
'ligne4
If ligne0(i) >= ligne4(i) Then
If sortir_comparaison = False Then
If ligne4_active = True Then
If tour4 = 7 Then
For j = 0 To 7
ligne4(j) = "-"
ActiveSheet.Range(colonne(j * 2) & k + 4).Value = "-"
k2 = k + j
ActiveSheet.Range("R" & k2).Value = "-"
ligne4_active = False
trouver = True
sortir_comparaison = True
Next j
nbrLigne = nbrLigne - 1
Else
tour4 = tour4 + 1
End If
End If
End If
End If
'ligne5
If (ligne0(i) >= ligne5(i)) Then
If sortir_comparaison = False Then
If ligne5_active = True Then
If tour5 = 7 Then
For j = 0 To 7
ligne5(j) = "-"
ActiveSheet.Range(colonne(j * 2) & k + 5).Value = "-"
k2 = k + j
ActiveSheet.Range("T" & k2).Value = "-"
ligne5_active = False
trouver = True
sortir_comparaison = True
Next j
nbrLigne = nbrLigne - 1
Else
tour5 = tour5 + 1
End If
End If
End If
End If
'ligne6
If (ligne0(i) >= ligne6(i)) Then
If sortir_comparaison = False Then
If ligne6_active = True Then
If tour6 = 7 Then
For j = 0 To 7
ligne6(j) = "-"
ActiveSheet.Range(colonne(j * 2) & k + 6).Value = "-"
k2 = k + j
ActiveSheet.Range("V" & k2).Value = "-"
ligne6_active = False
trouver = True
sortir_comparaison = True
Next j
nbrLigne = nbrLigne - 1
Else
tour6 = tour6 + 1
End If
End If
End If
End If
'ligne7
If (ligne0(i) >= ligne7(i)) Then
If sortir_comparaison = False Then
If ligne7_active = True Then
If tour7 = 7 Then
For j = 0 To 7
ligne1(j) = "-"
ActiveSheet.Range(colonne(j * 2) & k + 7).Value = "-"
k2 = k + j
ActiveSheet.Range("Y" & k2).Value = "-"
ligne7_active = False
trouver = True
sortir_comparaison = True
Next j
nbrLigne = nbrLigne - 1
Else
tour7 = tour7 + 1
End If
End If
End If
End If
End If
Next i
Next m

PsYKrO_Fred

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 :

Do While ligneASupprimer = True
Do While resultatLigne > resultatLigneCompare
If nouveau(numeroLigne, numeroColonne) > nouveau(numeroLigneCompare + 1, numeroColonne) Then
End If
Loop
Loop

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

olivthill

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

PsYKrO_Fred

olivthill a écrit :

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

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

Publicité

olivthill

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.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Parcourir un tableau recursivement

Sujets relatifs
traitement update d'après tableau (array) - php	parcourir fichier CSV (TAB), saut de ligne non détecté
Aide sur petit tableau de calcul de prix	[Resolu] Tableau nb cours par categorie (Moodle)
[VBA] Collage Variable après copie de tableau de taille variable	Recherche dans tableau et copie de lignes
Tri de tableau	créer un tableau a partir d'une chaine
Choisir entre une liste de variables ou un tableau	[Excel]Connaître la dernière ligne d'un tableau
Plus de sujets relatifs à : Parcourir un tableau recursivement

Page générée en 0.139 secondes