Couleur et Gras pour chiffres d'une cellule

C

Catrice

XLDnaute Barbatruc

• 28 Octobre 2009

• #2

Re : Couleur et Gras pour chiffres d'une cellule

Bonjour,

Ci-joint un exemple.

 

Pièces jointes

• Classeur1.xls

  24 KB · Affichages: 68
• Classeur1.xls

  24 KB · Affichages: 75
• Classeur1.xls

  24 KB · Affichages: 71

Vote positif 0 Vote négatif

M

mormox

Guest

• 28 Octobre 2009

• #3

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 :

Code:

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 !

 

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 28 Octobre 2009

• #4

Re : Couleur et Gras pour chiffres d'une cellule

Bonsoir,

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

Code:

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

Code:

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.

 

Dernière édition: 28 Octobre 2009

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 28 Octobre 2009

• #5

Re : Couleur et Gras pour chiffres d'une cellule

Re,


Ci-dessous, une autre version:

Code:

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

 

Vote positif 0 Vote négatif

M

mormox

Guest

• 29 Octobre 2009

• #6

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 :

Code:

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

 

Dernière modification par un modérateur: 29 Octobre 2009

Vote positif 0 Vote négatif

C

Catrice

XLDnaute Barbatruc

• 29 Octobre 2009

• #7

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))

 

Vote positif 0 Vote négatif

M

mormox

Guest

• 30 Octobre 2009

• #8

Re : Couleur et Gras pour chiffres d'une cellule

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

 

Vote positif 0 Vote négatif