Faire ressortir une partie du texte en rouge

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel
Le #4393031
Bonjour.
Je ne pense pas que ce soit possible.
Cordialement.
Daniel
"Didier NOVARIN" 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



Corto
Le #4392981
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




Didier NOVARIN
Le #4392931
Bonjour Daniel
Merci beaucoup
Bonne journée
Didier

"Daniel"
Bonjour.
Je ne pense pas que ce soit possible.
Cordialement.
Daniel
"Didier NOVARIN" 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







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

"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




Publicité
Poster une réponse
Anonyme