comment renvoyer plusieurs variables

Version imprimable

Voir 40 message(s) de cette discussion en une page

04/06/2008, 10h02
Godzestla
:salut:

Je ne sais pas si tu comprends l'exemple de ouskel'n'or.
Tu récupéres tes sous-chaines dans la table result.

Il te reste donc uniquement à remplacer
Code:

1 2 3 For i = 1 To UBound(Result) MsgBox Result(i) Next
par tes instructions d'initialisation propres :
Code:

1 2 3 4 RXCOV = Result(1) LNA = Result(2) 'les variables RXCOV et LNA je les utilise apres dans la meme fonction '......
C'est juste ou pas ?:?

Très juste, Godzestla ;)
Hello zaza,
Il est très beau ton code ! (sans ironie)
Mais il est limité à un certain nombre de découpages selon des longueurs définies en dur dans la fonction.
Donc, je réponds à ton objection principale "plus orthodoxe sans le type de données personnalisé"
Le seul type que j'impose est variant.
Effectivement, la fonction pourrait retourner un type string, ainsi que Result et temp.
Mais si je regarde Variant dans l'aide, je vois ça

Citation:

Variant est le type de données attribué à toutes les variables qui ne sont pas explicitement déclarées comme étant d'un autre type (à l'aide d'instructions telles que Dim, Private, Public ou Static). Le type de données Variant ne possède aucun caractère de déclaration de type.

C'est bien ce que j'ai voulu faire
Ensuite, l'aide précise

Citation:

Variant est un type de données spécial pouvant contenir des données de toutes sortes, à l'exception des données de type String de longueur fixe. Le type Variant prend désormais en charge les types définis par l'utilisateur. Une variable de type Variant peut également contenir les valeurs Empty, Error, Nothing et Null. Vous pouvez déterminer la procédure de traitement d'une donnée de type Variant à l'aide des fonctions VarType et TypeName.

Ça me paraît intéressant quand on ne sait pas à l'avance ce qu'on veut découper en tranches et qu'on veut le savoir... après
Enfin, la faculté d'adaptation des variants me les rend très attachants.

Citation:

Les données numériques correspondent à n'importe quel nombre entier ou réel dont la valeur est comprise entre -1,797693134862315E308 et -4,94066E-324 pour les négatifs et entre 4,94066E-324 et 1,797693134862315E308 pour les positifs.
En général, les données numériques de type Variant conservent leur type de données original au sein de la valeur de type Variant. Par exemple, si vous attribuez une valeur de type Integer à une donnée de type Variant, cette dernière sera ultérieurement traitée comme une valeur de type Integer

Dans la fonction, je déclare "no as byte"... ça limite effectivement à 256 morceaux de mots. Eh bien si le risque est d'en avoir d'avantage, qu'on mette Integer...
Maintenant, s'il s'agit de mettre les résultats dans ces cellules adjacentes, alors on ajoute simplement un boucle à la procédure d'appel mais on ne touche pas à la fonction qui reste immuable.

Citation:

Envoyé par Pyrene

cette fonction, je l'appelerais dans d'autres fonctions qui seront elles appelées a partir d'une macro

Plus loin, il précise :

Citation:

Passer par une fonction indepandante me permet uniquement de ne pas avoir a modifier 36 000 fonctions quand le format de la chaine de départ est modifié (j'essai de faire un outil générique utilisable pour plusieurs projets differents qui n'aura jamais le meme format au niveau de cette chaine de caracteres)

Voilà.
Donc, si Pyrene veut appeler la fonction d'une nouvelle procédure, dans la solution que j'offre, il n'a qu'à définir le découpage dans Tablo, et à le fournir à la fonction avec la chaîne de type string.
pour faire ce que tu fais sans modifier la fonction, je modifie seulement l'appel :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub appel() Dim Chaine As String, tablo As Variant, temp As Variant Dim Result As Variant, i As Long, j As Byte tablo = "3,4,5,2,3,4" For j = 1 To Range("A65536").End(xlUp).Row temp = DecoupeMoiÇa(Cells(j, 1), tablo) Result = Split(temp, "|") For i = 1 To UBound(Result) 'MsgBox Result(i) 'ou, pour placer le résultat dans des cellules adjacentes Cells(j, i + 1) = Result(i) Next Next End Sub
Inchangée quelque soient les phrases et leur découpage
Code:

1 2 3 4 5 6 7 8 9 Function DecoupeMoiÇa(Chaine As String, tablo As Variant) As Variant Dim tableau As Variant, No As Byte tableau = Split(tablo, ",") No = 1 For i = 0 To UBound(tableau) DecoupeMoiÇa = DecoupeMoiÇa & "|" & Mid(Chaine, No, Val(tableau(i))) No = No + Val(tableau(i)) Next End Function
Et il me semble que c'est ce que Pyrene cherchait ;)

(@zazaraignée : Je sais qu'il est 6h chez toi mais comme tu es une lève tôt, ça te laisse toute une longue journée pour méditer. :mouarf:
Un tas de choses aux cousins)

04/06/2008, 10h19
Godzestla

Citation:

(@zazaraignée : Je sais qu'il est 6h chez toi mais comme tu es une lève tôt, ça te laisse toute une longue journée pour méditer.
Un tas de choses aux cousins)

D'après mes calculs plutot 04h00 ! Donc plutot encore avec morfée.
04/06/2008, 10h29
ouskel'n'or

Citation:

Envoyé par Godzestla

D'après mes calculs plutot 04h00 ! Donc plutot encore avec morfée.

Tu as raison, je mé encore trompé avec les horaires d'été... Sans eux, il serait même plutôt 2 heures du matin :mouarf: Mais avec le Canada, on ne sait jamais :aie:
04/06/2008, 11h53
pyrene

@ godzetla : bin justement je ne comprend pas tout le code de ouskel'n'or...

@ ouskel'n'or : si je comprend bien, la variable tablo (tablo = "3,4,5,2,3,4"
) permet de decouper la chaine? le 3 pour dire les 3 premiers caracteres...?

la boucle

Code:

For j = 1 To Range("A65536").End(xlUp).Row

c'est pour se deplacer sur le classeur excel de A1 a A65536 ? si c'est bien ca je crois que je n'ai pas besoin de cette boucle.

bon : je viens de passer 1h avec mon commercial : je sais plus ou j'en suis!
je continue mes questions apres un petit moment de reflexion!
04/06/2008, 12h00
pyrene

erreur!!!

a la ligne

Code:

For j = 1 To Range("A1000").End(xlUp).Row

j'ai une erreur qui apparrait : "dépassement de capacité" (j'ai changé le A655636 en A1000 en croyant bien faire mais ca ne change pas, l'erreur est toujours la)
04/06/2008, 12h03
papimcha

Bonjour, laisse

Code:

Range("A65536").End(xlUp).Row

.
Sa te permet de chercher ta dernière ligne non vide.
Sa aprt de la dernière ligne du fichier (65536 lignes) et sa remonte jusqu'à ce qu'il y ait une ligne pleine.
Cordialement.
04/06/2008, 12h07
Godzestla

Salut,

Citation:

Code :
For j = 1 To Range("A1000").End(xlUp).Row

est équivalent à

Citation:

Code :
For j = 1 To Range("A65536").End(xlUp).Row

comme le dit papimcha.

Par contre si tu connais à coup sûr la limite en nombre de lignes, tu peux modifier le code en fonction. Ex : max 200 lignes

Code:

For j = 1 To 200

@ouskel'n'or
Pour ce qui est de l'erreur proprement dites, que peut-on faire ?:?
04/06/2008, 12h14
fring

Attention j est déclaré As Byte = max 255 !

Il faut déclarer j As Integer ou As Long si plus de 35000 lignes
04/06/2008, 12h20
ouskel'n'or

Comme dit papimcha, Range("A1000").end(xlup) te donne la dernière ligne renseignée de la colonne A.
Pour le dépassement de capacité, Fing donne l'explication
Corrige cette ligne

Citation:

Dim Result As Variant, i As Long, j As Byte

en

Citation:

Dim Result As Variant, i As Byte, j As Long

J'ai supposé que tes chaîne ne dépasseraient pas 255 mots mais j'avais inversé I et J :oops:
A+

bon!

je sais pas trop ce que j'ai fait... mais j'ai reussi :yaisse2:

voila le code que j'ai fait :

fonction principale (celle qui est directement appelée dans excel, avec la fameuse chaine de caracteres en parametre -sSSI- )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Function ComputeLoss(sName As String, sSSI As String, sTemp As String, sPerfo As String) As Double
 
Dim LNA As String, DOCON As String, CHAN As String
Dim RXCOV As String, UPCON As String, Freq As String
Dim Imux_FA As String, i As Integer, DC_OK As String, UC_OK As String
Dim SSI_def(1 To 9) As String
 
Call Decoup_SSI(sSSI, SSI_def)
 
RXCOV = SSI_def(1)
LNA = SSI_def(2)
DOCON = SSI_def(3)
CHAN = SSI_def(6)
UPCON = SSI_def(4)
...

fonction Decoup_SSI (j'ai pas changé grand chose) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Option Explicit
Option Base 1
Public Sub Decoup_SSI(sSSI As String, SSI_def() As String)
    SSI_def(1) = Left(sSSI, 4) 'couverture + polarite in
    SSI_def(2) = Right(Left(sSSI, 7), 3) 'RX_LNA
    SSI_def(3) = Right(Left(sSSI, 10), 3) 'Docon
    SSI_def(4) = Right(Left(sSSI, 13), 3) 'Upcon
    SSI_def(5) = Right(Left(sSSI, 16), 3) 'Multiplexage
    SSI_def(6) = Right(Left(sSSI, 21), 4) 'Channel
    SSI_def(7) = Right(Left(sSSI, 17), 1) 'Selectivite
    SSI_def(8) = Right(Left(sSSI, 25), 4) 'TWT
    SSI_def(9) = Right(Left(sSSI, 29), 4) 'couverture + polarite out
End Sub

voila!
je pense qu'a force de lire vos remarques et vos aides j'ai fini par trouver la solution qui me convient le mieux!

merci encore!:king:

04/06/2008, 12h45
ouskel'n'or

Que devient ta fonction quand, comme tu le demandes :

Citation:

Envoyé par pyrene

le format de la chaine de départ est modifié (j'essai de faire un outil générique utilisable pour plusieurs projets differents qui n'aura jamais le meme format au niveau de cette chaine de caracteres)

;)
04/06/2008, 12h56
pyrene

j'avais l'idee de ne changer que la fonction Decoup_SSI
a prioris il y a une trame de fond dans les formats de ces chaines :
la variable RXCOV sera toujours en premier et ainsi de suite.

ce que j'ais fait me permet juste de changer un peu moins de fonctions et/ou de modules lors d'un changement de projet.

je n'ais pas toutes les informations en poche.
si ca se trouve : le format de chaine change du tout au tout et ce que j'ai fait ne me sert pas vraiment puisque je devrai qd meme modifier plusieurs fonctions!

je verrai avec mes superieurs si cela convient ou pas...
04/06/2008, 13h01
ouskel'n'or

La différence étant que le code que je t'ai passé (une fois les déclarations corrigées) traite tous les cas de figures.
Ceci dit, tu utilises bien ce que tu penses être la meilleure solution pour toi. ;)
Bonne journée
04/06/2008, 14h32
pyrene

Citation:

Envoyé par ouskel'n'or

La différence étant que le code que je t'ai passé (une fois les déclarations corrigées) traite tous les cas de figures.

alors je garde ton code bien au chaud quelque part sur mon PC au cas ou il faudrait que je gere tous les cas de figures! :mrgreen:

merci encore!
04/06/2008, 16h56
zazaraignée

Contente que tu aies réussi... moi, l'exemple que j'ai donné, je l'ai fait avec ce que j'avais compris du problème...

Pour les ceusses que mon code plante chez eux... J'ai mis un joli composant dans mon UserForm, le RefEdit. Si vous aimez pas cette option pour sélectionner une plage de cellules, puis une autre et ensuite traiter... Si la plage est trop grande... faut voir si j'aurais pas oublier de Set une variable à Nothing à la fin d'une boucle...

Et puis j'ai bien essayé de remplacer, par exemple, les enchaînements de Left(Right(quelque chose, indice), autre indice) par un bon vieux Mid(quelque chose, depart, longueur), mais déjà, comprendre la gymnastique d'un autre...

Et puis, je n'avais pas la prétention de résoudre tout le problème. Je me contente de donner des exemples (qui marchent, pour autant que faire se peut) et c'est à vous de vous en inspirer...

Et puis vu que j'y ai perdu ma journée d'hier... On m'y reprendra, tient!
05/06/2008, 11h23
pyrene

Citation:

Envoyé par zazaraignée

Et puis j'ai bien essayé de remplacer, par exemple, les enchaînements de Left(Right(quelque chose, indice), autre indice) par un bon vieux Mid(quelque chose, depart, longueur)!

oui! j'ai un peu decouver que c'etait plus simple que le "right(left(;);)" mais comme c'etait deja mis... j'ai laissé par feneantise!

Citation:

Et puis, je n'avais pas la prétention de résoudre tout le problème. Je me contente de donner des exemples (qui marchent, pour autant que faire se peut) et c'est à vous de vous en inspirer...

merci beaucou! tes idées sont interessantes et je suis en train d'essayer de voir si je peux les intégrer (dans la mesure ou je comprend tout le code...)

Citation:

Et puis vu que j'y ai perdu ma journée d'hier... On m'y reprendra, tient

tu m'en vois bien desolee... je ne voulais pas "bouffer" ta journee de boulot...
05/06/2008, 11h50
Godzestla

Salut Zazaraignée,

Citation:

Pour les ceusses que mon code plante chez eux... J'ai mis un joli composant dans mon UserForm, le RefEdit. Si vous aimez pas cette option pour sélectionner une plage de cellules, puis une autre et ensuite traiter... Si la plage est trop grande... faut voir si j'aurais pas oublier de Set une variable à Nothing à la fin d'une boucle...

Désolé pour cela. C'était juste histoire de dire que cela semblait étrange comme réaction de planter dès l'ouverture. En fait j'étais aussi très intéressé par la solution... d'ou mon interactivité.

Citation:

Et puis, je n'avais pas la prétention de résoudre tout le problème. Je me contente de donner des exemples (qui marchent, pour autant que faire se peut) et c'est à vous de vous en inspirer...

Et puis vu que j'y ai perdu ma journée d'hier... On m'y reprendra, tient!

Franchement désolé aussi.:( Sache que tes explications sur le paramétrage étaient très judicieuses et éclairantes. :king:

Mais je pense que comme on travaille quand toi tu dors, bhin.... on a continué un peu sans toi.

Sur ce, tu va bientot te lever. alors bonne journée à toi et merci aussi. :D

Voir 40 message(s) de cette discussion en une page