Dans cette partie de macro, sur la ligne: Cells(L, y + 3) =3D semaine & " :=
" & ccf, je souhaite =E9crire 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 =3D 5 To nb_classe
Sheets("Calendrier general").Select
For C =3D 3 To nb_jours Step 7
If Cells(L, C) <> "" Then
Sheets("Calendrier general").Select
semaine =3D Cells(3, C).Value
ccf =3D Cells(L, C).Value
Sheets("bilan").Select
' va chercher la variable issue de nbval en colonne 1
y =3D Cells(L, 1).Value
Cells(L, y + 3) =3D semaine & " : " & ccf
Sheets("Calendrier general").Select
End If
Next C
=20
Next L
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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
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 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.
' 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
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.
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.
' 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 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.
' 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é
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.
' 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)?
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.
' 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 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.
' 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
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.
' 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
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.
' 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
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
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
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 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.
' 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
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.
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.