[VBA][Excel] appel de fonction

Bonjour à tous
une petite question de débutant
lorsque on écris une fonction on est obliger de mettre une fonction qui renvoi quelque chose ?
en d'autre terme j'aimerais faire un truc du genre :

Code:

---

1 2	fonction(parmetre1,parametre2)

---

Puis ma fonction écrite ainsi

Code:

---

1 2 3 4

Function fonction(parametre1,parametre2) parametre1=1 parametre2=2

---

or quand j'ecris ca il me met Attendu = lors de l'appel de la fonction; suis je obligé de faire ca ?

Code:

---

1 2	test=fonction(parametre1,parametre2)

---

mais cela va me faire utiliser des variables pour rien
finalement je vais peut etre faire ce traitement en faisant appel à une fonction

Si tu n'as pas besoin que la fonction te renvoie quelque chose, remplace-la par une Sub

A+

VB ou VBA?

Peut-être es-tu en train de confondre procédure et fonction. La fonction retourne toujours quelque chose (d'où la syntaxe test=function), contrairement à la procédure qui elle ne retourne rien.

Clair?

Citation:

---

Envoyé par ouskel'n'or

Si tu n'as pas besoin que la fonction te renvoie quelque chose, remplace-la par une Sub

---

le probleme c'est que si je fais ca je vais devoir "appeler" la macro (=Outils/Macro/Macro) or j'aimerai limiter le nombre d'appel aux macros

Citation:

---

Envoyé par Raklham

VB ou VBA?

---

Vba. J'ai fais du C et on a l'habitude de faire pour chaque traitement une fonction mais en C il y a la possibilité pour une fonction d'etre vois (=qui ne retourne rien) alors je voulais savoir si c'étais possible en VBA mais à priori non :cry:
En fait que veut tu dire par porcédure?

Citation:

---

Envoyé par Nom

Bonjour à tous
une petite question de débutant
lorsque on écris une fonction on est obliger de mettre une fonction qui renvoi quelque chose ?
en d'autre terme j'aimerais faire un truc du genre :

Code:

---

1 2	fonction(parmetre1,parametre2)

---

Puis ma fonction écrite ainsi

Code:

---

1 2 3 4

Function fonction(parametre1,parametre2) parametre1=1 parametre2=2

---

or quand j'ecris ca il me met Attendu = lors de l'appel de la fonction; suis je obligé de faire ca ?

Code:

---

1 2	test=fonction(parametre1,parametre2)

---

---

par défaut en VBA les paramétres sont donnée "ByRef" et tu peu donc agir sur les variables...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Function Swap(ByRef a As Integer, ByRef b As Integer) As Boolean Dim x As Integer   x = a a = b b = x   Swap = True End Function   Sub Test() Dim m_A As Integer Dim m_B As Integer m_A = 1 m_B = 2 Debug.Print " Avant appel , A = " & m_A & " .... B = " & m_B Debug.Print "Appel de Swap = " & Swap(m_A, m_B) Debug.Print " aprés appel , A = " & m_A & " .... B = " & m_B   End Sub

---

tu n'est pas obligé d'utiliser la valeu de retour d'une fonction et tu peu donc écrire ..

Code:

---

Swap m_A, m_B

---

ou créer un procédure qui elle ne renvoi rien..

Code:

---

1 2 3 4 5 6

Sub Swap(ByRef a As Integer, ByRef b As Integer) Dim x As Integer x = a a = b b = x End Sub

---

avec le même code d'appel :

Code:

---

Swap m_A, m_B

---

:wink:

encore une petite question qui n'a pas grand chose à voir mais ca vaut pas la peinr de faire un nouveau sujet pour ca

pour définir une zone en vba j'utilise ceci :

Code:

---

1 2 3 4

'definition de la zone "zone" ActiveWorkbook.Names.Add Name:="zone", RefersToR1C1:= _ "=Feuil1!R4C2:R8C2"

---

et j'aimerai faire plutôt ca

Code:

---

1 2 3 4 5

i=8 'definition de la zone correspondant à la semaine1 ActiveWorkbook.Names.Add Name:="semaine1", RefersToR1C1:= _ "=Feuil1!R4C2:RiC2"

---

mais cela n'a pas l'air de prendre en compte le i
:cry:

Citation:

---

"=Feuil1!R4C2:RiC2"
mais cela n'a pas l'air de prendre en compte le i

---

En effet. Je n'ai pas essayé mais essaie de mettre ta référence de plage dans une variable

Code:

---

1 2	Adresse = "=Feuil1!R4C2:R" + cstr(i) + "C2" ActiveWorkbook.Names.Add Name:="semaine1", RefersToR1C1:=Adresse

---

A+

Exact ca marche
merci