Discussion :

[Bubale]

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

Code :

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

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

[zyhack]

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 :

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

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

[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.

[zyhack]

bonjour Hagendorf

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

[Bubale]

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 :

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

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 :

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

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?

[zyhack]

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 :

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

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