Utiliser arguments/attributs des fonctions

Version imprimable

Bonjour à tous!
Comment peut-on se servir des arguments des fonctions? Cette facon ne fonctionne pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub fonctionA()
Dim NomE as variant
Dim AbsRet as variant
NomE = sheets("feuil1").range("B4").value
AbsRet = sheets("feuil1").range("B5").value
fonctionB("NomE,AbsRet")
EndSub
 
Sub fonctionB(NomE, AbsRet)
MsgBox (NomE & AbsRet)
End Sub

bonjour

1) quand tu parle de fonction tu ne devrait pas avoir Sub mais Function

2) en appelant ta routine tu utilisait fonctionB("NomE, AbsRet") ce qui ne fait qu'un argument

essaye ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub fonctionA() Dim NomE As Variant Dim AbsRet As Variant NomE = Sheets("feuil1").Range("B4").Value AbsRet = Sheets("feuil1").Range("B5").Value Call fonctionB("NomE", "AbsRet") End Sub Sub fonctionB(NomE, AbsRet) MsgBox (NomE & AbsRet) End Sub
bonne journée

08/05/2008, 09h53
Hagendorf

Bonjour,

D'après ce que je vois ce que tu as défini n'est pas un fonction mais une procédure pour l'appeler utilise l'instrction call devant fonctionB("NomE,AbsRet"). Su tu veux définir une fonction il utiliser le mot clé function à la place de sub et le fonction doit retourner une valeur.
08/05/2008, 10h02
zyhack

bonjour Hagendorf

pour information une fonction n'a pas pour obligation de renvoyer une valeur.

Non, je veux bien que ca lance une procédure et pas que ca me retourne une valeur.
En fait, plus concrètement, le code est le suivant:
Une partie de code dans le code de la feuille:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim FinLign As Integer FinLign = Sheets("Accueil").Range("B11").Value Dim NomE As Variant Dim AbsRet As Variant For i = 9 To FinLign If Target.Address = Range("J" & i).Address Then NomE = Sheets("Accueil").Range("H" & i).Value AbsRet = Sheets("Accueil").Range("F" & i).Value Call EnvoyerCourrier("NomE", "AbsRet") End If Next End Sub
et une autre dans un module:
Code:

1 2 3 Sub EnvoyerCourrier(NomE, AbsRet) MsgBox (NomE & AbsRet) End Sub
l'application est censée m'afficher un msg lorsque je clique sur certaines lignes de la colonne J...mais cela ne marche pas! Je me dis que ca doit etre un pb de transmission d'argument entre les 2 procédures, ou un probleme de définition de variable entre les 2 procédures, ou alors que ce soit du au fait que les 2 procédures ne sont pas dans la meme page code! Qu'en pensez-vous?

Target.address renvoie un adress du type $J$20 que tu compare a une adresse du type J20 c'est pour cela qu'il ne le reconnais pas

essaye plutôt ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim FinLign As Integer
  Dim NomE As Variant
  Dim AbsRet As Variant
  FinLign = Sheets("Accueil").Range("B11").Value
  If Not (Intersect(Target, Range("J9:J" & Finlign)) Is Nothing) Then
    NomE = Sheets("Accueil").Range("H" & Target.Row).Value
    AbsRet = Sheets("Accueil").Range("F" & Target.Row).Value
    Call EnvoyerCourrier("NomE", "AbsRet")
  End If
End Sub

je n'est pas eu le temps de tester mais ça devrait fonctionner