Discussion :

[frunch]

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

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

Et le doevents je sais pas trop ou le mettre.
test.xlsm
Merci de votre aide