Plusieurs taille de police en concaténation

Le
JP
Bonsoir,

Dans cette partie de macro, sur la ligne: Cells(L, y + 3) = semaine & " :=
" & ccf, je souhaite écrire la variable semaine & " : " avec la font si=
ze 8 et la variable ccf avec la font size 11.
Est-ce quelqu'un pourrait m'indiquer comment faire?

Merci

JP

For L = 5 To nb_classe
Sheets("Calendrier general").Select
For C = 3 To nb_jours Step 7
If Cells(L, C) <> "" Then
Sheets("Calendrier general").Select
semaine = Cells(3, C).Value
ccf = Cells(L, C).Value
Sheets("bilan").Select
' va chercher la variable issue de nbval en colonne 1
y = Cells(L, 1).Value
Cells(L, y + 3) = semaine & " : " & ccf
Sheets("Calendrier general").Select
End If
Next C

Next L
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #24921742
Bonjour JP,

voici un exemple,

Sub test()
semaine = "abcd"
ccf = "klmo"

Cells(1, 1) = semaine & " : " & ccf

m1 = Len(semaine)
m2 = Len(ccf)

With Cells(1, 1)
.Characters(Start:=1, Length:=m1).Font.Size = 8
.Characters(Start:=m1 + 2, Length:=m2 + 2).Font.Size = 11
End With
End Sub

--
isabelle


Le 2012-10-31 16:22, JP a écrit :
Bonsoir,

Dans cette partie de macro, sur la ligne: Cells(L, y + 3) = semaine & " : " & ccf, je souhaite écrire la variable semaine & " : " avec la font size 8
et la variable ccf avec la font size 11.
Est-ce quelqu'un pourrait m'indiquer comment faire?

Merci

JP

For L = 5 To nb_classe
Sheets("Calendrier general").Select
For C = 3 To nb_jours Step 7
If Cells(L, C) <> "" Then
Sheets("Calendrier general").Select
semaine = Cells(3, C).Value
ccf = Cells(L, C).Value
Sheets("bilan").Select
' va chercher la variable issue de nbval en colonne 1
y = Cells(L, 1).Value
Cells(L, y + 3) = semaine & " : " & ccf
Sheets("Calendrier general").Select
End If
Next C

Next L
JP
Le #24921922
Le mercredi 31 octobre 2012 21:22:43 UTC+1, JP a écrit :
Bonsoir,



Dans cette partie de macro, sur la ligne: Cells(L, y + 3) = semaine & " : " & ccf, je souhaite écrire la variable semaine & " : " avec la font size 8 et la variable ccf avec la font size 11.

Est-ce quelqu'un pourrait m'indiquer comment faire?



Merci



JP



For L = 5 To nb_classe

Sheets("Calendrier general").Select

For C = 3 To nb_jours Step 7

If Cells(L, C) <> "" Then

Sheets("Calendrier general").Select

semaine = Cells(3, C).Value

ccf = Cells(L, C).Value

Sheets("bilan").Select

' va chercher la variable issue de nbval en colonne 1

y = Cells(L, 1).Value

Cells(L, y + 3) = semaine & " : " & ccf

Sheets("Calendrier general").Select

End If

Next C



Next L



Bonjour Isabelle,

Content de cette réponse matinale qui répond à la demande.

Merci

JP
JP
Le #24922042
Le mercredi 31 octobre 2012 21:22:43 UTC+1, JP a écrit :
Bonsoir,



Dans cette partie de macro, sur la ligne: Cells(L, y + 3) = semaine & " : " & ccf, je souhaite écrire la variable semaine & " : " avec la font size 8 et la variable ccf avec la font size 11.

Est-ce quelqu'un pourrait m'indiquer comment faire?



Merci



JP



For L = 5 To nb_classe

Sheets("Calendrier general").Select

For C = 3 To nb_jours Step 7

If Cells(L, C) <> "" Then

Sheets("Calendrier general").Select

semaine = Cells(3, C).Value

ccf = Cells(L, C).Value

Sheets("bilan").Select

' va chercher la variable issue de nbval en colonne 1

y = Cells(L, 1).Value

Cells(L, y + 3) = semaine & " : " & ccf

Sheets("Calendrier general").Select

End If

Next C



Next L



Isabelle,

Puis-je abuser et te demander comment je peux mettre la variable semaine en couleur rouge(.Font.ColorIndex = 3) et revenir à la oculeur noire pour la variable CCF (.Font.ColorIndex = 1)?

Merci d'avance

JP
J'ai tenté
JP
Le #24922312
Le mercredi 31 octobre 2012 21:22:43 UTC+1, JP a écrit :
Bonsoir,



Dans cette partie de macro, sur la ligne: Cells(L, y + 3) = semaine & " : " & ccf, je souhaite écrire la variable semaine & " : " avec la font size 8 et la variable ccf avec la font size 11.

Est-ce quelqu'un pourrait m'indiquer comment faire?



Merci



JP



For L = 5 To nb_classe

Sheets("Calendrier general").Select

For C = 3 To nb_jours Step 7

If Cells(L, C) <> "" Then

Sheets("Calendrier general").Select

semaine = Cells(3, C).Value

ccf = Cells(L, C).Value

Sheets("bilan").Select

' va chercher la variable issue de nbval en colonne 1

y = Cells(L, 1).Value

Cells(L, y + 3) = semaine & " : " & ccf

Sheets("Calendrier general").Select

End If

Next C



Next L



Re Isabelle,

J'ai trouve une solution mais il doit y avoir plus court je pense.
La voici:
With Cells(L, y + 3)
.Characters(Start:=1, Length:=m1).Font.ColorIndex = 3
.Characters(Start:=1, Length:=m1).Font.Size = 8
.Characters(Start:=m1 + 2, Length:=m2 + 2).Font.ColorIndex = 1
.Characters(Start:=m1 + 2, Length:=m2 + 2).Font.Size = 10
End With

merci encore

JP
isabelle
Le #24923372
pas beaucoup plus court,

*Sub test()
semaine = "abcd"
ccf = "klmo"
Cells(1, 1) = semaine & " : " & ccf

m1 = Len(semaine)
m2 = Len(ccf)

With Cells(1, 1)

With .Characters(Start:=1, Length:=m1).Font
.Size = 16
.ColorIndex = 3
End With

With .Characters(Start:=m1 + 2, Length:=m2 + 2).Font
.Size = 8
.ColorIndex = 9
End With

End With
End Sub*

--
isabelle

Le 2012-11-01 05:07, JP a écrit :
J'ai trouve une solution mais il doit y avoir plus court je pense. La
voici: With Cells(L, y + 3) .Characters(Start:=1,
Length:=m1).Font.ColorIndex = 3 .Characters(Start:=1,
Length:=m1).Font.Size = 8 .Characters(Start:=m1 + 2, Length:=m2 +
2).Font.ColorIndex = 1 .Characters(Start:=m1 + 2, Length:=m2 +
2).Font.Size = 10 End With merci encore JP
JP
Le #24925642
Le mercredi 31 octobre 2012 21:22:43 UTC+1, JP a écrit :
Bonsoir,



Dans cette partie de macro, sur la ligne: Cells(L, y + 3) = semaine & " : " & ccf, je souhaite écrire la variable semaine & " : " avec la font size 8 et la variable ccf avec la font size 11.

Est-ce quelqu'un pourrait m'indiquer comment faire?



Merci



JP



For L = 5 To nb_classe

Sheets("Calendrier general").Select

For C = 3 To nb_jours Step 7

If Cells(L, C) <> "" Then

Sheets("Calendrier general").Select

semaine = Cells(3, C).Value

ccf = Cells(L, C).Value

Sheets("bilan").Select

' va chercher la variable issue de nbval en colonne 1

y = Cells(L, 1).Value

Cells(L, y + 3) = semaine & " : " & ccf

Sheets("Calendrier general").Select

End If

Next C



Next L



Bonjour Isabelle,

Effectivement, ce n'est pas beaucoup plus court.
Je vais donc rester sur ce que j'ai ajouté qui découlait de ta premiè re proposition.

Merci encore

JP
Publicité
Poster une réponse
Anonyme