Discussion :

[ValerianVBA]

Bonjour à tous,

En somme, le néophyte que je suis ne parvient pas à identifier la cause de l'erreur de compilation m'indiquant selon la boucle utilisée (j'en ai testé plusieurs) "Boucle sans Do" ou "Went sans while". Je vous ai joint les captures d'écran et le code pour le while wend.

Je vous remercie pour l'aide apportée.

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
Sub bornageplagelistedéroulante()
'
' Macro8 Macro
'
Dim i As Integer
i = 15
 
    While Cells(i, 5) <> "total"
 
        Cells(i, 10).Select
        With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=apuré"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
        i = i + 1
 
    Wend
 
End Sub