si texte comment par * alors font rouge

[evelynetfrancois]

bonjour a toutes et tous !!
voici mon soucis

quelle macro permettrais de reconnaitre une ' * '
en debut de mot
pour faire passer ce mot en color rouge

maison = font noir
*maison =font rouge

j espere etre clair
merci d avance pour vos sujetions
bonne journée a tous
E et F

 

[toubib]

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

 

[adebrux]

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:

 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

 

[adebrux]

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:

 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

 

[evelynetfrancois]

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

 

[laM]

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

 

[evelyne tfrancois]

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