RECHERCHER :
COMMUNAUTE MP
Identifiez vous ...
Devenir Membre
J'ai oublié mon MDP
DOMAINE MP
Bavardages
Langages Généraux
Langages Web
Langages DotNet
Autres langages
Dev. Jeux Video
Sécurité
Sys. Exploitation
Graphismes
Logiciels
Réseaux
Bases de données
Méthodologies
Emplois High-tech
Aide juridique
Articles juridiques
FORUM
Index des forums
Ajouter un sujet
Rechercher sujet
Contact Responsable
Devenir modérateur
CHAT MP IRC
Votre pseudo ...
Srv: irc.moteurprog.com
Chan: #MoteurProg
PARTICIPER
Plus de 3500 emplois.
Rechercher un job
Déposez votre CV
Emplois High-tech

Visiteur MP

 VBA, faire une boucle

Forum : VISUAL BASIC
Sous Catégorie : Aucune
Type du sujet : Sujet Normale
FAQ : FAQ VISUAL BASIC

SUIVI DES SUJETS PAR MAIL

SUIVI PAR MAIL INACTIF
RESOLUTION DU SUJET SUJET NON RESOLU
BLOQUAGE DU SUJET SUJET ACTIF
APPARTENANCE A LA FAQ N'APPARTIENT PAS A LA FAQ


POSTER UN NOUVEAU SUJET REPONDRE A CE SUJET

FORUM VISUAL BASIC

PREMIERE PAGE

PAGE PRECEDENTE

Page précedente

Page suivante

PAGE SUIVANTE

 DERNIERE PAGE
magicfrom
Nouveau membre
Inscrit : 21/04/2008
Messages : 1
Message
#152230
Posté le 21/04/08 à 17:02
Bonjour,

je souhaiterais générer une boucle qui m\\\'éxécute plusieurs maccros différentes suivant une ou plusieurs variables.

par exemple voici mon programme actuel :

If CB_GEN.Value = True And CB_POW_GEN.ListIndex = 0 Then Application.Run (\\\"Macro1000\\\")
If CB_GEN.Value = True And CB_POW_GEN.ListIndex = 1 Then Application.Run (\\\"Macro1001\\\")
If CB_GEN.Value = True And CB_POW_GEN.ListIndex = 2 Then Application.Run (\\\"Macro1002\\\")
If CB_GEN.Value = True And CB_POW_GEN.ListIndex = 3 Then
Application.Run (\\\"Macro1003\\\")

Je voudrais faire juste une ligne de programme pour limiter le texte du programme.

Et si je souhaite faire varier la première variable et la deuxième variables quel serait le programme à faire?

HAUT DE PAGE

 PROFIL MEMBRE LUI ECRIRE 

Publicité
Inscrit : X
Messages : X
Message
#Aucun

HAUT DE PAGE

   

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique
Avatar de RGI
Inscrit : 21/08/2006
Messages : 1725
Message
#152636
Posté le 01/05/08 à 11:56
Bonjour

for i = 0 to 3
If CB_GEN.Value = True And CB_POW_GEN.ListIndex = i Then Application.Run (\\\"Macro100" & i &"\\\")
next

Salutations

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley
merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :Imageaprès résolution.

HAUT DE PAGE

 PROFIL MEMBRE LUI ECRIRE 


    PAGE : [1]



.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.