Bonjour à tous,
Aprés l'imbrication d'une boucle for avec une boucle while wend,
j'ai quelques soucis :
Ce message.
Et aprés le total qui devrait être de 1 à 5 et pas 100 (la propriété bloquée du champ Progression de l'UF)
voilà le code
Et le doevents je sais pas trop ou le mettre.
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 Sub test2() Dim i%, y%, cp1%, Ligne% cp1 = 31 Afficher.Show False While Ligne <= cp1 For i = 2 To cp1 If Range("C" & i).Value > Range("B" & i).Value Then Range("D" & i).Value = Range("A" & i).Value y = y + 1 Afficher.Progression.Value = y Afficher.Restant.Caption = y & " / " & cp1 DoEvents End If Next i Wend Unload Afficher End Sub
test.xlsm
Merci de votre aide
Partager