Problème de End If

Version imprimable

Problème de End If

Bonsoir,

J'ai le code suivant... avec l'erreur :

" End If sans bloc If "

Le souci c'est que si je supprime End If, il met :

" Bloc If sans End If "

Je ne sais pas quoi faire... Avez-vous une idée !?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton5_Click()
Dim i As Long
i = 1
Dim Mes As Integer
 
    Mes = MsgBox("Vous êtes sur le point de supprimer un enregistrement. Action irreversible ! Voulez vous continuer ?", _
    vbExclamation + vbYesNo)
 
    If Mes = vbNo Then
        Unload Me
        Else
        Do While Sheets("Retenues").Range("A" & i).Value <> ""
            If Sheets("Retenues").Range("A" & i).Value = ListBox1.Text Then
            Sheets("Retenues").Rows(i).Delete
            End If
    End If
 
    i = i + 1
Loop
 
End Sub

bonsoir...,

placer Loop dans Else.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub CommandButton5_Click()
Dim i As Long
i = 1
Dim Mes As Integer
 
    Mes = MsgBox("Vous êtes sur le point de supprimer un enregistrement. Action irreversible ! Voulez vous continuer ?", _
    vbExclamation + vbYesNo)
 
    If Mes = vbNo Then
        Unload Me
        Else
        Do While Sheets("Retenues").Range("A" & i).Value <> ""
            If Sheets("Retenues").Range("A" & i).Value = ListBox1.Text Then
            Sheets("Retenues").Rows(i).Delete
            End If
 
 
            i = i + 1
      Loop
 
End If
 
End Sub

23/02/2013, 11h10
Chris171717

Ok super ça fonctionne... merci beaucoup :ccool: