Discussion :

[Nako_lito]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[aalex_38]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Nako_lito]

exact.