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

Microsoft 365 Changer une partie du texte d'une cellule en modifiant : police/taille police/couleur

Usine à gaz

XLDnaute Barbatruc
Bonjour à touts et à toutes,
Je vous souhaite une belle journée

Je bute sur un nouveau souci et je n'y arrive pas !
Dans le fil : https://www.excel-downloads.com/thr...s-changer-les-couleurs-mises-en-forme.174214/

Notre excellent Mapomme a traité "changer une partie du texte" contenu dans une cellule ou plusieurs cellules.

J'ai besoin d'aller plus loin :
Je voudrais pouvoir changer également pour une partie du texte :
- La police,
- La taille de la police,
- La couleur de la police,
Est-ce possible ?

Auriez-vous le bon code ?
Je joins le fichier du fil de Mapomme,
Avec mes remerciements,
Amicalement,
lionel,
 

Pièces jointes

  • Partie Cellule v01.xlsm
    20.2 KB · Affichages: 7
Dernière édition:

Dudu2

XLDnaute Barbatruc
Bonjour Lionel,
Un bout de code extrait comme exemple qui masque le 1er caractère.
Après tu adaptes avec Font.Size et autre propriétés que tu veux modifier à l'endroit où il faut.
VB:
    With Cell.Parent.Range(CelluleModèle)
        Cell.Interior.ColorIndex = .Interior.ColorIndex
        Cell.Interior.Color = .Interior.Color
      
        Cell.Characters(Start:=1, Length:=1).Font.ColorIndex = .Interior.ColorIndex
        Cell.Characters(Start:=1, Length:=1).Font.Color = .Interior.Color
          
        Cell.Characters(Start:=2, Length:=Len(Cell.Value) - 1).Font.Color = .Font.Color
        Cell.Characters(Start:=2, Length:=Len(Cell.Value) - 1).Font.ColorIndex = .Font.ColorIndex
    End With
 

Usine à gaz

XLDnaute Barbatruc
Bonjour à toutes et à tous,
Je vous souhaite une belle journée

J'ai beaucoup travaillé sur ce sujet
J'ai fait des test et tentatives multiples ...
Chemin ou recherches faisant, j'ai trouvé un classeur sur le site : http://forum.excel-pratique.com/excel/changer-la-couleur-d-un-mot-dans-une-cellule-t78440.html
Excellent ce classeur et je remercie l'auteur au passage

Je n'ai pas compris tout le code lol
Je n'ai pas compris ce que font les colonnes A - B - D
Mais, en tâtonnant, j'ai modifié le code pour arriver à colorer une chaine (choisie) de caractères.

Pour choisir la chaine de caractères à modifier : il me faut aller dans le code et, par exemple :
Remplacer tous les "valve" et choisir la nombre de caractères à modifier
A part cette contrainte, ça fonctionne très bien, on peut modifier :
la police
la taille de la police,
la couleur,
en gras ou non,

Pour m'éviter de modifier le code à chaque besoin de modification,
je souhaiterai pouvoir affecter et intégrer au code les cellules
dans lesquelles je pourrais renseigner les suivants à modifier :
chaine à modifier................... en I24
nbr caractères à modifier... en I25
Nvlle police.............................. en I27
Nvlle taille police.................. en I28
Nvlle couleur........................... en I29
Gras ou non............................. en I30

Le 1er souci est que je n'arrive pas à modifier le code pour que les contenus des cellules soient pris en compte.
Exemple : code "InStr(p, Range("C" & ln), "valve")" = "InStr(p, Range("C" & ln), ("i24"))"

Le second souci est de mettre les bonnes infos dans les cellules :
Nvlle police.............................. en I27
Nvlle taille police.................. en I28
Nvlle couleur........................... en I29
Gras ou non............................. en I30
J'ai pensé à intégrer l'excellent code de patricktoulon mais je n'ai pas encore réussi à mettre les infos de la sélection de l'UserForm dans les cellules.

Si une bonne âme pouvait m'aider, ça m'arrangerait bien LOL
Je joins le fichier test et je continue à tenter de faire tout ça.
Avec mes remerciements,
Amicalement,
lionel,
 

Pièces jointes

  • classeur2-v1_Forum.xlsm
    43.5 KB · Affichages: 3
Dernière édition:

Usine à gaz

XLDnaute Barbatruc
Bonsoir à toutes et à tous,

J'ai plutôt bien avancé
J'ai réussi à faire fonctionner la première partie du mon classeur test

Me reste la seconde partie
Mettre les bonnes infos dans les cellules :
Nvlle police................................ en I15
Nvlle taille police.................... en I16
Nvlle couleur............................. en I17
Gras ou non............................... en I18
J'ai pensé à intégrer l'excellent code de Patrick mais je n'ai pas encore
réussi à mettre les infos de la sélection de l'UserForm dans les cellules.

Puisque aucune réponse n'est arrivée, j'en déduit que mes ténors préférés ne sont pas intéressés par ma demande.

Pour les autres, je joins le classeur test, j'ai expliqué de mon mieux comment ça marche
Bonne nuit à toutes et à tous,
Amicalement,
lionrl,
 

Pièces jointes

  • classeur2-v1_Forum6.xlsm
    40.8 KB · Affichages: 3
Dernière édition:

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…