passge dynamique de paramètres dans une fonction

[Phillip]

Bonjour,

Je suis en train de faire un tableau pour automatiser un classement.

Pour calculer bpdom, etc...J'ai crée des fonctions, en passant en paramètre le nom de l'équipe. Je voudrais savoir s'il est possible (et comment faire pour) de passer le nom de façon dynamique, avc une boucle par exemple pour toutes les équpes, sinon, je suis obligé d'appeller les fonctions x fois... (20 !)

Call bpdom(Ajaccio, 2, 22)
Call bpext(Ajaccio, 2, 23)
Call bcdom(Ajaccio, 2, 23)
Call bcext(Ajaccio, 2, 22)
BPAjaccio = bpteamdom + bpteamext
BCAjaccio = bcteamdom + bcteamext

..........
.........

'calcul des buts a domicile
Public Function bpdom(teamdom, i, j)

bpteamdom = 0
Do While j < 61
bpteamdom = bpteamdom + Cells(i, j).Value
j = j + 2
Loop
End Function

 

[Franz63]

Bonjour philipp

vous pouvez créer une variable qui va récupérer le nom ce l'équipe dans une feuille annexe

et vous faite une boucle while wend pour défiler toutes les équipe

dim NomEquipe as string
dim i as integer

i=1

while cells(i,1)<>''
NomEquip=cells(i,1).value
vous faites vos calcul avec NomEquip à la place de vos noms d'équipe
i=i+1
wend

ou bien vous pouvez créer une variable tableau

dim NomEquip(10) as string s'il y a dix nom
for i=1 to 10
NomEquip(i)=cells(i,1).value
next

vous faites vos calcul avec NomEquip(i) à la place de vos noms d'équipe en rajoutant une boucle for next de 1 à 10


j'espère que cela vous aidera

François

 

[Phillip]

Merci de votre aide ! En adaptant légèrement, j'arrive à faire ce que je voulais !