Syntaxe select case

Bonjour a tous,

J'ai ce morceau de code et quand j'exécute mon programme il me dit:
Case Else en dehors d'un bloc Select case en pointant "Case Else"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
        If laComboBox = "comboBoxChamps" Then
            variable = "B"
        Else
            variable = "A"
        End If
 
        Select Case variable
            Case "B"
                For Each Cell In VBAProject.Feuil2.Range("B1:B" & Range("B65536").End(xlUp).Row)
            Case Else
                For Each Cell In VBAProject.Feuil2.Range("A1:A" & Range("A65536").End(xlUp).Row)
        End Select

Je ne vois vraiment pas d'ou vient le probleme. Une petite aide serai la bienvenue.

Merci par avance.

bonjour,

Je ne crois pas que le problème vienne du select mais plutot de la boucle for qui n'est pas terminée par un next :
Code:

1 2 3 For Each Cell In VBAProject.Feuil2.Range("B1:B" & Range("B65536").End(xlUp).Row) ' il manque du code quand on est dans la boucle Next Cell ' il faut finnir la boucle

exact.