Bonjour
J'ai dans une cellule un formule qui me donne un résultat avec du texte
Ex : "A ce jour 30 analyses réalisées",
je souhaite avoir dans la cellule le chiffre en couleur rouge et le texte en
bleu
afin de faire ressortir les chiffres
Je vous remercie
Didier
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rai
Bonjour J'ai dans une cellule un formule qui me donne un résultat avec du texte Ex : "A ce jour 30 analyses réalisées", je souhaite avoir dans la cellule le chiffre en couleur rouge et le texte en bleu afin de faire ressortir les chiffres Je vous remercie Didier
Bonjour,
Une piste de solution : Sub numcouleur() For Each c In Selection For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 End If Next i Next c End Sub
Il suffit de sélectionner la zone concernée et de lancer la macro
Tu peux aussi l'affecter à l'évennement Private Sub Worksheet_Change : Private Sub Worksheet_Change(ByVal Target As Range) For i = 1 To Len(Target) If IsNumeric(Mid(Target, i, 1)) Then Target.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 End If Next i End Sub
Bonne continuation
Rai
Bonjour
J'ai dans une cellule un formule qui me donne un résultat avec du texte
Ex : "A ce jour 30 analyses réalisées",
je souhaite avoir dans la cellule le chiffre en couleur rouge et le texte en
bleu
afin de faire ressortir les chiffres
Je vous remercie
Didier
Bonjour,
Une piste de solution :
Sub numcouleur()
For Each c In Selection
For i = 1 To Len(c)
If IsNumeric(Mid(c, i, 1)) Then
c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
End If
Next i
Next c
End Sub
Il suffit de sélectionner la zone concernée et de lancer la macro
Tu peux aussi l'affecter à l'évennement Private Sub Worksheet_Change :
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To Len(Target)
If IsNumeric(Mid(Target, i, 1)) Then
Target.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
End If
Next i
End Sub
Bonjour J'ai dans une cellule un formule qui me donne un résultat avec du texte Ex : "A ce jour 30 analyses réalisées", je souhaite avoir dans la cellule le chiffre en couleur rouge et le texte en bleu afin de faire ressortir les chiffres Je vous remercie Didier
Bonjour,
Une piste de solution : Sub numcouleur() For Each c In Selection For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 End If Next i Next c End Sub
Il suffit de sélectionner la zone concernée et de lancer la macro
Tu peux aussi l'affecter à l'évennement Private Sub Worksheet_Change : Private Sub Worksheet_Change(ByVal Target As Range) For i = 1 To Len(Target) If IsNumeric(Mid(Target, i, 1)) Then Target.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 End If Next i End Sub
Bonne continuation
Rai
Didier Novarin
Bonjour Raimond C'est parfait, je te remercie beaucoup ! Très bonne journée Didier
"Rai" <raimondpointschmidtatberlinpointde> a écrit dans le message de news: 44953a24$0$856$
Bonjour J'ai dans une cellule un formule qui me donne un résultat avec du texte Ex : "A ce jour 30 analyses réalisées", je souhaite avoir dans la cellule le chiffre en couleur rouge et le texte en bleu afin de faire ressortir les chiffres Je vous remercie Didier Bonjour,
Une piste de solution : Sub numcouleur() For Each c In Selection For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 End If Next i Next c End Sub
Il suffit de sélectionner la zone concernée et de lancer la macro
Tu peux aussi l'affecter à l'évennement Private Sub Worksheet_Change : Private Sub Worksheet_Change(ByVal Target As Range) For i = 1 To Len(Target) If IsNumeric(Mid(Target, i, 1)) Then Target.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 End If Next i End Sub
Bonne continuation
Rai
Bonjour Raimond
C'est parfait, je te remercie beaucoup !
Très bonne journée
Didier
"Rai" <raimondpointschmidtatberlinpointde> a écrit dans le message de news:
44953a24$0$856$ba4acef3@news.orange.fr...
Bonjour
J'ai dans une cellule un formule qui me donne un résultat avec du texte
Ex : "A ce jour 30 analyses réalisées",
je souhaite avoir dans la cellule le chiffre en couleur rouge et le texte
en bleu
afin de faire ressortir les chiffres
Je vous remercie
Didier
Bonjour,
Une piste de solution :
Sub numcouleur()
For Each c In Selection
For i = 1 To Len(c)
If IsNumeric(Mid(c, i, 1)) Then
c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
End If
Next i
Next c
End Sub
Il suffit de sélectionner la zone concernée et de lancer la macro
Tu peux aussi l'affecter à l'évennement Private Sub Worksheet_Change :
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To Len(Target)
If IsNumeric(Mid(Target, i, 1)) Then
Target.Characters(Start:=i, Length:=1).Font.ColorIndex = 5
End If
Next i
End Sub
Bonjour Raimond C'est parfait, je te remercie beaucoup ! Très bonne journée Didier
"Rai" <raimondpointschmidtatberlinpointde> a écrit dans le message de news: 44953a24$0$856$
Bonjour J'ai dans une cellule un formule qui me donne un résultat avec du texte Ex : "A ce jour 30 analyses réalisées", je souhaite avoir dans la cellule le chiffre en couleur rouge et le texte en bleu afin de faire ressortir les chiffres Je vous remercie Didier Bonjour,
Une piste de solution : Sub numcouleur() For Each c In Selection For i = 1 To Len(c) If IsNumeric(Mid(c, i, 1)) Then c.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 End If Next i Next c End Sub
Il suffit de sélectionner la zone concernée et de lancer la macro
Tu peux aussi l'affecter à l'évennement Private Sub Worksheet_Change : Private Sub Worksheet_Change(ByVal Target As Range) For i = 1 To Len(Target) If IsNumeric(Mid(Target, i, 1)) Then Target.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 End If Next i End Sub
