Appel de macro et variable

**Kestion100** · 07/05/2014, 16h27

Bonjour,
Je cherche à appeler une macro depuis une autre, le nom de la première est fonction d'une variable.

Je m'explique.

Le code:

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
21
22
23
24
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    Dim Recherche As Range, REPONSES As String
Set Recherche = Sheets("" & "NEPLE" & Range("IU1").Value & "").Columns("AS").Find("NON", LookIn:=xlValues, LookAt:=xlWhole)
If Not Recherche Is Nothing Then  'donc trouvé
   'ici tu appelles ta procédure
 
    'En supposant que les adresses courriels sont en colonne J
    If Range("A2") > "" And InStr(1, Cells(Target.Row, 45), "NON") > 0 Then
 
    [BZ1].FormulaLocal = "=NBVAL(A2:A999)"
 
       REPONSES = Range("BZ1").Value
 
      MODIFNEPLE1
 
              MsgBox "Il y a " & REPONSES & " réponses négatives"
 
 EnvoimailNEPLE
    Else
        MsgBox "Il n'y a pas de réponses négatives"
 
    End If
 End If

Que je voudrais voir fonctionner "comme ceci":

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
21
22
23
24
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
    Dim Recherche As Range, REPONSES As String
Set Recherche = Sheets("" & "NEPLE" & Range("IU1").Value & "").Columns("AS").Find("NON", LookIn:=xlValues, LookAt:=xlWhole)
If Not Recherche Is Nothing Then  'donc trouvé
   'ici tu appelles ta procédure
 
    'En supposant que les adresses courriels sont en colonne J
    If Range("A2") > "" And InStr(1, Cells(Target.Row, 45), "NON") > 0 Then
 
    [BZ1].FormulaLocal = "=NBVAL(A2:A999)"
 
       REPONSES = Range("BZ1").Value
 
      MODIFNEPLE & Range("IU1").Value 
 
              MsgBox "Il y a " & REPONSES & " réponses négatives"
 
 EnvoimailNEPLE & Range("IU1").Value 
    Else
        MsgBox "Il n'y a pas de réponses négatives"
 
    End If
 End If