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 :

Progression macro dans UserForm


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Homme Profil pro
    Ingénieur d'études
    Inscrit en
    Mars 2014
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur d'études

    Informations forums :
    Inscription : Mars 2014
    Messages : 51
    Par défaut Progression macro dans UserForm
    Bonjour,

    J'ai un bout de code qui permet de remplir un nombre de ligne dans plusieurs colonnes.
    Et comme cette macro peut être longue suivant le nombre de lignes, j'ai voulu créer un userform avec le nom de la partie du coup qui tourne dans un label et le numéro de ligne en cours sur le nombre de ligne total dans la colonne en cours dans un 2e label.

    Mais je n'arrive pas a faire fonctionner correctement l'userform, je pense que la façon dont j'ai structuré ou placé mon bout de code (module ou directement dans la partie code de l'userform) qui est mal fait.

    Je mets en pièce jointe le fichier.
    L'userform concerné est UserForm3.
    J'ai mis tout mon code dans un module, est ce qu'il faut le mettre dans la partie code de l'userform ?
    J'exécute la macro en cliquant sur le bouton "COMPARAISON CABLESEGMENTS" dans la feuille "Executer".

    Merci.

  2. #2
    Membre émérite
    Homme Profil pro
    Responsable des études(en disponibilité)
    Inscrit en
    Juin 2007
    Messages
    367
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable des études(en disponibilité)
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 367
    Par défaut
    en mettant

    UserForm3.Show False

    au démarrage du formulaire.

    puis en précisant le formulaire pour chaque label

    UserForm3.Label3.Caption = ValeurEnCours & "/" & ValeurMax


    je pense que ça fonctionne.


    personnellement pour le suivi de l'avancement d'une macro j'utilise :

    Application.StatusBar

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
     For i = 2 To DerLigne2
     
             Application.StatusBar = i & " sur :  " & DerLigne2
     
    next
    et je met

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Application.StatusBar = ""
    à la fin de mon code

  3. #3
    Membre averti
    Homme Profil pro
    Ingénieur d'études
    Inscrit en
    Mars 2014
    Messages
    51
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur d'études

    Informations forums :
    Inscription : Mars 2014
    Messages : 51
    Par défaut
    J'ai essayé ta solution et ça ne fonctionne pas, ça me met un nouveau message d'erreur.
    Mais peut être parce que je place mal les infos dans le code.

  4. #4
    Membre émérite
    Homme Profil pro
    Responsable des études(en disponibilité)
    Inscrit en
    Juin 2007
    Messages
    367
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable des études(en disponibilité)
    Secteur : Industrie

    Informations forums :
    Inscription : Juin 2007
    Messages : 367
    Par défaut
    il faut peut être que tu regarde pourquoi avec débogage

    puis nous dire ce qu'il en est.

    Nota dans ton fichier :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    UserForm3.Label2
    s’appelle en:
    UserForm3.ProcessusEnCours
     
    UserForm3.Label3
    s’appelle en:
    UserForm3.ValeurEnCours_ValeurTotale
    ajouter :UserForm3.Repaint
    a chaque fois que tu change une valeur de label

    Nota : je pense que le temps de traitement de ta macro pourrait être réduit de façon significative.
    je crois que tu écrit uniquement dans les colonnes 18,19 & 20
    tu pourrai utiliser une variable tableau pour ceci puis tout écrire en une fois dans la feuille..

  5. #5
    Inactif  

    Homme Profil pro
    cuisiniste
    Inscrit en
    Avril 2009
    Messages
    15 374
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Var (Provence Alpes Côte d'Azur)

    Informations professionnelles :
    Activité : cuisiniste
    Secteur : Bâtiment

    Informations forums :
    Inscription : Avril 2009
    Messages : 15 374
    Billets dans le blog
    8
    Par défaut re
    bonjour
    tu pourrais t'en inspirer
    https://www.developpez.net/forums/d1...facon-patosch/
    mes fichiers dans les contributions:
    mail avec CDO en vba et mail avec CDO en vbs dans un HTA
    survol des bouton dans userform
    prendre un cliché d'un range

    si ton problème est résolu n'oublie pas de pointer : : ça peut servir aux autres
    et n'oublie pas de voter

Discussions similaires

  1. [XL-2007] Problème de macro affichage de valeurs dans userforms
    Par caro33700 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 13/09/2016, 07h38
  2. [Toutes versions] La methode range de l'objet global à échoué macro dans un userform
    Par diude54 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 25/02/2013, 11h38
  3. macro pour creer objet dans userform
    Par redstoff dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 03/02/2011, 15h44
  4. [XL-2007] Barre de progression dans UserForm
    Par Tempas dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 21/05/2010, 10h05
  5. [XL-2003] Lancer des macros dans un userform
    Par PetitePatate dans le forum Macros et VBA Excel
    Réponses: 6
    Dernier message: 09/05/2010, 17h40

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