Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Faire ressortir une partie du texte en rouge

Faire ressortir une partie du texte en rouge

4 réponses
Avatar
Didier NOVARIN
Bonsoir,
Grâce à Daniel j'ai une procédure bien astucieuse.
Je souhaite faire ressortir en rouge le chiffre alors que le reste de la
phrase est en bleu
Merci beaucoup
Didier

If Date - CDate(Me.TextDeb.Value) > 1 Then
Label161.Visible = True
Me.Label161.Caption = "le dossier" & Chr(10) & _
"est en cours" & Chr(10) & "depuis " & Date - CDate(Me.TextDeb.Value) & "
jours"
End If
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Daniel
Bonjour.
Je ne pense pas que ce soit possible.
Cordialement.
Daniel
"Didier NOVARIN" a écrit dans le message de
news:
Bonsoir,
Grâce à Daniel j'ai une procédure bien astucieuse.
Je souhaite faire ressortir en rouge le chiffre alors que le reste de la
phrase est en bleu
Merci beaucoup
Didier

If Date - CDate(Me.TextDeb.Value) > 1 Then
Label161.Visible = True
Me.Label161.Caption = "le dossier" & Chr(10) & _
"est en cours" & Chr(10) & "depuis " & Date - CDate(Me.TextDeb.Value) & "
jours"
End If



Avatar
Corto
Bonjour voici une procédure qui colorie en rouge tous les chiffres dans
la cellule active :

For COMPTEUR = 1 To Len(ActiveCell)
If ActiveCell.Characters(Start:=COMPTEUR, Length:=1).Text _
Like "[0-9]" Then
ActiveCell.Characters(Start:=COMPTEUR, _
Length:=1).Font.ColorIndex = 3
End If
Next

Corto

Bonsoir,
Grâce à Daniel j'ai une procédure bien astucieuse.
Je souhaite faire ressortir en rouge le chiffre alors que le reste de la
phrase est en bleu
Merci beaucoup
Didier

If Date - CDate(Me.TextDeb.Value) > 1 Then
Label161.Visible = True
Me.Label161.Caption = "le dossier" & Chr(10) & _
"est en cours" & Chr(10) & "depuis " & Date - CDate(Me.TextDeb.Value) & "
jours"
End If




Avatar
Didier NOVARIN
Bonjour Daniel
Merci beaucoup
Bonne journée
Didier

"Daniel" a écrit dans le message de news:

Bonjour.
Je ne pense pas que ce soit possible.
Cordialement.
Daniel
"Didier NOVARIN" a écrit dans le message de
news:
Bonsoir,
Grâce à Daniel j'ai une procédure bien astucieuse.
Je souhaite faire ressortir en rouge le chiffre alors que le reste de la
phrase est en bleu
Merci beaucoup
Didier

If Date - CDate(Me.TextDeb.Value) > 1 Then
Label161.Visible = True
Me.Label161.Caption = "le dossier" & Chr(10) & _
"est en cours" & Chr(10) & "depuis " & Date - CDate(Me.TextDeb.Value) & "
jours"
End If







Avatar
Didier NOVARIN
Bonjour Corto
Merci beaucoup, mais il s'agit d'un label sur un userform
Bonne journée
Didier

"Corto" a écrit dans le message de news:

Bonjour voici une procédure qui colorie en rouge tous les chiffres dans la
cellule active :

For COMPTEUR = 1 To Len(ActiveCell)
If ActiveCell.Characters(Start:=COMPTEUR, Length:=1).Text _
Like "[0-9]" Then
ActiveCell.Characters(Start:=COMPTEUR, _
Length:=1).Font.ColorIndex = 3
End If
Next

Corto

Bonsoir,
Grâce à Daniel j'ai une procédure bien astucieuse.
Je souhaite faire ressortir en rouge le chiffre alors que le reste de la
phrase est en bleu
Merci beaucoup
Didier

If Date - CDate(Me.TextDeb.Value) > 1 Then
Label161.Visible = True
Me.Label161.Caption = "le dossier" & Chr(10) & _
"est en cours" & Chr(10) & "depuis " & Date - CDate(Me.TextDeb.Value) & "
jours"
End If