Microsoft 365 Mettre en gras uniquement les chiffres

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pat66

XLDnaute Impliqué
Bonjour le forum,

je sais pas si c'est possible, mais je souhaiterai pouvoir mettre en gras uniquement les chiffres contenu dans une forme

ci joint un fichier avec un exemple

merci d'avance pour vos lumières

pa66
 

Pièces jointes

Dernière édition:
Solution
job75
Bonjour pat66,

Le code de la feuille :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim v1$, L1%, v2$, L2%, v3$, L3%, x$, i%, L%
v1 = [C7].Text: L1 = Len(v1)
v2 = [C11].Text: L2 = Len(v2)
v3 = [C9].Value: L3 = Len(v3)
x = "Article en promotion à " & v1 & ", soit " & v2 & " en " & v3 & " mensualité" & IIf(v3 > 1, "s", "")
With Shapes("Rectangle 1").TextFrame
    .Characters.Text = x
    For i = 1 To Len(x)
        L = 0
        If Mid(x, i, L3) = v3 Then L = L3
        If Mid(x, i, L1) = v1 Then L = L1
        If Mid(x, i, L2) = v2 Then L = L2
        If L Then
            With .Characters(i, L).Font
                .Color = vbRed
                .Bold = True
            End With
        End If
    Next i
End With
End Sub
La...
Trier par date Trier par votes
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

T
  • Résolu(e)
XL 2010 Formule - Numéro à 5 chiffres transformé en date
Réponses
2
Affichages
253
Dranreb
Dranreb
S
  • Question Question
Macro associée à un bouton
Réponses
12
Affichages
175
Santino007
S
N
  • Question Question
XL 2019 Mettre en gras éléments du graphique avec macro
Réponses
4
Affichages
704
Nasseuz
N
Phil Du59
  • Résolu(e)
Microsoft 365 Tableau de STATS sur autre feuille
Réponses
8
Affichages
375
AtTheOne
AtTheOne
W
  • Question Question
XL 2016 Publipostage Excel et format sortie
Réponses
5
Affichages
286
mapomme
mapomme
Caninge
  • Résolu(e)
XL 2010 Recherche parties de mots dans une base de données
2
Réponses
25
Affichages
284
Caninge
Caninge
W
  • Question Question
XL 2016 Mise en forme conditionnelle des cellules
Réponses
2
Affichages
275
mapomme
mapomme
Y
  • Question Question
XL 2013 Identifier les éléments "actifs" d'un segment
Réponses
3
Affichages
94
fanch55
fanch55
C
  • Question Question
XL 2021 Mettre en couleur un texte dans listbox
Réponses
9
Affichages
386
ChTi160
ChTi160
fenec
  • Question Question
XL 2021 Enregistrer un fichier selon date valeur cellule
Réponses
4
Affichages
80
fenec
fenec
M
  • Question Question
XL 2021 Modifier texte en gras dans powerpoint depuis excel
Réponses
5
Affichages
336
matlatarte
M
M
  • Résolu(e)
Microsoft 365 Renvoyer valeurs en tête
Réponses
5
Affichages
94
Mathieu18
M
ralph45
  • Question Question
Microsoft 365 [Formules] Détecter si un événement X a eu lieu dans une période Y
Réponses
3
Affichages
72
ralph45
ralph45
J
  • Résolu(e)
XL 2016 Appliquer une pondération à un indice
Réponses
4
Affichages
149
Juwd
J
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
87
Pepepichnette69
P
dindin
  • Question Question
XL 2016 Autofit de plusieurs cellules fusionnées via vba
Réponses
7
Affichages
490
job75
job75
B
  • Résolu(e)
XL 2021 Mettre la date à jour reprise
Réponses
12
Affichages
246
bobafric
B
Frederic14
  • Question Question
XL 2019 Tirage au sort avec nombre variable
Réponses
14
Affichages
606
Frederic14
Frederic14
R
  • Résolu(e)
XL 2019 Comment extraire séparément plusieures chaines de caractères ou chiffres/nombres depuis une cellule avec libellé complexe alpha numérique
2
Réponses
28
Affichages
1 K
Renardy
R
M
  • Question Question
Microsoft 365 Calcul du nombre de chiffres dans une cellule. Mise en page d'un fichier.
Réponses
2
Affichages
359
MCOTTEND
M
Retour