Autres Mettre en rouge et en gras des années en format texte à l'intérieur de texte

Chrige · 6 Février 2021

Bonjour à tous

Mettre en rouge des années, c’est facile avec une MFC
Mettre en rouge une partie de texte, en manuel c’est facile aussi
Mais comme j’ai plus d’une centaine de cas
Je me demande s’il serait possible de le faire en macros
Ou alors avec une fonction à l’intérieur d’une MFC

Dans l’exemple sont à mettre en rouge et en gras les années
- Ces années sont à l’intérieur de texte
- Le nombre de caractères est différent
- L’emplacement de l’année est différent
- Seul point commun, les seuls chiffres présents ne concernent que l’année et il n’y a qu’une seule année dans chaque cellule.
On peut dire donc qu'il y a toujours 4 chiffres ou aucun chiffre
-Toutes les années sont sur 4 chiffres et commencent donc toujours par 1 ou par 2

Cela à peut-être déjà été fait, mais je pas trouvé sur le Web ??

patricktoulon · 6 Février 2021

si j'ai testé mais j'ai ceux entres parenthèses qui passent pas
et non ce n'est pas un step de 4 Attention il y a méprise
je saute les 4 uniquement si le like dis non
un step c'est un step sans condition

soan · 6 Février 2021

Bonjour à tous,

@patricktoulon

Je crois que dans la ligne ci-dessous, le signe « : » juste à droite de « Else » est en trop ! ça signifie : « Sinon rien du tout » et i = i + 4 est toujours exécuté, de façon inconditionnelle !

Else: i = i + 4 'REBONDi APRES LA CHAÎNÉ DÉJÀ TESTÉE!!!!!

soan

job75 · 6 Février 2021

patricktoulon à dit:
si j'ai testé mais j'ai ceux entres parenthèses qui passent pas

Parce qu'ils n'entrent pas dans le Step de 4, il y a aussi A6 et A11.

patricktoulon à dit:
et non ce n'est pas un step de 4 Attention il y a méprise
je saute les 4 uniquement si le like dis non

Méprise ? Allons allons, quand le Like dit oui on sort de la boucle !!!

job75 · 6 Février 2021

Salut soan,

soan à dit:
Je crois que dans la ligne ci-dessous, le signe « : » juste à droite de « Else » est en trop ! ça signifie : « Sinon rien du tout »

Allons allons, mais qu'est-ce qu'il vous prend à tous aujourd'hui ?

soan · 6 Février 2021

@job75

??? ben si ! le signe deux-points « : » est le séparateur d'instructions ; donc là, le « Else: » signifie « Else fin d'instruction » et ça passe à l'instruction suivante qui est i = i + 4 ; donc comme je le disais, ce i = i + 4 est exécuté sans condition, donc de façon inconditionnelle. (je crois pas que c'est ce qui était voulu !)

soan

mapomme · 6 Février 2021

Re,

Une nouvelle version qui tient compte des parenthèses ou autre.

VB:

Sub mapomme()
Dim c As Range, x$, d1&, d2&, t0!
   t0 = Timer
   Application.ScreenUpdating = False
   For Each c In Range("a1").CurrentRegion
      x = c
      d1 = InStr(x, "1"): d2 = InStr(x, "2")
      If d1 = 0 Then d1 = d2 Else If d2 > 0 Then If d2 < d1 Then d1 = d2
      If d1 > 0 Then With c.Characters(d1, 4).Font: .Color = vbRed: .Bold = True: End With
   Next c
   MsgBox Format(Timer - t0, "0.000\ sec.")
End Sub

job75 · 6 Février 2021

D'accord mapomme, note que j'ai donné la solution de mon post #5 uniquement pour montrer qu'avec une seule boucle le gain de temps est négligeable.

mapomme · 6 Février 2021

job75 à dit:
pour montrer qu'avec une seule boucle le gain de temps est négligeable.

OK pour la démonstration

Autres Mettre en rouge et en gras des années en format texte à l'intérieur de texte

Chrige

XLDnaute Occasionnel

Pièces jointes

patricktoulon

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Discussions similaires