Bonjour,

Je fais boucler une action avec la boucle while, ma condition étant un nombre de cellules non-vide calculé. Le programme appelé fait un tri dans un tableau à partir de la valeur d'une cellule, cellule variable.
La boucle while s’exécute le bon nombre de fois, mais la valeur utilisée pour le tri ne s'incrémente pas. Voici mon code (très "débutant", milles excuses)

Ligne 20, la valeur qui devrait bougé


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
18
19
20
21
22
23
24
25
26
27
28
Private Sub Bouclage_N_Options_Click()
Dim NumOP As Integer
Dim i As Integer
Application.ScreenUpdating = False
 
    NumOP = Application.WorksheetFunction.CountA(Range("E4:E30"))
    MsgBox NumOP
    i = 0
     While i < NumOP
     Call CalculNumAll
     i = i + 1
     Wend
 
Application.ScreenUpdating = True
End Sub
 
Public Sub CalculNumAll()
 
    Sheets("CDV").Select 'Tri de la feuille CDV selon Num Option
    ActiveSheet.Range("$A$1:$O$500000").AutoFilter Field:=8, Criteria1:=Sheets("Home").Range("E" & i + 4).Value
    Sheets("Home").Select
 
    Call AjoutDates2
    Call TriDatesetCollage
 
 
 
End Sub