Macro ?

Staple1600

XLDnaute Barbatruc

• 2 Septembre 2005

• #16

Une autre approche pour revenir à ton souhait initial

Code:

Sub misenforme()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
T = Date - c

Select Case T
Case 3
With c.Font
.ColorIndex = 3
.Bold = True
End With
Case 8
With c.Font
.ColorIndex = 46
.Bold = True
End With
End Select

Next c

End Sub

A coller dans un module
Puis Outils/Macros Exécuter

Ou alors à lancer à l'ouverture du classeur
Avec cette macro (Dans ThisWorkBook)

Code:

Private Sub WorkBook_Open()
Call misenforme
End sub

 

Dernière édition: 5 Juillet 2008

Vote positif 0 Vote négatif

S

Stéph

Guest

• 2 Septembre 2005

• #17

Tu vas devenir fou mais j'ai une erreur de comptabilité sur 'T = Date - c'

 

Vote positif 0 Vote négatif

S

Stéph

Guest

• 2 Septembre 2005

• #18

Compatibilité pardon mdrr !! Jsuis fatiguée, j'ai très mal dormi B)

 

Vote positif 0 Vote négatif

S

Stéph

Guest

• 2 Septembre 2005

• #19

Oui ça suffit ça ! Tant que ça marche c'est le principal ! Par contre, il me faudrait aussi que les J-1, J-2.. Jusque J-8 soit d'une police différente, j'ai essayé d'en rajouter mais ça marche pas lol !

 

Vote positif 0 Vote négatif

S

Stéph

Guest

• 2 Septembre 2005

• #20

C'est nikel !!!!

Mais une dernière petite chose ! Est ce qu'il est possible d'appliquer la police à la colonne qui suit ex :

Police appliquée en A1, possibilité de l'étendre sur B1 ?

 

Vote positif 0 Vote négatif

S

Stéph

Guest

• 2 Septembre 2005

• #21

Dernière fois

Je te remercie d'être si patient ! Mais une dernière question : si je veux remettre à zéro ? lol

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Septembre 2005

• #22

Re:Dernière fois

Pour la dernière question

VB:

Sub ANNULMEF()
For Each C In ActiveSheet.UsedRange
    Application.ScreenUpdating = False
    With C.Font
        .Name = 'Arial'
        .FontStyle = 'Normal'
        .Size = 10
        .ColorIndex = xlAutomatic
    End With
    Next C
End Sub

 

Dernière édition: 1 Mai 2018

Vote positif 0 Vote négatif

U

Un grand merci !!!

Guest

• 3 Septembre 2005

• #23

Reernière fois

Ne t'inquiète pas je ne te demande plus rien, tout fonctionne à merveille !!! Je suis très surprise que tu es répondu à toutes mes requêtes !! Alors comment pourrais-je te remercier ??

 

Vote positif 0 Vote négatif

S

Stéph

Guest

• 6 Septembre 2005

• #24

Reernière fois

En fait j'ai un souci avec la macro mise en forme ! Le pb c'est que lorsque je l'execute, elle étale la mise en forme sur toute la ligne au lieu de la ligne de la colonne suivant uniquement, pourtant j'ai essayé de regarder le code il m'a l'air bon regarde :

Sub misenforme()
Dim c As Range
Application.ScreenUpdating = False
For Each c In ActiveSheet.UsedRange
If IsDate(c) Then T = Date - c

Select Case T
Case 1
With c.Font
.ColorIndex = 3
.Bold = True
End With
With c.Offset(1, 0).Font
.ColorIndex = 3
.Bold = True
End With
.......

Merci d'avance

 

Vote positif 0 Vote négatif