2 caratères de gauches

[eric44]

Bonjour,

Je voudrais changer la couleur de fond de ma cellule en fonction des 2 caractères de gauche du texte de ma cellule.

Ici, la couleur change si ma celulle contient "Spécial" :
Case "Spécial"
Cel.Interior.ColorIndex = 4

Mais je voudrais que la couleur change si les deux premiers caractères de ma celulle contient "Sp".

Merci pour votre aide.

Eric.

 

[SergiO]

Re : 2 caratères de gauches

Bonjour Eric

Essaie ceci:

If Left(Cel,2)="Sp" Then  Cel.Interior.ColorIndex = 4

@+

 

[Papaye]

Re : 2 caratères de gauches

Bonjour,

Tu peux utiliser
Select case left(Macellule.value)
case "SP"
....

 

[jeanpierre]

Re : 2 caratères de gauches

Bonjour eric,

Entre cela change s'il y a "Spécial" dans une cellule et selon ton code, mais que cela change en plus ou aussi si les deux premiers caractères de gauche sont "Sp", c'est un peu du pareil au même... non ?

Manque peut-être de précision sur ce coup.... mais de précisions précises....

Une question toutefois : y a-t'il besoin de VBA pour cela...?

Une MFC suffit... mais pourquoi faire simple.... etc... etc.

Tarif habituel : fichier joint (ZIPPE, please) et question bien posée ou mieux des explications : départ, arrivée souhaitée.... cétéra et cétéra...

A te lire, donc.

Jean-Pierre

Edit : Pfiou, y'a du monde, bonne année à tous, ici et ailleurs...

 

[Robert]

Re : 2 caratères de gauches

Bonjour Eric, bonjour le forum,

Essaie comme ça :

Select Case UCase(Left(Cel.Value, 2))
    Case "SP"
        Cel.Interior.ColorIndex = 4
End Select

Le UCase permet d'accepter aussi bien les majuscules, les minuscules ou un mélange des deux...

Édition :

Hou la ! Pas très frais sur ce coup là... Bonjour à tous !

 

[eric44]

Re : 2 caratères de gauches

Merci à tous et plus particulièrement à Robert et Papaye.

Cela fonctionne comme je voulais.

Bon WE.

Eric.