Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Mettre en gras uniquement les chiffres

Créer une discussion
  • 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
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
Bonjour,

Avec un bout de code VBA on peut modifier l'aspect visuel d'un texte contenu dans une cellule, à condition qu'il n'y ait pas de formule dans ladite cellule.

Une petite recherche sur le forum te donnera des exemples.
 
Vote positif 0 Vote négatif
Bonjour
voici le code qui répond au besoin
VB: 
Sub ChiffresGras()
    With ActiveSheet.Shapes("Rectangle 1")
        For i = 1 To Len(.TextFrame2.TextRange.Text)
            'MsgBox .TextFrame2.TextRange.Characters(i, 1)
            If IsNumeric(.TextFrame2.TextRange.Characters(i, 1)) Then
                .OLEFormat.Object.Characters(i, 1).Font.Bold = True
            Else
                .OLEFormat.Object.Characters(i, 1).Font.Bold = False
            End If
        Next i
    End With
End Sub
 
Vote positif 0 Vote négatif
Bonjour à tous,

Cette macro dans le code de la feuille :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim x$, y$
x = Format([C7], "0.00 €")
y = "ceci est une promotion "
With Shapes("Rectangle 2").TextFrame
    .Characters.Text = y & x
    With .Characters(Len(y), Len(x) + 1).Font
        .Color = vbRed
        .Bold = True
    End With
End With
End Sub
s'exécute quand on modifie la cellule C7.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour à toutes & à tous,
Bonjour @pat66 et tous les participants !
J'ai souvent l'impression de me répéter en le disant mais "j'arrive un peu tard !"
Je te propose une solution avec le prix un préfixe et un suffixe et des mises en forme du texte variées à alléger ou enrichir.

L'événement change de la feuille :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)

          If Not Intersect(Target, Union([prix], [Préfixe], [Suffixe])) Is Nothing Then ModifAffiche

End Sub

Le code de modification de la forme :
VB: 
Sub ModifAffiche()

     Dim shp As Shape
     LePrix = Trim(Format([prix], "# ###.00 €"))
     Longueur = Len(LePrix)
     Début = Len([Préfixe]) + 2
    
     Set shp = Feuil1.Shapes("Affiche")
     With shp.TextFrame2.TextRange
          .Text = [Préfixe] & " " & LePrix & " " & [Suffixe]
          With .Characters(Début, Longueur).Font
               .Size = 24
               .Bold = msoCTrue
               .Italic = msoCTrue
               .Fill.ForeColor.RGB = RGB(0, 0, 255)
               .UnderlineStyle = msoUnderlineHeavyLine
          End With
     End With
 
 
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re,
Bon, tu recomposes le texte à ta guise, tu peux même ajouter d'autre partie de texte, tu as le principe et tu peux assez facilement l'adapter.
Pour le pourcentage voilà la modif (je suppose qu'après tu vas me demander de rehausser aussi le pourcentage et de mettre un prix barré, mais je te laisse chercher un peu 😉).
VB: 
Sub ModifAffiche()

     Dim shp As Shape
     LePrix = Trim(Format([prix], "# ###.00 €"))
     Longueur = Len(LePrix)
    
     Texte = [Préfixe] & " " & Format([Suffixe], "0%")
     Début = Len(Texte) + 2
    
     Set shp = Feuil1.Shapes("Affiche")
     With shp.TextFrame2.TextRange
          .Text = Texte & " " & LePrix
          With .Characters(Début, Longueur).Font
               .Size = 24
               .Bold = msoCTrue
               .Italic = msoCTrue
               .Fill.ForeColor.RGB = RGB(0, 0, 255)
               .UnderlineStyle = msoUnderlineHeavyLine
          End With
     End With

End Sub

Voir fichier joint
À bientôt
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour le forum,

bonjour le fil,
bonjour crocrocro
bonjour job75
bonjour AtTheOne

Ce n'était pas prévu, mais j'ai du ajouter des valeurs numériques à la macro,

Cela fait 2 jours que je galère, j'ai bien essayer avec les solutions de crocrocro et job75, mais je n'y arrive pas, quelqu'un aurait t'il la gentillesse de corriger mes erreurs.
j'ai mis un exemple de ce que je souhaiterai avoir visuellement

un grand merci d'avance
 

Pièces jointes

Dernière édition:
Vote positif -1 Vote négatif
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 macro se déclenche quand on modifie ou valide une cellule quelconque.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
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

M
  • Résolu(e)
XL 2010 Ressortir uniquement les nombres de la musique d'une course hippique
Réponses
5
Affichages
202
mamarus1
M
W
  • Question Question
XL 2019 Changer la graisse et la taille avant le deuxième retour à la ligne dans une cellule
Réponses
6
Affichages
123
Webperegrino
W
D
  • Résolu(e)
XL 2019 Ponctuation
Réponses
14
Affichages
477
Danyk01
D
P
  • Résolu(e)
Microsoft 365 Une forme change de couleurs à chaque clic (3 couleurs)
Réponses
5
Affichages
169
vgendron
  • Résolu(e)
XL 2021 Problème de format qui met en erreur une formule SOMMEPROD
Réponses
2
Affichages
64
Phoenix23
  • Résolu(e)
XL 2016 Macros Généralités
Réponses
4
Affichages
110
sylvanu
  • Résolu(e)
Microsoft 365 Extraire les données d'une ligne d'un tableau dynamique piloté par un segment
Réponses
2
Affichages
136
ralph45
O
  • Question Question
Microsoft 365 mis a jour d'un onglet a un autre dans excel
Réponses
4
Affichages
140
Olivier60
O
T
  • Résolu(e)
XL 2010 Formule - Numéro à 5 chiffres transformé en date
Réponses
2
Affichages
312
Dranreb
S
  • Question Question
Macro associée à un bouton
Réponses
12
Affichages
346
Santino007
S
C
  • Question Question
XL 2021 Mettre en couleur cellule avec une mêmes informations
Réponses
3
Affichages
115
Ckyara31
C
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
145
Electron24
N
  • Question Question
XL 2019 Mettre en gras éléments du graphique avec macro
Réponses
4
Affichages
768
Nasseuz
N
P
  • Question Question
XL 2010 Besoin d aide pour mettre en évidence un résultat
Réponses
1
Affichages
351
Piment
P
  • Résolu(e)
Microsoft 365 Tableau de STATS sur autre feuille
Réponses
8
Affichages
437
AtTheOne
N
  • Résolu(e)
XL 2021 liste déroulante en cascade
Réponses
11
Affichages
393
natadom
N
  • Question Question
Microsoft 365 MFC dans tableau
Réponses
2
Affichages
224
pompaero
P
  • Question Question
Microsoft 365 Mettre en surbrillance les trois cellules avec les plus grandes valeurs
Réponses
4
Affichages
155
Perceval973
P
W
  • Question Question
XL 2016 Publipostage Excel et format sortie
Réponses
5
Affichages
338
mapomme
  • Résolu(e)
XL 2010 Recherche parties de mots dans une base de données
2
Réponses
25
Affichages
504
Caninge
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…