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:

Formule excel 2 premières lettres du 2eme mot
Formule excel pour additionner plusieurs cellules - Guide
Formule excel si et - Guide
Formule excel moyenne - Guide
Formule excel - Guide
Excel mise en forme conditionnelle formule - Guide

1 réponse

Réponse 1 / 1

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
16 févr. 2012 à 19:48

Bonjour,

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

duduleray
16 févr. 2012 à 19:59

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

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
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+

duduleray
Modifié par duduleray le 17/02/2012 à 09:20

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

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 710
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

duduleray
Modifié par duduleray le 17/02/2012 à 15:08

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

Discussions similaires

Mot de passe administrateur Freebox : où le trouver ?

Formule Excel : "SI" une cellule contient un mot, alors ?

Formule Excel pour afficher les mois (chiffres) en lettre