Discussion :

[DonKnacki]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
fonction(parmetre1,parametre2)

Puis ma fonction écrite ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
test=fonction(parametre1,parametre2)

[DonKnacki]

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

[ouskel'n'or]

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

A+

[Rakham]

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?

[DonKnacki]

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

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
En fait que veut tu dire par porcédure?

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
fonction(parmetre1,parametre2)

Puis ma fonction écrite ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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

Sélectionner tout - Visualiser dans une fenêtre à part

Swap m_A, m_B

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Swap m_A, m_B

[DonKnacki]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

"=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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

A+

[DonKnacki]

Exact ca marche
merci