affecter une barre de progression a la recherche d'un userform

  • Initiateur de la discussion Initiateur de la discussion willou
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

willou

XLDnaute Junior
Bonjour

Apres maintes recherches, je ne trouve pas comment affecter une macro où j'ai créer une barre de progression via userform sur le calcul d'un autre userform.
Je m'explique :
j'ai crée un userform avec un module Sub MonProgramme() qui défini l'avancement de la barre de progression de l'Userform18 qui contient toute la barre de progression. La barre de progression marche lorsque je lance le module.

Maintenant j'aimerai que cette barre de progression soit rattaché au calcul de l'userform1 par exemple, dont le code est le suivant :

Sub CommandButton1_Click()
Selec1 = ComboBox1
Sheets("Feuil1").Range("I3").AutoFilter
If ComboBox1.Value <> "" Then Sheets("Feuil1").Range("I3").AutoFilter Field:=9, Criteria1:=ComboBox1.Value
Unload Me

Sheets("Feuil1").Range("A:A,B:B,C:C,D😀,E:E,F:F,G:G,H:H,I:I,K:K,R:R,T:T,U:U,W:W").Copy

Chemin = ThisWorkbook.Path 'dossier du classeur
Fichier = "customer report" 'à adapter
Workbooks.Open Chemin & "\" & Fichier & ".xlsx" 'extension à adapter
'copie dans le classeur qui vient d'être ouvert
ActiveSheet.Paste Destination:=ActiveWorkbook.Sheets("feuil1").Range("A25")
ActiveSheet.Columns.AutoFit

End Sub

En clair quand je click sur le bouton 1, mes données sont filtrées puis copiées sur une autre feuille, ce qui prend du temps, d'où la nécessité d'ajouter la barre de progression.

Sauriez vous m'aider s'il vous plait ? où dois je rentrer l'appel de l'userform18 ou du module dans le calcul de l'userform1 ?

Merci d'avance

willou
 
Re : affecter une barre de progression a la recherche d'un userform

Bonjour willou
En clair quand je click sur le bouton 1, mes données sont filtrées puis copiées sur une autre feuille, ce qui prend du temps, d'où la nécessité d'ajouter la barre de progression.
Je dirais plutôt : d'où la nécessité de ne pas mettre une barre de progression

Il ne faut pas perdre de vue que toute "animation" faite par macro ne fera qu'allonger le temps d’exécution


je pense qu'il y a moyen de gagner beaucoup de temps en modifiant cette ligne parce que je doute que ta feuille contienne des données jusqu'à la ligne 1048576:
Sheets("Feuil1").Range("A:A,B:B,C:C,D😀,E:E,F:F,G:G,H:H,I:I,K:K,R:R,T:T,U:U,W:W").Copy

à+
Philippe
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
1
Affichages
820
Réponses
6
Affichages
1 K
Retour