Couleur et Gras pour chiffres d'une cellule

[mormox]

Bonjour à tous,

Alors je sèche un peu, j'ai ce code :

[D133].Value = [B133].Value & " minutes " & [C133].Value & " secondes "

B133 et C133 étant des chiffres, j'aimerai qu'en D133 il m'affiche ces valeurs en gras et en rouge. Mais je précise bien, uniquement pour les chiffres de cette cellule et non pour "minutes" et "secondes". 😉😀

Merci d'avance.

 

[Catrice]

Re : Couleur et Gras pour chiffres d'une cellule

Bonjour,

Ci-joint un exemple.

 

[mormox]

Re : Couleur et Gras pour chiffres d'une cellule

Merci Beaucoup Catrice !

Bon alors comme je débute un peu j'ai une question concernant cette ligne :

With Dest.Characters(Start:=10 + Len(LesMin), Length:=Len(LesSec)).Font

1) A quoi sert la propriété "With/End With"
2) Qu'est ce que "Len()" ?
3) Pourquoi on a "10 + Len(LesMin)" ?

Merci d'avance !

 

[Catrice]

Re : Couleur et Gras pour chiffres d'une cellule

Bonsoir,

Avec le With, les 2 extraits de codes sont équivalents :

Dest.Characters(Start:=1, Length:=Len(LesMin)).Font.FontStyle = "Gras"
Dest.Characters(Start:=1, Length:=Len(LesMin)).Font.ColorIndex = 3

With Dest.Characters(Start:=1, Length:=Len(LesMin)).Font
    .FontStyle = "Gras"
    .ColorIndex = 3
End With

Len compte le nombre de caracteres de LesMin (les valeurs pouvant aller de 0 à 59 soit 1 ou 2 digits).

10+Len(LesMin) car il y a 7 caracteres dans "minutes" + 2 espaces + 1 pour arriver sur le premier caractere des secondes.

 

[Catrice]

Re : Couleur et Gras pour chiffres d'une cellule

Re,


Ci-dessous, une autre version:

Sub Test()
Set Dest = [D1]
Set LesMin = [B1]
Set LesSec = [C1]
Var1 = Array(1, Len(LesMin), 10 + Len(LesMin), Len(LesSec))
'----------------------
Dest.Value = LesMin & " minutes " & LesSec & " secondes "
Dest.ClearFormats
For i = 0 To 3 Step 2
    Dest.Characters(Var1(i), Var1(i + 1)).Font.FontStyle = "Gras"
    Dest.Characters(Var1(i), Var1(i + 1)).Font.ColorIndex = 3
Next
End Sub

 

[mormox]

Re : Couleur et Gras pour chiffres d'une cellule

Merci beaucoup pour ton aide et tes explications très claires !

Je vais rester sur la première version, elle est un peu moins compliquée j'ai l'impression 😛

Je ne sais pas à quoi sert la propriété "Array" et je ne comprends pas bien la ligne :

For i = 0 To 3 Step 2

Je vois bien qu'elle est liée à ce qu'il y a en dessous, mais je ne comprends pas bien l'interaction entre les différentes parties..

Encore merci...

Bonne journée à tous

 

[Catrice]

Re : Couleur et Gras pour chiffres d'une cellule

Bonsoir,

Array permet de creer un tableau qui ici s'appelle Var1.
Dans Var1, il y a 4 éléments.
Ces éléments correspondent par paires aux éléments Start et Length qu'on va utiliser avec Characters.

Avec For i = 0 To 3 Step 2
On boucle de 0 à 3 => soit 4 fois => Step 2 => finalement que 2 fois.

i sera donc égale à 0 et à 2
pour i = 0 => (Var1(i), Var1(i + 1)) => (Var1(0), Var1(1)) => (1, Len(LesMin))
pour i = 2 => (Var1(i), Var1(i + 1)) => (Var1(2), Var1(3)) => (10 + Len(LesMin),Len(LesSec))

 

[mormox]

Re : Couleur et Gras pour chiffres d'une cellule

Merci beaucoup pour ton aide précieuse !
à la prochaine 🙄