Discussion :

[Eto Demerzel]

Bonjour à tous, je sollicite votre aide car je suis coincé dans un petit programme, et ayant recherché sans succès, je m'en remet à ce forum.

Je suis débutant en VBA et donc ce souçi pourra paraître simple pour certains:

Code :

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

1
2
3
4
5
6
Public Sub Recherche()
Dim Mois As String, Metier As String
Mois = InputBox("Entrez le mois que vous voulez")
Metier = InputBox("Entrez le métier que vous voulez voir")
Call Personnes_physiques_&Metier&_&Mois&
End Sub

La partie dans Call est fausse, mais c'est pour vous permettre de comprendre ce que j'essaye de faire.
Le genre de procédure que je pourrais vouloir appeler selon les paramètres renseignés serait :
'Personnes_Physiques_Chauffeur_Septembre' par exemple, sachant que ces procédures existent déjà : Il y a les 12 mois et des métiers différents.
Je n'arrive pas à les appeler de cette manière.

Merci de votre aide

[78chris]

Bonjour

Télécharge http://bidou.developpez.com/article/VBA/ et regarde à partir de la page 29 le passage d'arguments

[Eto Demerzel]

Merci, donc je dois déclarer une fonction qui prend en paramètres le mois et le métier que je déclare en string, je les concatène à l'intérieur et le résultat de la fonction je le déclare en quoi ?
Et comment utiliser ensuite ce résultat pour concaténer la partie "Personnes_physiques" dans la procédure après, car je reçois que des messages d'erreur ?

[78chris]

Bonjour

Le but des arguments est d'éviter d'écrire 10 fois la même procédure : une seule procédure reçoit le métier et le mois et traite en conséquence

Donc tu dois avoir une procédure
Sub Personnes_physiques(Metier as string, Mois as string)

appelée par la Sub Recherche() de cette façon
Call Personnes_physiques(Metier, Mois)

[Eto Demerzel]

Merci de ton aide, je m'approche de la solution mais j'ai encore quelques problèmes:
Je tape:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Public Sub StringtoVar(ByVal Metier As String, ByVal Mois As String)
StringtoVar = "Personnes_physiques_" & Metier & "_" & Mois & ""
End Sub
 
Public Sub Recherche()
Dim Mois As String, Metier As String
Mois = InputBox("Entrez le mois que vous voulez")
Metier = InputBox("Entrez le métier que vous voulez voir")
Call StringtoVar(Metier, Mois)
End Sub

Comment puis-je corriger pour que celà fonctionne ? Merci

[Didier Gonard]

Bonjour,

tu mélanges les procédures et les fonctions

Code :

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

Public Function StringtoVar .....

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function StringtoVarr(ByVal Metier As String, ByVal Mois As String)
StringtoVar = "Personnes_physiques_" & Metier & "_" & Mois & ""
End Sub
 
Public Sub Recherche()
Dim Mois As String, Metier As String
Mois = InputBox("Entrez le mois que vous voulez")
Metier = InputBox("Entrez le métier que vous voulez voir")
Call StringtoVar(Metier, Mois)
End Sub

vois les liens des tutos qui t'ont été donnés..

pour répondre, juste techniquement, à ta question initiale, il est possible d'utiliser la méthode Application.Run dont on se sert souvent pour appeler des procédures d'un autre classeur, vu qu'elle peut utiliser des strings en paramètres, c'est bon genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub gogo()
strMaString
 
strMaString = "Boulot" & "DecembreTourneur"
Application.Run strMaString
End Sub
 
Sub BoulotDecembreTourneur()
MsgBox "Bravo"
End Sub

Par contre ça ne veut pas dire que ce soit la bonne piste à utiliser
des paramètres et des select case sont surement effectivement plus adaptés..

cordialement,

Didier

[Eto Demerzel]

Merci je progresse

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Function StringtoVar(ByVal Metier As String, ByVal Mois As String)
StringtoVar = "Personnes_physiques_" & Metier & "_" & Mois
End Function
 
Public Sub Recherche()
Dim Mois As String, Metier As String, Subappelee As Variant
 
Mois = InputBox("Entrez le mois que vous voulez")
Metier = InputBox("Entrez le métier que vous voulez voir")
Subappelee = StringtoVar(Metier, Mois)
Call Subappelee
End Sub

Stringtovar concatène bien les chaînes que je lui donne (j'ai testé avec une messagbox)
Maintenant comment expliquer à VBA que je veux appeler la procédure que forme la concaténation ? Là le code bloque à

Code :

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

Call subappelee

car il me dit "Sub , function ou property attendue".
Peut être qu'il faut que je mette

Code :

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

1
2
3
 
Public Function StringtoVar(ByVal Metier As String, ByVal Mois As String)
as quelquechose

Je ne sais pas quoi mettre même en cherchant :-(

[78chris]

Bonjour

Relis mon post et l'extrait de Didier

...
Par contre ça ne veut pas dire que ce soit la bonne piste à utiliser
des paramètres et des select case sont surement effectivement plus adaptés...

Revois tes n procédures (x métier X 12 mois) pour en avoir une générique.
Comment feras-tu si tu dois croiser une 3ème variable ?
C'est ingérable cette méthode même si, comme l'a décrit Didier, on peut concaténer un nom de procédure ou de fonction.

[Eto Demerzel]

Oui c'est mieux mais le souci c'est que je dois affecter ces macros à des zones de texte, chaque zone prend une macro.
Je ne sais pas si je pourrais affecter chaque zone à une seul macro générique qui prenne des paramètres différents selon les zones ?
En tout cas je m'en tiens à ce que je fais, même si je n'ai pas pu résoudre mon problème initial, je vous remercie de vos réponses.

[78chris]

Bonjour

Oui on peut traiter des cas différents selon la zone.

Si c'est un évènement, Target est la plage source : selon son adresse un Select Case peut faire des choses différentes...