XL 2019 modifier format police mot seul dans plusieurs cellules EXCEL

MANTE

XLDnaute Junior
Supporter XLD
Bonjour, sur EXCEL 2019 (WINDOWS 10) je veux modifier le format de police de mots seulement dans plusieurs cellules chaque fois que celui-ci apparaît comme ça se fait facilement sur WORD. Par exemple mettre seulement le mot « liberté» en gras vert chaque fois qu’il apparaît dans une cellule d'une feuille EXCEL, (et non mettre le texte de la cellule tout entier en gras vert comme me le fait EXCEL).
J’ai fouillé dans les forums, trouvé cette macro que j’ai adaptée ci-dessous. Ça marche bien une fois, j’obtiens ce que je veux, tous mes « liberté » sont en gras vert, mais impossible d’enregistrer le fichier EXCEL sous xlsm prenant en charge les macros. J’ai un tas de refus. Dommage parce que cette macro me rends de gros services.
Je suis toujours aussi nul en VBA, alors si vous pouvez me modifier cette macro pour que je puisse enregistrer normalement sous xlsm …. Merci.



Sub libertéVert()

Dim Plage As Range, Cel As Range
Dim LeMot As String, AdrDeb As String

' --------------------------------------------
'A adapter en fonction du mot voulu Et de la Plage voulue
Set Plage = Sheets("Feuil1").Range("A1:Z2000")
LeMot = "liberté"
' --------------------------------------------

With Plage
Set Cel = .Find(LeMot, LookAt:=xlPart)
If Not Cel Is Nothing Then
AdrDeb = Cel.Address
Do
Modif Cel, LeMot
Set Cel = .FindNext(Cel)
Loop While Not Cel Is Nothing And AdrDeb <> Cel.Address
End If
End With
End Sub

Private Sub Modif(ByRef Cel As Range, LeMot)
Dim T As String
Dim Pos As Integer
T = Cel.Text
Do
'Respecte la casse Majuscule/Minuscule -------
‘Pos = InStr(Pos + 1, T, LeMot)
' Ne tient pas compte des Majuscule/Minuscule-
Pos = InStr(Pos + 1, T, LeMot, vbTextCompare)
' --------------------------------------------
If Pos > 0 Then
With Cel.Characters(Start:=Pos, Length:=Len(LeMot)).Font
.FontStyle = "Gras"
.ColorIndex = 4 'VERT
End With
End If
Loop Until Pos = 0
End Sub
 

Pièces jointes

  • TO INT Compilation Synthèse2009201838.xlsm
    907.2 KB · Affichages: 9
Solution
Bonjour Patrick, MANTE,
Image 1.jpg

Franchement, c'est formidable !!!!!!! MAIS :

1) N'oublie pas que le fichier joint par MANTE n'est probablement pas son fichier réel ;
dans son fichier réel, il y sûrement beaucoup moins de cellules vides ; et même, si ça
se trouve, toutes les cellules sont « occupées » (ou ça arrivera dans un temps proche) ;
quel sera alors le temps d'exécution de ta macro ?

2) Si le fichier joint est le fichier réel, ou très similaire en taux d'occupation des cellules,
alors là oui, ta macro est vraiment très intéressante !!! mais à supposer que les cellules
seront toutes remplies (à plus ou moins long terme), que se passera-t-il ? est-ce que
le temps...

soan

XLDnaute Barbatruc
Si c'est juste pour la recherche de cells, c'est tout à fait normal
que ça soit bien plus rapide que ma macro ! :p

C'est la mise en gras et en couleur du texte des mots trouvés
dans les cellules qui prends du temps !

Ben dans un sens, ça me rassure, puisque ma macro utilise
la méthode des tableaux : ça veut dire que mon temps de
5,04 mn pour 11 mots est quand même correct ! :)

soan
 

soan

XLDnaute Barbatruc
réponse à ton post #33

Tu as écrit : « je l'ai laissé plus de 20 minutes » ; MANTE m'a dit la même chose,
puis il a compris qu'il avait oublié de cliquer sur le bouton OK ; peut-être que
toi aussi tu as oublié la même chose ?

J'ai Windows 7 et Excel 2007 ; RAM 8 Go ; Intel Core i5-3450 à 3.10 GHz.

soan
 

patricktoulon

XLDnaute Barbatruc
et oui 2007 est rapide
bon ben j'ai trouvé en fait ce fichier fait 125kilo et non 986 je l'ai dé compilé avec winrar et j'ai récupérer la feuille et je l'ai recompiler dans un autre fichier avec winrar

et je lui ai mis mon astuce html
lance la sub test et attend
pour l'instant je teste que "liberté"
 

Pièces jointes

  • patosh.xlsm
    125.2 KB · Affichages: 2

patricktoulon

XLDnaute Barbatruc
re
voici mon modèle
12 mots,12 couleurs ,35 secondes
c peut être des chaînes de caractères aussi

PS. J OUBLIAIS!!!
il faut regarder la bar de status tu a les mots qui ont été controlés et formatés qui s'affiche
sinon tu crois que ca fait rien vu que le screenupdating est bloqué
 

Pièces jointes

  • patosh.xlsm
    122.5 KB · Affichages: 7
Dernière édition:

MANTE

XLDnaute Junior
Supporter XLD
Bonjour Soan, tu dis
Je suis content que tu aies apprécié mes vidéos émouvantes ! mais je n'ai pas vu ta
réponse ; sur quelle vidéo YouTube as-tu répondu ?

Ben, je ne sais plus, je ne retrouve plus moi même, je disais que j'avais flashé sur Esther Ofarim (les autres méditerranéennes, si je ne me trompe pas, sont excellentes aussi), pcq le vieux soixante-huitard que je suis a repéré tout suite des titres des Beatles, Eric Clapton et Joan Baez, et bien interprétés).
Au delà de Joan Baez que j'ai eu le plaisir de voir sur scène à Marseille, j'aime bien dans un style plus choral les Celtic Women
Il yen a tout plein sur YouTube en reprises de standards, mais également des classiques folk irlandais. Amicalement.
 

Discussions similaires

Réponses
9
Affichages
323

Membres actuellement en ligne

Statistiques des forums

Discussions
287 536
Messages
1 884 452
Membres
163 314
dernier inscrit
cedric.remacle
Haut Bas