Tester les 3 premières lettres

Résolu/Fermé
duduleray - 16 févr. 2012 à 18:25
 duduleray - 17 févr. 2012 à 15:07
Bonjour a tous, forum



Voila j'ai en colonne (A) une liste de mot et chiffres comprenant aussi des espaces
disposer de cette façon et couvrant la zone (A2:A32)

Matin Soir 2012

Journée Matin 2012

Matin Après Midi 2012

Matin Soir 2012

ect etc

Je souhaiterai svp un petit code VBA pour tester les 3 premières lettres (Mat) pour coloriser les cellules en face en jaune, ceci afin de repérage plus facile

SVP pas de MFD merci

Exemple: si A2 ="Mat" then on colore zone A2:A6

et ainsi de suite chaque fois qu'une cellule de la colonne comporte "Mat"

Merci a vous et de votre temps

Bonne soirée a tous

Duduleray
A voir également:

1 réponse

f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
16 févr. 2012 à 19:48
Bonjour,

Dans votre exemple toutes les cellules contiennent "Mat", est ce normal ????
0
Salut

Effectivement en fait il faut tester juste le début de la phrase c'est a dire uniquement les trois premières lettres

Merci de la réponse
je vous souhaite une bonne soirée

Raymond
0
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
17 févr. 2012 à 08:43
Bonjour,
Je souhaiterai svp un petit code VBA pour tester les 3 premières lettres (Mat) pour coloriser les cellules en face en jaune, ceci afin de repérage plus facile

cellules en face en jaune, et Exemple: si A2 ="Mat" then on colore zone A2:A6

Pas la meme chose

A+
0
Salut

Décidément je ne fait que des co.....

excuse moi on va mettre ça sur le manque de soleil (LOL)

Donc >>> cellules en face en jaune, Exemple:

si dans la colonne a partir de (A2) on trouve ="Mat" then on colore la ligne correspondante
zone A:E

Merçi de ta réponse, bonne journée

A plus tard
0
f894009 Messages postés 17200 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 11 septembre 2024 1 708
17 févr. 2012 à 09:52
Re,

ouvrir VBA
ouvir page code de la feuille par double click
code a copier

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A32")) Is Nothing Then
Set Col_C = Range("A2:A32")
For Each Cellule In Col_C
If Left(Cellule, 3) = "Mat" Then
Range(Cells(Cellule.Row, 2), Cells(Cellule.Row, 5)).Interior.Color = 65535
Else
Range(Cells(Cellule.Row, 2), Cells(Cellule.Row, 5)).Interior.Pattern = xlNone
End If
Next Cellule
End If
End Sub

Cela devrait aller

Bonne suite
0
Salut f894009

Merci de ta réponse et pour le code

ça fonctionne très bien comme je le souhaitai

je te remercie pour ton aide et ton savoir

Un bon W-end

Cordialement Raymond
0