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