select case avec texte

porcinet82

XLDnaute Barbatruc

• 4 Juillet 2006

• #2

Re : select case avec texte

Salut SKOBLAR,

Moi je modifierai de la manière suivante, mais a tester :

PHP:

typeasset = Sheets("Recommended sales").Range("C2").Value
Select Case typeasset
'le reste de ton code

ou directement

PHP:

Select Case Sheets("Recommended sales").Range("C2").Value
'le reste de ton code

@+

 

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 4 Juillet 2006

• #3

Re : select case avec texte

bonjour à vous deux


moi je rajouterai un s à row :

Sheets("Recommended sales").Rows("4:4").interior.color= RGB (250,161,000)

salut 🙂

 

Vote positif 0 Vote négatif

S

SKOBLAR

Guest

• 4 Juillet 2006

• #4

Re : select case avec texte

merci, ça donne toujours rien

pourrais-tu me dire comment doit être le reste de mon code ?

faut-il mettre des guillemets à bonds et liquidity par ex.

en fait je dois appliquer une couleur de texte différente à toute une ligne selon le mot contenu dans une certaine cellule de cette ligne. Verrais-tu un moyen plus simple sachant qu'il y a 6 possibilités et donc 6 couleurs différentes susceptibles d'être appliquer à la ligne.

si tu vois ce que je recherche...

Merci d'avance

SKOB

 

Vote positif 0 Vote négatif

S

SKOBLAR

Guest

• 4 Juillet 2006

• #5

Re : select case avec texte

Merci, Hervé, j'avais rattrappé cette erreur au vol, mais il ne se passe toujours rien alors qu'il devrait... ma structure select case doit être defaillante

Skob

 

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 4 Juillet 2006

• #6

Re : select case avec texte

re,

Essaye de la manière suivante:

PHP:

Dim ma_val As String
With Sheets("Recommended sales")
    ma_val = LCase(.Range("C2").Value)
    Select Case ma_val
    Case "bonds"
        .Rows("3:3").Interior.ColorIndex = 25
    Case "liquidity"
        .Row("4:4").Interior.ColorIndex = 10
    'le reste de tes Case
    End Select
End With

Tu remarquera que j'ai rajouter Lcase qui te met ta chaine en minuscule au moment ou elle est traité eet donc que j'ai modifier le contenu des chaine de caractère dans les Case qui sont obligatoirement toutes en minuscule.
Sinon j'ai remplacer ton RGB car je ne sais pas trop comment ca s'utilise, par contre je ne connais pas les correspondances entre RGB et les valeurs que j'ai mises.

Tiens moi au courant.

@+

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Juillet 2006

• #7

Re : select case avec texte

Salut
arff c'est fou hein lol 😛😉
j'ai mis ca dans un module standard
Sub test()
dim typeasset as string
typeasset = Sheets("Feuil1").Range("C2")
Select Case typeasset
Case "A"
Sheets("Feuil1").Rows("3:3").Interior.Color = RGB(25, 61, 133)
Case "B"
Sheets("Feuil1").Rows("4:4").interior.color= RGB (250,161,0)
End Select
End sub
et cela fonctionne
si c2=A ligne colorée en Bleu si B marron arff dit nous l'erreur que cela génére 😕
merci

 

Vote positif 0 Vote négatif

S

SKOBLAR

Guest

• 4 Juillet 2006

• #8

Re : select case avec texte

Merci à tous, j'ai choisi la dernière proposition, cela marche très bien.

Bonne soirée !

Skob

 

Vote positif 0 Vote négatif