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".
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
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??
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**
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 ?
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
@ 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...
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.
VB:
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