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
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
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
Bonjour.
Je ne pense pas que ce soit possible.
Cordialement.
Daniel
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: u8epjWHfHHA.1388@TK2MSFTNGP05.phx.gbl...
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
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
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
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
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
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
Bonjour Daniel
Merci beaucoup
Bonne journée
Didier
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
OWdXEBOfHHA.1312@TK2MSFTNGP06.phx.gbl...
Bonjour.
Je ne pense pas que ce soit possible.
Cordialement.
Daniel
"Didier NOVARIN" <didier.n@club-internet.fr> a écrit dans le message de
news: u8epjWHfHHA.1388@TK2MSFTNGP05.phx.gbl...
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
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
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
Bonjour Corto
Merci beaucoup, mais il s'agit d'un label sur un userform
Bonne journée
Didier
"Corto" <fcdirckx@hotmail.com> a écrit dans le message de news:
ehsyWMOfHHA.4064@TK2MSFTNGP03.phx.gbl...
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
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