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
Partager