Discussion :

[retraite83]

Bonjour,

je me pose une question que je ne me suis jamais posé et sans réponse dans mes recherches

J'ai une séquence de lignes à exécuter dans une macro à plusieurs endroits, le plus logique est d'écrire une "Function" et de l'appeler à chaque fois

Cependant ce code contient beaucoup de références interne à la macro elle-même , ce qui fait une fonction avec un grand nombre de paramètres à passer

Je me demande s'il est possible dans VBA de faire une fonction "interne" c'est à dire l'équivalent d'un "GoTo" à la première ligne du code à exécuter (pas de problème) ET REVENIR à la ligne suivant l'appel

Cela ressemblerait à cela, le problème bien sur est de trouver comment faire un équivalent à "GoTo b" ("GoTo b" devenant "GoTo c" au prochain appel soit un retour dynamique)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
lignes de code
...
GoTo a
b:
...
 
a:
lignes communes
...
Goto b

[Philippe Tulliez]

Bonjour,
Je ne suis pas certain d'avoir compris ce que vous voulez mais si une procédure A invoque une procédure B, à son retour elle exécutera la ligne suivante de la procédure A

[Invité]

Bonjour Philippe, retraite83

Pas certain d'avoir bien compris non plus l'explication, voici un essai

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Test(MonParam as String)
  Dim Rep as string
  ' Exécute une action selon une valeur
  Select Case MonParam
    Case "BONJOUR"
      Rep = "Bonjour et bonne journée"
    Case "AU REVOIR"
      Rep = "Au revoir et bonne soirée"
    Case "SALUT"
      Rep = "YO !"
  End Select
  ' Renvoie la valeur à la fonction
  Test = Rep
End Function

Fonction que l'on peut appeler comme ceci

Code :

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

1
2
3
Sub Essai()
  Msgbox Test("BONJOUR")
End Sub

A+

[retraite83]

Bonjour vous 2

je n'ai pas été clair

en fait je voudrai que la procédure B soit dans A
Si elle est dans une fonction autre, je vais avoir un paquet de paramètre à passer, si pas d'autre solution je le ferai

Pour essayer de préciser, voilà mon idée :

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
25
 
Sub x()
 
1ere fois...
GoTo a
b:
...
 
 
2eme fois...
GoTo a
c:
...
 
3eme fois...
GoTo a
d:
...
 
a:
...
Si je viens de 1ere fois = retour en b
Si je viens de 2eme fois = retour en c
Si je viens de 3eme fois = retour en d
End sub

[Thumb down]

bonjour,
le langage spaghetti avec moults GOTO est dépassé!

il est, il me semble, préférable de sub diviser c'est méthode plutôt que de les agglomérer en une!

notes que tu peux gérer la propriété d'un module pour lui donner un nom ce qui te permettras de t'y retrouver facilement dans ton code!

notes également qu'il est possible de créer des types personnaliser pour regrouper plusieurs variables, ça peux te permettre de limiter le nombre de paramètre à un fonction!

notes également qu'il est possible de définir des paramètres optionnels {Optional} à une méthode et de leurs affecté des valeur par défaut!

[retraite83]

#5

tu connais une doc qui parle de tout ça?

Merci

[retraite83]

Bonjour

je vais écrire une fonction avec passage des paramètres

merci à tous de votre temps

[Thumb down]

Bonjour,
désolé mais il m'a fallu un peut de temps!

déjà il faut donner la parole au maître de tous les informaticiens Descartes!

https://slvf-associes.com/methode-cartesienne

comme disait Descartes un problème complexe n'est autre que la somme de problème simple!

sur limages qui suit tu peux trouver le schéma cartésien d'un projet!
de droite à gauche ce trouve le temps et le flue de données
et de haut en bas le détail!


quand tu en serras au détail le plus petit tu pourras envisager un diagrammes fonctionnel!


un fois ton digramme établir tu pourras imaginer ton pseudo code!
https://info.blaisepascal.fr/pseudo-code

pour la génération les diagramme j'ai utiliser Dia!

[retraite83]

Merci
je vais regarder cela de près

Il va me falloir un peu de temps...