Tester les 3 premières lettres

Résolu

duduleray -
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

Afficher la suite

A voir également:

Formule excel 3 premières lettres du 2eme mot
Formule moyenne excel plusieurs colonnes - Guide
Formule addition excel - Guide
Formule excel si ou - Guide
Mise en forme conditionnelle excel formule - Guide
Ai suite 3 - Télécharger - Optimisation

1 réponse

Réponse 1 / 1
f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717

Bonjour,

Dans votre exemple toutes les cellules contiennent "Mat", est ce normal ????
0
1. duduleray
  
  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
2. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  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
3. duduleray
  
  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
4. f894009 Messages postés 17417 Date d'inscription Statut Membre Dernière intervention 1 717
  
  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
5. duduleray
  
  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

Tester les 3 premières lettres

1 réponse

Discussions similaires

Newsletters