VBA excel function ou sub ?

Bonjour ,

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

Code:

---

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 ..:aie:

Merci de votre aide

J'ai absolument rien compris :aie: :mouarf:

Ça dépend de ce que doit retourner tes fonctions (ou procédures) pour savoir si comme macro tu dois utiliser un sub ou une function :)

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 8O

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:

---

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:

---

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:

---

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.. ;)