Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro si 1er caractère est "r" ou "f"

  • Initiateur de la discussion Initiateur de la discussion kwakos
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

kwakos

XLDnaute Occasionnel
Bonjour à tous,

Voilà, je cherche un moyen d'appliquer un changement de couleur en fonction de la première lettre de ma cellule
Voici ce que j'ai tappé mais ça ne fonctionne pas :

If Target.Left(1).Value = "R" Then
Target.Interior.ColorIndex = 6
End If
If Target.Left(1).Value = "F" Then
Target.Interior.ColorIndex = 5
End If

Le problème c'est que ca me colore même les cellules qui ne commencent pas par un "R" ou un "C"...

Où ai-je failli ???


Merci à tous !
 
Re : Macro si 1er caractère est "r" ou "f"

Salut kwakos, le Forum

teste ça

Code:
If Left(Target, 1) = "R" Then
a la place de

Code:
If Target.Left(1).Value = "R" Then
fait de même pour les autres cas
Bonne Journée
 
Re : Macro si 1er caractère est "r" ou "f"

Bonjour Kwakos, Dull, Pierrot93

S'il s'agit de trouver la caractère r, il faut écrire
Code:
[COLOR="DarkSlateGray"][B]If Target.Value Like "[COLOR="Red"]r[/COLOR]*" Then[/B][/COLOR]
S'il s'agit de trouver la caractère R, il faut écrire
Code:
[COLOR="DarkSlateGray"][B]If Target.Value Like "[COLOR="Red"]R[/COLOR]*" Then[/B][/COLOR]
S'il s'agit de trouver indifféremment le caractère r ou R, il faut écrire
Code:
[COLOR="DarkSlateGray"][B]If [COLOR="Red"]LCase([/COLOR]Target.Value[COLOR="Red"])[/COLOR] Like "[COLOR="Red"]r[/COLOR]*" Then[/B][/COLOR]
ou
Code:
[COLOR="DarkSlateGray"][B]If [COLOR="Red"]UCase([/COLOR]Target.Value[COLOR="Red"])[/COLOR] Like "[COLOR="Red"]R[/COLOR]*" Then[/B][/COLOR]
ROGER2327
#3331
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
10
Affichages
1 K
Réponses
7
Affichages
1 K
G
Réponses
7
Affichages
1 K
gfgghbhg
G
S
Réponses
7
Affichages
2 K
syriak
S
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…