MACRO/EXCEL Mise en forme special
Résolu
informatifien
Messages postés
781
Statut
Membre
-
informatifien Messages postés 781 Statut Membre -
informatifien Messages postés 781 Statut Membre -
Bonjour,
alors nouveau problème: j'ai une macro qui inscrit tout les jours compris entre 2 dates dans des cellules adjacentes puis qui les formatent. . ..voici le code :
nbjours = retour - depose ' je compte le nbre de jours entre datedepose et dateretour
ActiveCell.Offset(0, 1) = depose ' j'inscris la valeur depose dans la colo C (5°) de la meem ligne
For x = 1 To nbjours ' j'inscris les jours les uns à la suite des autres
datesuite = CDate(Cells(a, x + 4).Value) + 1
Cells(a, x + 5).Value = datesuite
Next x
x = 5
With Range(Cells(a, x), Cells(a, nbjours + x)) ' je formate mes cellules contenant les jours
.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 15
.NumberFormat = "ddd-dd/mm/yy"
.Font.Bold = True
End With
Ce que j'aimerais c'est que les samedis et dimanche soit formatés autrement que les autres jours. . .j'ai tenté plusieur code en combinant if workday sur les conseil d'un ccm iste mais je n'arrive pas à ce que je veux je demande de l'aide . . .
S'il vous plait,Merci
alors nouveau problème: j'ai une macro qui inscrit tout les jours compris entre 2 dates dans des cellules adjacentes puis qui les formatent. . ..voici le code :
nbjours = retour - depose ' je compte le nbre de jours entre datedepose et dateretour
ActiveCell.Offset(0, 1) = depose ' j'inscris la valeur depose dans la colo C (5°) de la meem ligne
For x = 1 To nbjours ' j'inscris les jours les uns à la suite des autres
datesuite = CDate(Cells(a, x + 4).Value) + 1
Cells(a, x + 5).Value = datesuite
Next x
x = 5
With Range(Cells(a, x), Cells(a, nbjours + x)) ' je formate mes cellules contenant les jours
.Borders.LineStyle = xlContinuous
.Interior.ColorIndex = 15
.NumberFormat = "ddd-dd/mm/yy"
.Font.Bold = True
End With
Ce que j'aimerais c'est que les samedis et dimanche soit formatés autrement que les autres jours. . .j'ai tenté plusieur code en combinant if workday sur les conseil d'un ccm iste mais je n'arrive pas à ce que je veux je demande de l'aide . . .
S'il vous plait,Merci
A voir également:
- MACRO/EXCEL Mise en forme special
- Mise en forme conditionnelle excel - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Caractere special - Guide
- Word et excel gratuit - Guide
3 réponses
Salut,
Personne ne peut m'aider??? je me suis peut etre mal exprimé . . .si c'est le cas dites le moi s'il vous plait . . . .
Merci
Personne ne peut m'aider??? je me suis peut etre mal exprimé . . .si c'est le cas dites le moi s'il vous plait . . . .
Merci
Bonjour,
Voici un morceau de code qui doit résoudre le problème.
Juste après le "then" se trouve la personnalisation des jours de week end dans mon exemple ils sont en bleu
Voila
A+
Voici un morceau de code qui doit résoudre le problème.
nbjours = retour - depose ' je compte le nbre de jours entre datedepose et dateretour
ActiveCell.Offset(0, 1) = depose ' j'inscris la valeur depose dans la colo C (5°) de la meem ligne
For x = 1 To nbjours ' j'inscris les jours les uns à la suite des autres
datesuite = CDate(Cells(a, x + 4).Value) + 1
Cells(a, x + 5).Value = datesuite
Next x
x = 5
For col = x To nbjours + x
With Cells(a, col)
.NumberFormat = "ddd-dd/mm/yy"
.Borders.LineStyle = xlContinuous
.Font.Bold = True
If Weekday(.Value) = 1 Or Weekday(.Value) = 7 Then
.Interior.ColorIndex = 8
Else
.Interior.ColorIndex = 15
End If
End With
Next col
Juste après le "then" se trouve la personnalisation des jours de week end dans mon exemple ils sont en bleu
Voila
A+
