Discussion :

[Novice_vba]

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

[el_slapper]

Le problème est que ton code n'est pas cohérent. Select case choisit une fois entre plusieurs possibilités. Le for, soit doit être à l'interieur du case, soit à l'extérieur du bloc select case complet.

Dis-moi si je comprends bien ta demande : tu veux vérifier si l'Attribut est bien dans une des cases Case Range("Index").Offset(i, 0)?

Si oui, je te propose de faire de la manière suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
Lin = 0
For i = 1 To 20
    If Attribut = Range("Index").Offset(i, 0) Then
        Lin = i
        Exit For
    End If
Next i
If Lin = 0 Then
    MsgBox "Attention, les attributs rentrés ne correspondent pas à l'index !"
End If

le Exit For est pour éviter de boucler alors qu'on a déjà trouvé la valeur de Lin. Et, si on n'en a trouvé aucune(Lin est resté à zéro), alors on sort le message d'alerte.

Evidemment, si c'est autre chose que tu veux, ça ne te conviendra pas(mais alors dis-nous quoi).

[Novice_vba]

Bonjour el_slapper,

L'attribut recherché existe nécessairement. Le message d'erreur n'a été placé que si quelque chose se passe mal.

Ce code vise en réalité à remplir une matrice constituée de deux attributs (l'un en abscisse, l'autre en ordonnée), grâce à deux fonctions : l'une renvoie le numéro de la ligne de l'attribut en question, et l'autre renvoie le numéro de la colonne lié à l'attribut.
Le code posté est ainsi simplifié (en réalité, il existe plusieurs attributs, qui ne sont pas nécessairement sous la cellule "Index"
Quand le code a récupéré la valeur correspondant à une valeur correspondant au croisement de l'attribut 1 et une valeur de l'attribut 2, il suffit d'écrire : Range("Cellule_En_Haut_A_Gauche").Offset(lin(Attribut(Numero),Col(Attribut(Numero)) = ...
Je ne suis pas certain que mon explication suffise, mais malheureusement la sécurité de mon ordinateur ne me laisse pas poster des fichiers sur des forums.

Finalement, j'ai effectivement opté pour votresolution avec une boucle for et un "If"
Malheureusement mon code est soudain beaucoup plus lent. Alors si cette solution suffit, je serais heureux s'il existait une solution alternative.

Novice_vba

[el_slapper]

Ah, alors c'est plus compliqué, en effet. Si tu as des problèmes de performance, c'est que tu dois avoir plein de recherches à faire. Une solution est de chercher durectement la case via la fonction Find.

D'abord, il faut déterminer ton périmètre de recherche (ça sera un range). Si je garde les 20 cases que tu avais dans ton premier exemple, ça donne :

Code :

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

1
2
    Dim MyRange As Range
    Set MyRange = Range(Cells(Range("Index").Row + 1, Range("Index").Column), Cells(Range("Index").Row + 20, Range("Index").Column))

un peu bourrin, mais tu as tes 20 cases à droite de "index". A adapter évidemment.

ensuite, il faut faire le find proprement dit :

Code :

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

1
2
3
4
5
6
7
8
    Dim MyCell As Variant
    Set MyCell = MyRange.Find(What:=Attribut, LookAt:=xlWhole)
        If MyCell Is Nothing Then
        MsgBox "Attention, les attributs rentrés ne correspondent pas à l'index !"
    Else
        Lin = MyCell.Row
        Col = MyCell.Column
    End If

MyCell possède et la ligne, et la colonne que tu cherches. Donc, tu ne fais la recherche qu'une fois, et normalement, les fonctions intrinsèques sont plus rapides que des boucles "manuelles" comme ma première solution(à vérifier avec tes données). A noter que si tu recherches ton attribut un certain nombre de fois, tu n'as pas besoin de redéfinir MyRange à chaque fois. Une seule fois suffit(c'est plus rapide).