IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

[E-02] Relancer un sub à tous moment


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mai 2008
    Messages
    382
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2008
    Messages : 382
    Par défaut [E-02] Relancer un sub à tous moment
    Bonjour à tous,

    Je cherche une solution pour relancer un sub a partir d'une condition.

    Voici un schéma simplifier:
    sub1{
    1
    2
    3call sub2
    4
    ...
    56-else
    57// on relance le sub a partir de l'instruction 1 de sub1
    58end if
    ...
    70end sub2
    ...
    134 end sub1
    }//fin du sub


    Bref je souhaite revenir au début de la première instruction du premier sub.
    Comment faire?

    Merci,

  2. #2
    Membre chevronné Avatar de drakkar_agfa
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : Canada

    Informations forums :
    Inscription : Septembre 2008
    Messages : 618
    Par défaut
    Bonjour,

    SI tu veux réellement revenir à une partie du sub, utilise le GoTo.

    Sinon, il est possible d'appeler la sub de façon récursive mais.... il faut s'assurer des conditions!

    GoTo de l'aide :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Sub GotoStatementDemo()Dim Number, MyString    Number = 1     ' Initialise la variable.    ' Évalue Number et se branche à l'étiquette    ' appropriée.    If Number = 1 Then GoTo Line1 Else GoTo Line2    Line1:    MyString = "Number est égal à 1"    GoTo LastLine    ' Passe à la dernière ligne.Line2:    ' L'instruction suivante ne peut jamais être    ' exécutée.    MyString = "Number est égal à 2"LastLine:     Debug.Print MyString    ' Affiche "Number est                                ' égal à 1" dans la fenêtre                                ' Exécution.End Sub
    Assez simple! mais efficace!

  3. #3
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mai 2008
    Messages
    382
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2008
    Messages : 382
    Par défaut
    Arfh

    Le problème de goto est qu'il va m'envoyer sur la ligne1 du sub en cours.
    Je veus revenir sur le premier sub.

    Et j'ai pas vraiment l'intention de mettre des goto dans mon script.

  4. #4
    Membre chevronné Avatar de drakkar_agfa
    Profil pro
    Inscrit en
    Septembre 2008
    Messages
    618
    Détails du profil
    Informations personnelles :
    Âge : 38
    Localisation : Canada

    Informations forums :
    Inscription : Septembre 2008
    Messages : 618
    Par défaut
    D'accord...

    Est-ce possible de voir ton code un peu plus complet (en avec la balise code).

    Et avec une idée général de ce à quoi sert la macro.

    Merci

  5. #5
    Membre éclairé
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    Mai 2008
    Messages
    382
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Loire (Rhône Alpes)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : Mai 2008
    Messages : 382
    Par défaut
    J'ai résolu mon problème, je me suis débrouillé autrement.

    Merci pour ton aide

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 2
    Dernier message: 12/09/2014, 09h56
  2. Appliquer un sub à tous les fichiers .xls d'un dossier
    Par VBuzze dans le forum VBA Access
    Réponses: 2
    Dernier message: 03/07/2014, 12h25
  3. Macro accessible pour tous et à tout moment
    Par myaouss dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 28/10/2009, 22h53
  4. [E-02] Arrêter un sub à tous moment
    Par peofofo dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 03/02/2009, 11h47

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo