VBA excel function ou sub ?

Bonjour ,

Je souhaite r�aliser une sub ou function du type :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

workline(x) = Trim(Worksheets("feuil1").Cells(matchligne, x)

(matchline �tant une variable r�cup�r�e via une autre sub )

ensuite appeler workline dans une autre proc�dure
en faisant par valeur1 = workline(7).value

et valeur 2 = workline(10).value
etc ... ( il n y pas de suite logique donc pas de boucle possible)

le pb est que je n'arrive pas � faire l'association , je me m�lange (debutant)
avec les sub , function et objet etc ..

Merci de votre aide

En fait je dois en utilisant
une formule recurrente all�g� mon code par une fonction :
je m'explique :
j'ai ds une sub x fois la formule

truc1 = Trim(Worksheets("feuil1").Cells(5, 10).Value)
truc2 = Trim(Worksheets("feuil1").Cells(5, 12).Value)
truc3 =Trim(Worksheets("feuil1").Cells(5, 17).Value)
|
|
|
|
etc .....
les valeurs 10,12,17,.... (colonnes ne pouvant etre determin�s via une boucle logique)

Je souhaite donc cr�er une formule type :
formule(x)= trim(Worksheets("feuil1").Cells(5, x).Value)
mais je ne sais pas comment faire en pratique ..
En esp�rant etre + clair

Merci encore

Dans ce cas, tu dois utiliser un tableau. Je ne sais pas ce que contiennent les cellules que tu veux injecter dans le tableau. Cela influe sur la nature du tableau.

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
'Déclaration d'un tableau de 11 élements
Public MesValeurs(10) As String
 
Public Sub InstancierTableau() 
    MesValeurs(0) = Trim(Worksheets("feuil1").Cells(5, 10).Value)
    MesValeurs(1) = Trim(Worksheets("feuil1").Cells(5, 12).Value)
    MesValeurs(2) = Trim(Worksheets("feuil1").Cells(5, 17).Value)
End Sub

Maintenant, tu peux utiliser les �l�ments du tableau en faisant r�f�rence aux tableau MesValeurs.

Exemple :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

msgbox "Deuxième élément : " & MesValeurs(1)

bon si j'ai tout bien compris, utilise une fonction... et pour l'appel supprime le .value.. :

Code :

S�lectionner tout - Visualiser dans une fen�tre � part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
'
' La fonction
'
Function workline(x) As String
  workline = Trim(Worksheets("feuil1").Cells(5, x))
End Function
'
'l'appel dans les autre porcedure
'
Sub test()
  Valeur1 = workline(7)
  Valeur2 = workline(10)
  Debug.Print Valeur1
  Debug.Print Valeur2
 End Sub

PS : Pense aussi que le 1� param�tre de Cells est la ligne le second, la colonne..