Colorer ligne si la date a plus de 5 ans
Bonjour,
Avec une macro puisque le reste est deja dans une macro Svp
Dans la colone "T" j'ai des dates et j'aimerai que la ligne soit colorée en Rouge si elle a plus de 10 ans et en jaune si c'est plus de 5 ans
Merci d'avance
C'est possible sans macro, avec une mise en forme conditionnelle.
Mais ce serait plus simple pour nous si tu joins un fichier...
Cordialement, Daniel
Re bonjour,
Dans la mesure ou se sont des données confidentielles je ne peux pas donner un fichier.
Mais honetement la condition d'une case comme ça =MOIS.DECALER(A1;60) et apres je copie la mise en forme facilement aussi.
Mais le but c'est de le mettre dans la macro et j'aurais juste besoin de la commande qui fait :
si T1 < aujourdhui - 5ans alors colore en jaune
si T1 < auourd'hui - 10 ans alors colore en rouge
Je vais essayer d'anonymiser une dizaine de lignes et mettre ma macro mais bon je ne voyais tout simplement p as l'utilité.
Je m'y colle de suite
Mon fichier et macro si dessous
Sub SSO()
'
Dim sNomRech As String
Dim oShSource As Worksheet
Dim oShDest As Worksheet
Dim iLue As Long
Dim iEcr As Long
Dim bFin As Boolean
sNomRech = InputBox("Numéro SSO ?")
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = sNomRech
If sNomRech = "" Then
Exit Sub
End If
Application.ScreenUpdating = False
Set oShSource = Worksheets("IBtrackextract")
Set oShDest = Worksheets(sNomRech)
iLue = 2
iEcr = oShDest.Range("A" & Rows.Count).End(xlUp).Row + 1
bFin = False
While Not bFin
If oShSource.Range("A" & iLue).Value = "" Then
bFin = True
Else
If oShSource.Range("AV" & iLue).Value = sNomRech Then
oShSource.Rows(iLue).Copy
oShDest.Range("A" & iEcr).PasteSpecial xlPasteAll
Application.CutCopyMode = False
oShSource.Rows(iLue).Delete
iEcr = iEcr + 1
'reste sur la même ligne
Else
'ligne suivante
iLue = iLue + 1
End If
End If
Wend
Application.ScreenUpdating = True
MsgBox "Terminé !", vbExclamation
Set oShSource = Nothing
Set oShDest = Nothing
'
End Sub
Je suis parti sur l'idée d'une MFC, je vais donc au bout... D'autres intégreront ta demande dans une macro, et tu choisiras...
L'avantage de la MFC, c'est qu'il n' y a pas besoin de déclencher de traitement, c'est instantané, contrairement à une macro....
A toi de voir !
Cordialement, Daniel
Juste un truc, ton tableau n'a pas d'entête : tu te prives des filtres, ce qui est peut-être dommage ?
Ok pour la MFC,
Ma Macro crée les feuilles automatiquement, est ce que je peux les créer directement avec la MFC ? parceque sinon ça ne va pas m'aider des kilos,
Mais Merci quand même, je vais regarde deja comment ça marche comme ça
On doit pouvoir récupérer le code de création de la MFC avec l'enregistreur de macro, je pense...
Cordialement, Daniel
non ca ne marche pas
je demarre l'enregistreur de macro
je vais dans MFc, je choisis celle que je veux je la configure , je ferme l'enregistreur de macro
Et il est vide !!!!
Grrrrrrrrr
J'ai trouvé ça
If Range("T" & iEcr).Value < (Date - 3650) Then
Rows(iEcr).Select
Selection.Font.ColorIndex = 45
End If
ca marche presque
Voila avec ça
If Range("T" & iEcr).Value < (Date - 3650) Then
Rows(iEcr).Select
Selection.Font.ColorIndex = 45
Else
If Range("T" & iEcr).Value < (Date - 1825) Then
Rows(iEcr).Select
Selection.Font.ColorIndex = 30
End If
End If
Je teste la valeur de ma case dans la colone T et si la date a plus de 10 ans je colore dans une couleur et plus de 5 dans une autre.
Tip top.
Merci de votre aide