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

[Chrige]

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]

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]

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]

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.

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]

Salut soan,

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]

@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]

Re,

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

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]

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]

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

OK pour la démonstration