Discussion :

[guismoman60]

Bonjour,

Je viens vers vous car mon code a un petit problème.

En effet, j'ai une macro assez lourde et j'aimerai faire apparaître une Userform avec un label variable qui m'indique le numéro de la ligne où j'en suis.

le problème du code qui va suivre, c'est qu'à l'ouverture de ma userform, la macro se stop.

Voici mon code actuel :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
For cpt_ligne_data = nbre_ligne_data To 2 Step -1
    For j = 2 To nbre_ligne_pf
 
If Workbooks("PICPDP.xlsm").Sheets("DATA").Cells(cpt_ligne_data, 1).Value = Workbooks("PICPDP.xlsm").Sheets("LISTE PF").Cells(j, 1).Value Then
 
    Workbooks("PICPDP.xlsm").Sheets("DATA").Rows(cpt_ligne_data).Delete
 
    Exit For
 
End If
Progression.Label2.Caption = cpt_ligne_data
Progression.Show
   Next
Next
Unload Progression
End Sub

Merci de votre aide précieuse

Vincent

[parmi]

Bonjour,

Tu pourrais utiliser le Statusbar pour afficher les lignes traitées ou les macros en cours.

[HopPopPop]

Bonjour à tous,

- Il faut mettre la propriété ShowModal du formulaire "Progression" à False ;
- La ligne de code 13 (Progression.Show) faisant apparaître ce formulaire devrait être avant les boucles For ;
- Ajouter la ligne après le changement de valeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Progression.Label2.Caption = cpt_ligne_data
Doevents

[guismoman60]

Re-Bonjour,

En effet, j'ai utilisé la statusbar ce qui me paraissait beaucoup plus simple.

Encore une possibilité que je n'avait jamais exploité.

Merci pour vos conseils. Ce forum et ces utilisateurs sont toujours d'une aide précieuse. Merci beaucoup.

Vincent CRESSONNIER