Debutant, besoin d'aide car pb avec Select Case quand ya du text!Résolu

Question

J'ai un prog qui effectue différente taches et j'ai un pb avec Select Case.
Voila un bout de mon code :
************codeVB**************************************************************           
Select Case (Worksheets("Résultats de comparaison").Cells(k, 1).Value Case "LUNDI"    ' La case contient LUNDI
MsgBox ("ligne=") & k & (" contient") & Worksheets("Résultats de comparaison").Cells(k, 1).Value

Case "MARDI"    ' La case contient MARDI
MsgBox ("ligne=") & k & (" contient") & Worksheets("Résultats de comparaison").Cells(k, 1).Value

Case "MERCREDI"    ' La case contient MERCREDI
MsgBox ("ligne=") & k & (" contient") & Worksheets("Résultats de comparaison").Cells(k, 1).Value

Case "JEUDI"    ' La case contient JEUDI
MsgBox ("ligne=") & k & (" contient") & Worksheets("Résultats de comparaison").Cells(k, 1).Value

Case "VENDREDI"    ' La case contient VENDREDI
MsgBox ("ligne=") & k & (" contient") & Worksheets("Résultats de comparaison").Cells(k, 1).Value

Case "SAMEDI"    ' La case contient SAMEDI
MsgBox ("ligne=") & k & (" contient") & Worksheets("Résultats de comparaison").Cells(k, 1).Value

Case "DIMANCHE"   ' La case contient DIMANCHE"
MsgBox ("ligne=") & k & (" contient") & Worksheets("Résultats de comparaison").Cells(k, 1).Value

Case Else    ' Autres valeurs.
MsgBox ("autre cas!ligne=") & k & (" case=") & (Worksheets("Résultats de comparaison").Cells(k, 1).Value)
End Select
*******************************************************************************
En fait mon pb c'est que les MsgBox me retourne des contenus de cellule excel vide (alors qu'en rélité elle contiennent "LUNDI","MARDI"....) et le program ce retrouve tj dans le Case Else!
Est ce que cela provient d'un pb avec le Select Case utilisé avec du texte????
MERCI A L'AME CHARITABLE VOLANT A MON SECOURS!!!!!!!!!!!!!!!!!!

pier0 · Accepted Answer

Merci les gars pour vos conseils!
La valeur de k était bonne.
En fait le pb é t tout bête!
Le tableau que je traitait était préalablement rempli par un autre bout de code or celui ci était situé après le Case Select donc je testait un tableau vide que je remplissait après...
La solution tte simple a été de placer le Case Select après avoir rempli le tableau et le tour est joué.
Par ailleurs le select case  proposé par  pcpt ne peut pas s'appliqué car traitement différent selon le jour
Ciao @+
Pier0

cs_CanisLupus · Answer

Salut,
Le msgbox de ton case else t'affiche quoi ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_CanisLupus · Answer

S'il ne t'affiche rien, v&#233;rifie la valeur de k.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

cs_chris81 · Answer

MsgBox ("ligne="  & k & " contient"  & Worksheets("R&#233;sultats de comparaison").Cells(k, 1).Value

http://www.correzeweb.com
http://www.localetv.com
[ol%28%27http://spaces.msn.com/members/devlog81/%27%29; http://]

cs_MasterHack · Answer

j'aime po toute ces parenteze moi


Life is short...Learn moreCopy Rights <> Rights to Copy

cs_chris81 · Answer

apres le dernier value ajoute une parenthese car c msgbox ()

http://www.correzeweb.com
http://www.localetv.com
[ol%28%27http://spaces.msn.com/members/devlog81/%27%29; http://]

cs_CanisLupus · Answer

Je dirais m&#234;me plus, on voit plusieurs fois :
Worksheets("R&#233;sultats de comparaison").Cells(k, 1).Value
De plus, la cellule contient peut-&#234;tre des espaces avant et/ou apr&#232;s le mot cherch&#233; ?
Le mot est peut-&#234;tre en minuscule ?

Dans ces cas, solution propos&#233;e :

Dim tmp As String


tmp = Trim(UCase(Worksheets("R&#233;sultats de comparaison").Cells(k, 1).Value))


Select Case tmp
    Case "LUNDI"    ' La case contient LUNDI
        MsgBox "ligne = " & k & " contient " & tmp
    Case "MARDI"    ' La case contient MARDI
        MsgBox "ligne = " & k & " contient " & tmp
    Case "MERCREDI"    ' La case contient MERCREDI
        MsgBox "ligne = " & k & " contient " & tmp
    Case "JEUDI"    ' La case contient JEUDI
        MsgBox "ligne = " & k & " contient " & tmp
    Case "VENDREDI"    ' La case contient VENDREDI
        MsgBox "ligne = " & k & " contient " & tmp
    Case "SAMEDI"    ' La case contient SAMEDI
        MsgBox "ligne = " & k & " contient " & tmp
    Case "DIMANCHE"   ' La case contient DIMANCHE"
        MsgBox "ligne = " & k & " contient " & tmp
    Case Else    ' Autres valeurs.        MsgBox "autre cas!ligne " & k & " case " & tmp
End Select

Mais il n'en reste pas moins qu'il faut &#234;tre s&#249;r de la valeur de k, j'insiste.

A moins que le mot cherch&#233; soit perdu dans un groupe du genre "Le lundi 1 Aout 2005" et l&#224;, le select case n'est plus utilisable.

Attendons donc les pr&#233;cisions de pier0.

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

salut

et pour raccourcir un peu le select case de CanisLupus : 

Select Case tmp
    Case "LUNDI","MARDI","MERCREDI","JEUDI","VENDREDI","SAMEDI","DIMANCHE"
        MsgBox "ligne = " & k & " contient " & tmp    Case Else: MsgBox "autre cas!ligne " & k & " case " & tmp
End Select

PCPT

cs_CanisLupus · Answer

OK avec toi  pour l'optimisation mais je n'ai pas os&#233; aller jusque l&#224; sans connaitre le but de .


Des fois qu'il veuille faire un traitement diff&#233;rent suivant le nom des jours !?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

oui, &#224; vouloir trop condenser...
PCPT

Debutant, besoin d'aide car pb avec Select Case quand ya du text!

10 réponses

Discussions similaires