VBA Fin de la fonction je reviens dans ma boucle ???

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : VBA Fin de la fonction je reviens dans ma boucle ???

PsYKrO_Fred

Bonjour,

Voila je viens de faire une fonction qui retourne lire un tableau passer en paramètre par valeur.
Dans cette fonction, je regenere un nouveau tableau.
Lorsque ma boucle For i = 0 arrive à nb_lig, j'arrive à la derniere ligne du code : End Function

Je pensé que j'allé arrete... la fonction mais non il revient sur la ligne "'''''''''''''''COMMENTAIRE

C'est parceque c'est une fonction ?

LireTableau =

Code :

Function LireTableau(ByVal transfert)
Dim ligne_compare As Integer
Dim ligne_origine As Integer
Dim ligne_disponible As Integer
ligne_disponible = nb_lig
ligne_suivante = 0
ligne_origine = 0
i = 0
j = 0
For i = 0 To nb_lig
For ligne_compare = (i + 1) To nb_lig
compte = 0
For j = 0 To nb_col
If (transfert(i, j) <> -1) And (transfert(ligne_compare, j) <> -1) Then
If transfert(i, j) >= transfert(ligne_compare, j) Then
compte = compte + 1
If compte = ligne_disponible Then
tableau_original = transfert
transfert = GenererTableau(ligne_compare, ligne_compare, transfert)
LireTableau (transfert) '''''''''''''''''''''''''''''''''''''''''''COMMENTAIRE
ligne_disponible = ligne_disponible - 1
End If
End If
End If
Next j
Next ligne_compare
Next i
End Function

Message édité par PsYKrO_Fred le 29-01-2010 à 12:14:58

Publicité

breizhbugs

C'est parce que c'est une fonction ... récursive!

PsYKrO_Fred

et comment j'en sorts de ma récursivité ...?

breizhbugs

Aucune idée, je comprends pas trop le but de ton algo a ta ligne COMMENTAIRE, tu appelles lireTableau(transfert) alors que ton tableau transfert a une taille differente non? Comment fais-tu pour lui indiquer la nouvelle taille?

Message cité 1 fois

PsYKrO_Fred

breizhbugs a écrit :

via cette fonction GenererTableau

Code :

Function GenererTableau(ligne_supprimer As Integer, colonne_supprimer As Integer, ByVal tableau_original)
Dim tableau_generer()
For i = 0 To nb_lig
For j = 0 To nb_col
If i = ligne_supprimer Or j = colonne_supprimer Then
tableau_original(i, j) = -1
End If
Next j
Next i
GenererTableau = tableau_original
End Function

En fait je supprime pas vraiment la ligne mais je mets une valeur à -1
Le problème c'est quand j'arrive à la fin de ma Fonction LireTableau au moment du End Function... je reviens la ou j'ai mis "COMMENTAIRE"
au lieu de revenir au début de ma fonction LireTableau....

Moi je veux qu'à la fin de ma fonction je retourne au début pas au milieux... sinon il m'incrémente mes variables et c'est reparti pour un tour... et le résultat est faux...

Message cité 1 fois
Message édité par PsYKrO_Fred le 30-01-2010 à 14:28:40

breizhbugs

PsYKrO_Fred a écrit :

Non!
quand tu appel une fonction dans un programme (par exemple "transfert(i,j)" ), le programme continue après le retour de cette fonction!
Pourquoi veux tu qu'il en soit différemment quand tu appelles liretableau()
Il va te falloir réécrire ta fonction!

Message édité par breizhbugs le 31-01-2010 à 11:30:00

PsYKrO_Fred

mmm mais alors comment dois je la réécrire?
je suis dans un casse tete chinois lol....

FORUM HardWare.fr

Programmation

VB/VBA/VBS

VBA Fin de la fonction je reviens dans ma boucle ???

Sujets relatifs
Problème de Boucle	Weather Data, VBA, HELPPP
[RESOLU] Soucis avec mysql_fetch_array dans une fonction	[VBA]Existence d'un chemin UNC
une question sur une boucle dans se prog	Bug VBA Word 2010 sur form load
[C/SDL] undefined reference to mes fonction	[Résolu] boucle for ne retient que la dernière ligne du fichier
[Résolu] [VBA] Multiplication fausse	Récupérer un int en dehors de la fonction.
Plus de sujets relatifs à : VBA Fin de la fonction je reviens dans ma boucle ???

Page générée en 0.066 secondes