help me

[louli78]

Bonjour,

Voici un bout de programmation dans laquelle j'appelle une fonction (définie dans un autre sub) "dichotomie". Tout fonctionne bien. Quand je fais debug.print TRI_cherche (1,i) il me sort tous les résultats de 1 à 20.
Le problème est que quand je veux copier les résultats dans ma feuilles excel [I6:I27] = TRI_cherche il me copie le même résultat dans les 20 cases et pas les 20 résultats différents dans chaque case... D'ou vient le problème

For i = 1 To 20
TRI_cherche = Dichotomie(tabl_CA(1, i), tabl_Infl_tarif(1, i), Années, tabl_Charges(1, i), tabl_Infl(1, i), tabl_Invest(1, i))
[I6,I27] = TRI_cherche
Next i

Merci

 

[jojo3008]

Re : help me

coucou louli,
essaye de remplacer [I6,I27] = TRI_cherche par
Range("I5"&+i).value = TRI_cherche

a+

edit : salut robert, et oui, les grands esprits se rencontrent !

 

[Robert]

Re : help me

Bonjour Louli, bonjour le forum,

Désolé mais j'ai pas la réponse à ta question mais juste une remarque. Certaines personnes, avant de poster, font une recherche sur le forum pour voir si il n'y aurait pas déjà une réponse à leur problème. Le moteur de recherche va parcourir les intitulés pour chercher une correspondance. Avec un intitulé comme le tien il est clair que tu ne va aider personne...
Je te recommande de lire la Lien supprimé du forum. Tu y trouveras tous les bons plan pour obtenir de l'aide rapidement.

Édition :

Bonjour Jojo on s'est croisé.

 

[louli78]

Re : help me

Ca ne fonctionne pas par exmple si j'écris Range("K1" & i).Value...
j'ai un résultat en K121 et c'est tout

 

[Staple1600]

Re : help me

Bonjour à tous


J'aime bien les Beatles mais sur ma chaine HIFI.
Pas comme titre d'un post d'une question sur XLD.
C'est implicite non que tu as besoin d'aide puisque tu poses une question sur un forum d'entraide

Ceci dit, passons au conseil suivant

En joignant un fichier exemple* , il sera plus aisé de t'aider.

(*<48ko, ss données confidentielles et zippé)

 

[Compte Supprimé 979]

Re : help me

Bonjour à tous,

Le référencement de la cellule n'est pas bon !

For i = 1 To 20
TRI_cherche = Dichotomie(tabl_CA(1, i), tabl_Infl_tarif(1, i), Années, tabl_Charges(1, i), tabl_Infl(1, i), tabl_Invest(1, i))
Range[B][COLOR=blue]("I" & 6 + i[/COLOR][/B]).value = TRI_cherche
Next i

PS : merci de mettre le code entre les balises [ code] et [/ code] (en enlevant l'espace avant "code")