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

XL 2010 Mise en forme de quelques caractères sur formule

Créer une discussion

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
M

max.lander

XLDnaute Occasionnel
Bonjour à tous,


Je souhaite appliquer une mise en forme sur les derniers caractères d'une cellule.
Cela peut paraître simple mais le hic c'est que la cellule contient une formule.


Je pense que l'exemple en PJ parle de lui même.


Si vous avez des idées je suis preneur.

Merci,
 

Pièces jointes

Trier par date Trier par votes
Bonjour max.lander

A ma connaissance, ce n'est pas possible, car c'est une formule !
Seule solution créer une ligne supplémentaire pour inscrire le nombre d'heure entre parenthèse)
 
Vote positif 0 Vote négatif
Bonjour

Un essai avec ce code à placer dans la feuille OP
Au changement de la valeur de la cellule A11, la formule est mise en place en B11:H11
Elle est ensuite copiée en valeur ce qui permet de mettre les caractères entre parenthèses en couleur
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$11" Then
For Each c In Range("B11:H11")
        c.Font.ColorIndex = 1
        c.FormulaArray = _
         "=IFERROR(INDEX(Type,MATCH(1,(Ref=RC1)*(Montage=R10C),0)),"""")"
        c.Value = c.Value
        x = InStr(c, "(")
        y = InStr(c, ")")
            c.Characters(x, y).Font.ColorIndex = 3
    Next c
    End If
End Sub
 
Vote positif 0 Vote négatif
Re

Essaye :
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$11" Then
For Each c In Range("B11:H11")
On Error Resume Next
        c.Font.ColorIndex = 1
        c.FormulaArray = _
         "=IFERROR(INDEX(Type,MATCH(1,(Ref=RC1)*(Montage=R10C),0)),"""")"
        c.Value = c.Value
        x = InStr(c, "(")
        y = InStr(c, ")")
        c.Value = Left(c, x - 2) & Chr(10) & Right(c, Len(c) - x + 1) 
        c.Characters(x, y).Font.ColorIndex = 3
    Next c
    End If
End Sub
 
Vote positif 0 Vote négatif
Chris401 merci infiniment ça marche du tonnerre !

Si ce n'est pas trop abusé, il est possible d'adapter le même code pour 10 lignes ?



Sinon j'essayerai de bidouiller pour arriver au résultat

PS: j'ai essayé avec une boucle sans succès 🙁
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Ma boucle ci-dessous mais c'est pas très propre !





VB: 
Private Sub Worksheet_Change(ByVal Target As Range)

For i = 11 To 21


If Target.Address = "$A$" & i Then
For Each c In Range("B" & i & ":" & "H" & i)
On Error Resume Next
        c.Font.ColorIndex = 1
        c.FormulaArray = _
         "=IFERROR(INDEX(Type,MATCH(1,(Ref=RC1)*(Montage=R10C),0)),"""")"
        c.Value = c.Value
        x = InStr(c, "(")
        y = InStr(c, ")")
        c.Value = Left(c, x - 2) & Chr(10) & Right(c, Len(c) - x + 1)
        c.Characters(x, y).Font.ColorIndex = 3
    Next c
    End If
   
   
    Next i

Si il y a mieux je prends !
 
Vote positif 0 Vote négatif
Bonjour

Si tes Ref en colonne A sont déjà en place, il vaudrait mieux peut-être que la macro se déclenche au changement de date en B10
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$10" Then
For Each c In Range("B11:H20")
On Error Resume Next
        c.Font.ColorIndex = 1
        c.FormulaArray = _
         "=IFERROR(INDEX(Type,MATCH(1,(Ref=RC1)*(Montage=R10C),0)),"""")"
        c.Value = c.Value
        x = InStr(c, "(")
        y = InStr(c, ")")
        c.Value = Left(c, x - 2) & Chr(10) & Right(c, Len(c) - x + 1)
        c.Characters(x, y).Font.ColorIndex = 3
    Next c
    End If
End Sub
Autrement, en restant sur la modification de la Ref
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A11:A20")) Is Nothing And Target.Count = 1 Then
lg = Target.Row
For Each c In Range("B" & lg & ":H" & lg)
On Error Resume Next
        c.Font.ColorIndex = 1
        c.FormulaArray = _
         "=IFERROR(INDEX(Type,MATCH(1,(Ref=RC1)*(Montage=R10C),0)),"""")"
        c.Value = c.Value
        x = InStr(c, "(")
        y = InStr(c, ")")
        c.Value = Left(c, x - 2) & Chr(10) & Right(c, Len(c) - x + 1)
        c.Characters(x, y).Font.ColorIndex = 3
    Next c
    End If
End Sub
 
Vote positif 0 Vote négatif
Bonjour,

Je me permets de revenir pour encore un petit d'aide, car je rencontre un petit bug :
Je me rends compte que j'ai des ratés.


En effet 1 fois sur 5, la ligne
VB: 
 c.Value = c.Value
capture un zéro au lieu du bon résultat...
Pourtant le formule retourne le bon résultat (quand cette ligne est désactivée)


Vous avez une idée ?
 
Dernière édition:
Vote positif 0 Vote négatif
Bonjour

Désolé pour le temps de réponse, je n'ai pas pu me connecter avant.
L'idéal serait de récupérer les heures en même temps que les noms dans ton code Load_Opérateurs
mais je ne sais pas le faire

Peux-tu essayer ce fichier ? Je le teste en avant et en arrière et cela semble "tenir"
 

Pièces jointes

Vote positif 0 Vote négatif
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

A
  • Question Question
XL 2019 Mise en forme
Réponses
4
Affichages
131
TooFatBoy
J
  • Question Question
XL 2013 mise en forme conditionnelle contenant plusieurs mots
2
Réponses
16
Affichages
490
jo657
J
C
  • Résolu(e)
XL 2021 Mise en forme conditionnelle
Réponses
2
Affichages
155
chrislecycliste
C
  • Question Question
Microsoft 365 Imbrication
Réponses
2
Affichages
112
Hecatonchire
H
M
  • Question Question
Microsoft 365 Ajout de cas à cocher et mise en forme conditionnelle dans un tableau Excel
Réponses
9
Affichages
270
mimednejma
M
F
  • Question Question
XL 2016 Mise en forme conditionnelle d'une forme (cartographie)
Réponses
9
Affichages
400
francois95
F
G
mise en forme conditionnelles qui se telescopent
Réponses
1
Affichages
105
Cléa
D
  • Résolu(e)
XL 2019 Mise en forme
Réponses
2
Affichages
238
Danyk01
D
Y
  • Question Question
Microsoft 365 Mise en forme conditionnelle en fonction d'une liste déroulante
2
Réponses
16
Affichages
547
YGU1
Y
A
  • Question Question
XL 2019 Mise en forme conditionnelle
Réponses
5
Affichages
470
wDog66
  • Résolu(e)
XL pour MAC Mise en forme d'un TCD
Réponses
9
Affichages
125
pilou010
A
  • Résolu(e)
Microsoft 365 La mise en forme conditionnelle s'applique différemment de la plage que j'ai renseigné
Réponses
3
Affichages
108
Alstroemeria
A
D
  • Question Question
Microsoft 365 mise en forme conditionnelle : choisir la couleur d'une autre cellule
Réponses
11
Affichages
657
deuxnid
D
P
  • Résolu(e)
Microsoft 365 Mise en surbrillance de prix min et max (mise en forme conditionnelle)
Réponses
6
Affichages
180
Pepepichnette69
P
M
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur feuille entière
2
Réponses
24
Affichages
372
sylvanu
L
  • Résolu(e)
XL 2019 mise en forme conditionnelle
Réponses
6
Affichages
151
litchoutsou
L
C
  • Résolu(e)
XL 2016 mise en forme conditionnelle dans tableau
Réponses
3
Affichages
104
Colette29
C
D
  • Question Question
Microsoft 365 Mise en forme d'une formule
Réponses
4
Affichages
283
sylvanu
  • Résolu(e)
XL 2010 Mise en forme d’un graphique spécifique
Réponses
6
Affichages
131
jeanmi
C
  • Question Question
Microsoft 365 Mise en forme conditionnelle sur clic
2
Réponses
22
Affichages
1 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…