si texte comment par * alors font rouge

T

toubib

Guest

• 13 Décembre 2005

• #2

bonjour evelynetfrançois,

tu peux faire une ptite macro dans vb
tu tapes ça et normalement ca marche

sub couleur

If Left(Range'ta case', 1) = '*' Then 'si la première lettre = *
Range('c2').Interior.ColorIndex = 3 'alors la couleur de la cellule est rouge
End If

end sub

Voila

Message édité par: toubib, à: 13/12/2005 12:14

 

Vote positif 0 Vote négatif

A

adebrux

XLDnaute Occasionnel

• 13 Décembre 2005

• #3

salut François,

Tu devrais essayé les fonction Left et Right qui te permettent de récupérer X caractères depuis la droite ou la gauche de ton mot.

Dans ton cas, je ferai un:

Code:

 if left(macellule.value,1)='*' then ...

le ',1' signifie que je prend 1 seul caractère en partant de la gauche.

L'aide VBA est bien faîte sur ce sujet, tu devrait t'en sortir!

Bon courage

Arnaud

 

Vote positif 0 Vote négatif

A

adebrux

XLDnaute Occasionnel

• 13 Décembre 2005

• #4

salut François,

Tu devrais essayé les fonction Left et Right qui te permettent de récupérer X caractères depuis la droite ou la gauche de ton mot.

Dans ton cas, je ferai un:

Code:

 if left(macellule.value,1)='*' then ...

le ',1' signifie que je prend 1 seul caractère en partant de la gauche.

L'aide VBA est bien faîte sur ce sujet, tu devrait t'en sortir!

Bon courage

Arnaud

 

Vote positif 0 Vote négatif

E

evelynetfrancois

Guest

• 13 Décembre 2005

• #5

merci beaucoup à vous deux pour vos suggestions
j ai tenté d ecrire un code (pour etre plus explicite)

Range('D8:H24,K8:O24,D29:H45,K29:O45,D50:H66,K50:O66').Select
For Each cell In Selection
if left(cell.value,1)='*' then ...
Selection.Font.ColorIndex = 3
End If
Next cell

bien sur ca ne fonctionne pas !!!

mais ca explik peut etre mieux ma 'requete'
pouvez vous m aider ???
merci d avance
E et F

 

Vote positif 0 Vote négatif

L

laM

Guest

• 14 Décembre 2005

• #6

Bonjour

Une adaptation de votre code qui semble fonctionner

Range('a1:a3,b3:b5').Select
For Each cell In Selection
If Left(cell.Text, 1) = '*' Then
cell.Font.ColorIndex = 3
End If
Next cell

Au revoir, à bientôt

 

Vote positif 0 Vote négatif

E

evelyne tfrancois

Guest

• 14 Décembre 2005

• #7

Merci!!!!!! IaM
c'est exactement ca !!!!!!!!que je souhaitais
c'est super !!
bonne journée
au plaisir de te lire
E et F

 

Vote positif 0 Vote négatif