Deporter du code pour plus de visibilité

Bonjour, je tente un programme avec pas mal de boucles qui s'imbriquent.

Pour plus de lisibilité, je souhaite déporter du code.

J'ai tenté avec des "sub" mais cela ne fonctionne pas car je dois passer en paramètre mes variables...

Comment faire ?

Exemple :

Private Sub CommandButton1_Click()

Dim a As Integer

a = 1

Call deporter_code

Cells(10, 10) = a

End Sub

Sub deporter_code()

a = 23

End Sub

==> Dans l'esprit, ce que je souhaite est que le prog ci-dessus remplisse la cellule (10,10) par la valeur 23, et non 1 !

Je veux juste DEPORTER du code !

Merci pour votre aide !

Cordialement.

Bonjour

A tester

Dim a As Integer

Private Sub CommandButton1_Click()

  a = 1
  Call deporter_code
  Cells(10, 10) = a
End Sub

Sub deporter_code()
  a = 23
End Sub

Bonsoir Banzai, merci pour la promptitude !

En effet votre solution marche bien !

Je vais donc utiliser ça.

Seulement pour information, je cherchais juste un déport du code, où tout se passe comme si le code était dans le corps de ma fonction CommandButton1_Click().

Cela ne doit pas exister sous VBA...

Merci encore et Bonne soirée !

Cordialement.

Bonjour

Je ne comprends pas ce que tu entends par déporter du code

Sinon tu as le GoSub

Private Sub CommandButton1_Click()
Dim a As Integer

  a = 1
  GoSub deporter_code
  Cells(10, 10) = a
  Exit Sub     ' Surtout ne pas l'oublier

deporter_code:
  a = 23
  Return
End Sub

Bonjour,

Merci pour le GoSub.

En fait ce que je souhaite c'est que l’interpréteur de code puisse lire mon code qui est déporté :

commande 1

commande 2

Texte_des_commandes 3 à 100

commande 101

commande 102

etc..

De la sorte mon code est plus clair.

Tout se passerait comme si, à la place de "Texte_des_commandes 3 à 100", il y avait effectivement le code correspondant (en l'occurence dans l'exemple, les commandes 3 à 100). Le texte des commandes 3 à 100 serait mis quelque part dans une feuille, peu importe où dés lors que l’interpréteur sait où et par quoi remplacer "Texte_des_commandes 3 à 100"...

Pas facile à expliquer

Merci encore.

Bonjour

thierry_2010 a écrit :

Pas facile à expliquer

Et moi je n'y comprends rien

Désolé mais je passe la main