mettre du code sous forme de fonction ou sub

Question

bonjour le forum!

bon j'ai le code ci-dessous:

If SelectedData = "" Then
                    SelectedData = "A" + CStr(Row) + ":P" + CStr(Row) 'selects the data of the column A to P
                    Count = Count + 1
                Else
                    SelectedData = SelectedData + ",A" + CStr(Row) + ":P" + CStr(Row)
                    Count = Count + 1
                    If Count = CountLimit Then
                            Call PasteData(SelectedData, SheetOfSearch, LastResultLine)
                            'reinitializes the variable
                            LastResultLine = LastResultLine + Count
                            SelectedData = ""
                            Count = 0
                    End If
                End If

ce code est ex&#233;cut&#233; pour chaque mois de l'ann&#233;e (soit 12 fois...). j'aimerais savoir comment cr&#233;er une fonction ou sub afin de la mettre dans un module, ce qui r&#233;duirait le nombre de ligne dans mon form... et ferait moins charg&#233;!

Ce bout de code se trouve dans une boucle for, avec Row qui d&#233;file;
Je pense que les param&#232;tres &#224; lui filer seraient: Row, SelectedData,Count, LastResultLine. Pour CountLimit je sais pas (c'est une variable fixe que j'initialise au d&#233;but du form).
Je vous demande votre aide parce que je ne sais pas comment faire cette fonction, &#233;tant donn&#233; les lignes "LastResultLine LastResultLine + Count" et "Count Count + 1". Est-ce qu'il faut que cette fonction renvoie les valeurs de LastResultLine et Count, vu que je dois m'en servir dans la boucle (leur valeur change)? et si oui, faut renvoyer 2 param par la fonction et c'est pas possible je crois...

merci de votre aide.

  Daydayerement V&#244;tre

cs_drahcir · Answer

Salut

Pourquoi tu n'instancies pas deux variables globales "LastResultLine" et "Count" que tu mets &#224; jour dans ta fonction. A chaque appel de celle-ci tu r&#233;cup&#233;rera sa derni&#232;re valeur que tu pourras &#224; nouveau modifier.

C'est une id&#233;e apr&#232;s je ne sais pas ce que tu veux faire exactement...

Daydayer · Answer

c'est une bonne id&#233;e... mais alors je ne passe plus ces deux var en param &#224; ma fonction? et pour les autres var,je les passe en param celles-ci, non?


et juste une autre question: j'ai besoin d'une fonction ou d'une sub,


a priori, si mes var sont public, je n'ai pas besoin de retourner de valeurs donc cela peut &#234;tre une sub....

qu'en penses tu?

  Daydayerement V&#244;tre

cs_drahcir · Answer

Tu conserves les autres param&#232;tres en entr&#233;e. Comme tu ne renvoies aucune valeur Sub me semble bien appropri&#233;.

Public Sub taSub (byval Row as string, byval Selected as string)
'ton code
End Sub

Voil&#224; ce que j'en pense.
Tiens moi au courant.

Daydayer · Answer

ok, je vais essayer. peux tu me dire par contre &#224; quoi sert le 'ByVal'? je sais qu'il ya aussi 'ByRef', mais je ne connais l'utilit&#233; de ces mots...

  Daydayerement V&#244;tre

cs_drahcir · Answer

ByVal c'est un mot cl&#233; qui te permet de d&#233;clarer le nom de ta variable ainsi que son type.

ByVal NomVariable As SonType

Daydayer · Answer

bonjour!
merci pour ta r&#233;ponse.
suite de ma question sur ByVal: alors pourquoi des fois on ne met pas ByVal ds la d&#233;claration des var, m&#234;me dans d function ou sub?

  Daydayerement V&#244;tre

cs_drahcir · Answer

Salut

tu veux dire &#224; l'int&#233;rieur de Function et Sub?
C'est vrai qu'en vb (contrairement au csharp par exemple), la syntaxe de la d&#233;claration de variables est diff&#233;rente pour les param&#232;tres &#224; celle des variables locales.
Je n'en conna&#238;t pas la raison mais une fois que tu es habitu&#233; &#224; cette syntaxe &#231;a ne pose pas de probl&#232;mes.
Peut-&#234;tre que des gens plus exp&#233;riment&#233;s que moi pourront t'en donner la raison.

@+

Mettre du code sous forme de fonction ou sub

7 réponses

Discussions similaires