problème de couleur avec remplacer par

Re : problème de couleur avec remplacer par

Bonjour,

Voici une solution, mais je ne connais pas comment afficher un coeur dans ta cellule, sinon pour le reste... c'est ok

Private Sub Worksheet_Change(ByVal Target As Range)
premiere = Left(Target.Value, 1)
deuxieme = Right(Target.Value, 1)
If deuxieme = "C" Or deuxieme = "c" Then
deuxieme = "Coeur" 'à la place de coeur, tu mets le symbole du coeur
Application.EnableEvents = False
Target.Value = premiere & deuxieme
Application.EnableEvents = True
With Target.Characters(Start:=2, Length:=Len(Target.Value) - 1).Font
.Color = 255
End With
End If
End Sub

Bien à toi.

John

Re : problème de couleur avec remplacer par

merci de ta réponse
mais je voulais simplement le faire sans code juste ctrl + h dans Excel

et la mon 2C devient 2Coeur il change toute la chaîne de la zone en rouge !

Re : problème de couleur avec remplacer par

Re,

Sans code là je sais pas t'aider 🙁
Désolé...
Il y a sûrement des experts ici sans code, mais pas mon cas 🙁

BàT.

John

Re : problème de couleur avec remplacer par

Bonjour à tous,

une autre approche... mais aussi en vba.... remplace tous les C saisie dans la cellule par des coeurs rouges...


bonne journée
@+

Re : problème de couleur avec remplacer par

merci

j'ai une question (de débutant en macro) j'essaye d’exécuter ton code
je clique sur macro
je rentre le nom de ma macro 'essai'

je remplace sub essai et endsub
par ton code

je ferme vb macro, et quand je clique de nouveau sur macro il y a plus rien !!

Why merci

Re : problème de couleur avec remplacer par

Re,

c'est une procédure événementielle, il faut la placer dans le module de la feuille, click droit sur l'onglet => visualiser le code => tu colles.... elles se déclenche automatiquement dès l'instant ou il y a modification d'une cellule....

bon après midi
@+

Re : problème de couleur avec remplacer par

merci ça marche

j'ai plus qu'a ajouter les tréflés,carreau et pique et j'aurai ce que je veux

merci pour vos reponces

Re : problème de couleur avec remplacer par

Merci çà marche super bien voici mon code
j ai encore une requête (je sais j 'abuse)
est t il possible de faire le remplacement sur !C par un cœur
cela évitera de changer des les mots avec un c majuscule


merci




Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Byte
If Target.Count > 1 Then Exit Sub
i = InStr(Target, "C")
Do While i > 0
On Error GoTo fin
Application.EnableEvents = False
With Target.Characters(i, 1)
.Text = Chr(169)
With .Font
.Name = "Symbol"
.ColorIndex = 3
End With
End With
i = InStr(Target, "C")
Loop

i = InStr(Target, "T")
Do While i > 0
On Error GoTo fin
Application.EnableEvents = False
With Target.Characters(i, 1)
.Text = Chr(167)
With .Font
.Name = "Symbol"
.ColorIndex = 1
End With
End With
i = InStr(Target, "T")
Loop

i = InStr(Target, "K")
Do While i > 0
On Error GoTo fin
Application.EnableEvents = False
With Target.Characters(i, 1)
.Text = Chr(168)
With .Font
.Name = "Symbol"
.ColorIndex = 3
End With
End With
i = InStr(Target, "K")
Loop

i = InStr(Target, "P")
Do While i > 0
On Error GoTo fin
Application.EnableEvents = False
With Target.Characters(i, 1)
.Text = Chr(170)
With .Font
.Name = "Symbol"
.ColorIndex = 1
End With
End With
i = InStr(Target, "P")
Loop

fin:
Application.EnableEvents = True
End Sub

Re : problème de couleur avec remplacer par

Re,

est t il possible de faire le remplacement sur !C par un cœur

Cliquez pour agrandir...

modifie comme suit :

Re : problème de couleur avec remplacer par

ça marche merci