XL 2010 Colorer un texte issu d'une formule

[eastwick]

Bonjour à toutes et tous,

Comment, dans le fichier joint, colorer "Exercice 2017" en rouge et le mettre en gras ?
Cela pourrait tout aussi bien être 2016 ou 2018.
Pas évident quand le texte est le fruit d'une formule "Concatener".

Un grand merci.

 

[CISCO]

Bonjour

Et en faisant avec deux cellules séparées ?

@ plus

 

[eastwick]

Bonjour,
non car exercice doit être également en rouge

 

[Jacky67]

Bonjour,
Ce classeur est pour le moins bizarre...
Code qui ne fonctionne pas, Des modules vides, des selects par dizaine etc...
Ceci
../Comment, dans le fichier joint, colorer "Exercice 2017" en rouge et le mettre en gras ?
Avec une liste de validation en B13 et un peu de VBA dans le module de la feuille

 

[Lone-wolf]

Bonjour tout le monde

jacky, j'adore ce genre de code

Sub raz()
    Range("A28:F53").Select
    Selection.ClearContents
    Range("B28").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B29").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B30").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B31").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B32").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B33").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B34").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B35").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("C28:D28").Select
End Sub

Mais comme je l'ai déjà dit sur d'autre fils, je préfère les Marlboro aux Select . C'est dommage que Microsoft n'as pas mis cette option sur Excel; ça m'éviterais d'aller ou kiosque acheter les sigarettes. Tu te rend compte?! Un distributeur dans Excel??

 

[Jacky67]

Bonjour tout le monde

jacky, j'adore ce genre de code

Sub raz()
    Range("A28:F53").Select
    Selection.ClearContents
    Range("B28").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B29").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B30").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B31").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B32").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B33").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B34").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("B35").Select
    ActiveCell.FormulaR1C1 = "Bordereau n°"
    Range("C28:D28").Select
End Sub

Mais comme je l'ai déjà dit sur d'autre fils, je préfère les Marlboro aux Select . C'est dommage que Microsoft n'as pas mis cette option sur Excel; ça m'éviterais d'aller ou kiosque acheter les sigarettes. Tu te rend compte?! Un distributeur dans Excel??

Hello Lone-wolf
Ne soyons pas trop critique
C'est le résultat de l'enregistreur de macro
Nous sommes là pour rediriger si le demandeur le souhaite
**Ce n'est pas bien de fumer**

JJ (Eternel débutant)

 

[Lone-wolf]

Re Jacky

Oui je le sais bien. Pour les deux propos

 

[ERIC S]

Bonjour

pourquoi utiliser concaténer ?

="Objet : Transmission de bordereaux de mandatement - Exercice " & RECHERCHEV(A1;base2;2;FAUX)

sinon tu mets

="Exercice " & RECHERCHEV(A1;base2;2;FAUX)

en G26 rouge gras et tu ne laisses que

="Objet : Transmission de bordereaux de mandatement - "

en A26

 

[CISCO]

Bonsoir à tous

Bonjour,
non car exercice doit être également en rouge

S'il n'y a que ça pour ton bonheur... Regardes le format personnalisé de la cellule F26, ou fais avec les propositions de mes camarades... Pourquoi faire simple quand on peut faire compliquer ?

@ plus

 

[eastwick]

Merci à tout le monde

 

[Lone-wolf]

Bonjour tout le monde

@ CISCO : d'où vient [Rouge] dans le format??

Sinon un autre exemple

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.FormulaLocal = "=""Exercice "" & RECHERCHEV(A1;base2;2;FAUX)"
With ActiveCell
.Value = .Value
.Font.Color = vbRed
.Columns.AutoFit
End With
Cancel = True
End Sub

 

[CISCO]

Bonjour à tous

Bonjour tout le monde

@ CISCO : d'où vient [Rouge] dans le format??

@ Lone-wolf : C'est moi qui l'ai écrit , mais cela ne fonctionne, à ma connaissance, qu'avec des nombres. Par conséquent, je ne pouvais pas faire avec "Exercice "&RECHERCHEV(......). Et j'ai contourné cette difficulté avec le format personnalisé [Rouge]"Exercice "####. Bien sûr, on pouvait aussi faire directement dans la fenêtre format en utilisant une police rouge dans cette cellule. Il y a le choix, police rouge, format personnalisé ou macro...

@ plus

 

[Lone-wolf]

Re

J'ai essaié, mais ça ne marche pas. Et je suis étonné que l'on as pas trouvez ceci, mais moi si

EDIT: Je viens de comprendre pourquoi (enfin je crois); c'est que dans la cellule j'avais noté exercice 2017, au lieu de 2017 seulement.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
ActiveCell.FormulaLocal = "=""Objet : Transmission de bordereaux de mandatement - Exercice "" & RECHERCHEV(A1;base2;2;FAUX)"
chaine = ActiveCell.Formula
ActiveCell.Value = ActiveCell.Value
With ActiveCell.Characters(Start:=52, Length:=Len(chaine))
.Font.Color = vbRed
End With
Cancel = True
End Sub