Echeance à 60jours
bonjour
je possède un tableau avec dans une colonne F : date de facturation
colonne G : facture acquitée
dans chaque cellule, je rentre la date
j'aimerais trouver une formule qui me permette de colorier la case G si aucune date ni est rentrée, à partir de 60jour après celle de facturation en G
j'espère que vous m'avez compris car pas facile à expliquer....
merci d'avoir pris le temps de me lire, et pour ceux qui pourrons, merci de m'aider
Bonsoir,
Une petite macro que tu dois associer à un bouton poour la lancer
Sub test()
Dim RefDate As Variant
For a = 7 To 23 ' Je commence à la ligne 7 et je vais jusqu'à la ligne 23 à modifier selon ton fichier
RefDate = DelaiReg(ActiveSheet.Cells(a, 6))
If RefDate > 60 and ActiveSheet.Cells(a, 7))="" Then
ActiveSheet.Cells(a, 7).Interior.ColorIndex = 44
Else
ActiveSheet.Cells(a, 7).Interior.ColorIndex = xlNone
End If
Next
End Sub
Public Function DelaiReg(Source)
DelaiReg = Date - (Source + 60)
End FunctionBonne continuation
Amicalement
Air_2
Salut le forum
Tu y vas fort Air_2 avec une macro alors que les fonctions natives d'Excel font le travail.
Une mise en forme conditionnelle sur la cellule G1 à recopier avec le pinceau.
La formule est :
=ET(NON(ESTVIDE($F1));ESTVIDE($G1);AUJOURDHUI()-$F1>60)Et dans motif choisir la couleur désirée.
Mytå