Bonjour,

Je tente d'utiliser une boucle For dans un Select, et le message d'erreur suivant apparait : "Statements and labels invalid between Select Case and First Case".

Or, j'aimerais bien écrire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
 
Select Case Attribut
       For i = 1 To 20
            Case Range("Index").Offset(i, 0)
            Lin = i
        Next i
 
       Case Else
      MsgBox "Attention, les attributs rentrés ne correspondent pas à l'index !"
       End
End Select
En effet, j'ai placé dans ma feuille excel une place de cellules correspondants à l'ensemble des valeurs que peut prendre "Attribut". Toutes ces valeurs se trouvent sur la même colonne et se suivent ligne par ligne. Je trouve cela à la fois plus élégant et plus efficient d'utiliser alors une boucle for.

Savez-vous pourquoi cela ne marche pas ?
J'envisage d'utiliser une boucle if à la place, mais cela ne serait pas non plus ni très élégant, ni très efficient.

Merci d'avance,
Novic_vba