[DEB ]Paramètres Procédure

Bonjour à tous
J'ai lu cette contribution https://bidou.developpez.com/article/VBA/

J'avoue que je n'ai pas bien saisie le passage d'arguments à une procédure/ fonction

Voici un bout de code appelant une procédure nommée Valeur

Code:

---

1 2 3 4 5 6 7 8 9 10 11

If Co(i) <> Co(j) And Ro(i) <> Ro(j) Then     If (DeltaRo <= 2 And DeltaCo <= 2) Or MRo <= 2 And MCo <= 2 Then X = WorksheetFunction.Min(MCo, DeltaCo) Y = WorksheetFunction.Min(MRo, DeltaRo) Valeur GoTo Jump End If End If

---

et voici la procédure qui modifie juste les valeurs d'un tableau en fonction des valeurs X etY

Code:

---

1 2 3 4 5

Sub Valeur()   If Not (X = 2 Or Y = 2) Then Score(i) = Score(i) + 1: Score(j) = Score(j) + 1 End Sub

---

Cela marche très bien,mais est ce que j'aurai du essayer d'écire qqchose comme

Code:

---

1 2 3

Sub Valeur(ByRef X As Integer, ByRef Y As Integer, ByRef i As Integer, ByRef j As Integer) End sub

---

mais à ce moment là comment appeler la procédure
J'avais essayé

Code:

---

Valeur(X,Y,i,j)

---

mais cela provoque une erreur de syntaxe

Ma question est donc: quand faut-il mettre des arguments et comment appeler la procédure avec des variables

Merci de m'avoir consacré de votre temps

Bonjour, bonjour !

Code:

---

1 2 3 4 5 6 7 8

Sub Message(SUJET$, VERBE$, COMP$, Optional TEMPS$) MsgBox SUJET & " " & VERBE & " " & COMP & " " & TEMPS End Sub     Sub Demo() Message "Il", "fait", "beau", "aujourd'hui." End Sub

---

_________________________________________________________________________________________________

Merci de cliquer sur :plusser: pour chaque message ayant aidé puis sur :resolu: pour clore cette discussion …

Bonjour,

lors de l'appel de ta procédure enlève les parenthèses..

Bonjour,
Il y a deux manières d'appeler une procédure Sub ayant des paramètres
Soit avec l'instruction Call, les parenthèses sont de rigueur pour passer les arguments

Code:

---

Call Valeur(5, 20, 100, 40)

---

Soit en appelant la procédure par son nom et là il ne faut pas de parenthèses

Code:

---

Valeur 5, 20, 100, 40

---

Ok merci pour l'appel de la procédure.
Mais quels paramètres dois je mettre dans la définition de la procédure
Ceci est il correct

Code:

---

1 2 3 4 5

Sub Valeur(ByRef X As Integer, ByRef Y As Integer, ByRef i As Integer, ByRef j As Integer) If Not (X = 2 Or Y = 2) Then Score(i) = Score(i) + 1: Score(j) = Score(j) + 1 End Sub

---

ou aurais je du mettre le tableau Score aussi ?

Code:

---

1 2 3 4

Sub Valeur(ByRef X As Integer, ByRef Y As Integer, ByRef i As Integer, ByRef j As Integer,ParamArray Score() as Integer) If Not (X = 2 Or Y = 2) Then Score(i) = Score(i) + 1: Score(j) = Score(j) + 1 End Sub

---

ou rien du tout puisque les variables sont prises en compte malgré tout.

Code:

---

1 2 3 4

Sub Valeur() If Not (X = 2 Or Y = 2) Then Score(i) = Score(i) + 1: Score(j) = Score(j) + 1 End Sub

---

Quelle est la bonne syntaxe ?
Merci

Bonjour,

Si tes variables sont "prises en compte", c'est qu'elles sont déclarées en tête du module concerné ou Public dans un autre module.
Dans ce cas, il ne faut pas les passer en paramètres.

En pratique,

• si on veut écrire une routine ou fonction générique (réutilisable) sans devoir se soucier du nom des variables qu'elle traite, il vaut mieux faire un passage par paramètres.
• si le passage par paramètres rend l'écriture du code complexe comme dans un appel de fonctions ou routines en cascade, il est parfois préférable de déclarer certaines variables au niveau Module ou Public.
  Cette dernière façon de faire rend tes routines moins génériques car dépendantes du nom de la ou des variable(s) à traiter.

Merci à tous et en particulier à AlainTech