Discussion :

[iglootoo]

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

[illight]

J'ai absolument rien compris

Ç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

[iglootoo]

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

[Catbull]

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)

[SfJ5Rpw8]

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