Discussion :

[samourai59193]

bonjour,

je souhaiterais un aide pour une VBA, voila :
Dans une colonne j'indique une date de formation valide pour 5 ans (date de formation à la date du jour), j'ai une MFC qui change la couleur de la date (orange aprés 5 ans et 1 mois et rouge aprés 5 ans et 6 mois).
mes demandes sont les suivantes:
Effacé la date aprés 6 ans et la remplacer par 1

si je rajoute des lignes , est-ce que la macro fonctionne ou je doit faire un tableau à l'infini?

merci de votre aide.

[SfJ5Rpw8]

Voici un code qui parcours les lignes et modifie la colonne A si la date contenue est < date actuelle - 6 ans:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub NettoieDates()
Dim sh As Worksheet 'Feuille à traiter
Dim i As Integer
Dim iDerLg As Integer 'Derniére ligne
Dim dMoins6 As Date 'DAte actuelle - 6 ans
Set sh = ThisWorkbook.Sheets("Feuil3") '<<<<<<<< Ligne à modifier pour définir la feuille à traire >>>>>
 
iDerLg = sh.Range("A1").CurrentRegion.Rows.Count
dMoins6 = DateSerial(Year(Now) - 6, Month(Now), Day(Now))
For i = 2 To iDerLg '<<<<<<<<< Saut de la ligne 1 réservé pour entête de colonne>>>>>>>>>
  If sh.Cells(i, 1) < dMoins6 Then
   sh.Cells(i, 1) = 1
  End If
Next
End Sub

reste à voir l'événement pour lancer ce code (ouverture du classeur.., activation de la feuille...?)

[MattChess]

Bonjour samourai59193,

Dans une colonne j'indique une date de formation

Quelle colonne ? Ce n'est pas tant la valeur qui importe mais comment vous allez la nommer colDate = ... ? Qui dit colonne dit à la quelle rangée rowDateFirst commence-t-elle ? S'il n'y a pas de rangée de fin de date, précisez en commentaire jusqu'à la prochaine rangée vide, etc.

Donnez entre les balises [code] et [/code] le début de votre module commençant par Option Explicit ainsi que la définition des constantes en rangée et colonne en vous aidant du modèle de ma réponse pour cavrom chapitre 4.

valide pour 5 ans (date de formation à la date du jour)

Indiquez dans l'exemple de code VBA fourni la procédure ou l'extrait de code qui valide la date.

j'ai une MFC qui change la couleur de la date (orange après 5 ans et 1 mois et rouge après 5 ans et 6 mois).

Définir les abréviations. MFC peut signifier Microsoft Foundation Class pour du code en C++, le lien avec Excel n'étant pas immédiat sans autre précision. Comment est appelée votre MFC ? Donnez entre les balises [code] et [/code] un exemple de MFC.

Effacer la date après 6 ans et la remplacer par 1

Indiquez quand et comment vous voulez lancer le traitement d'effacement des dates obsolètes autrement dit quel est le nom de la maquette de la macro à exécuter ?

si je rajoute des lignes, est-ce que la macro fonctionne ou je doit faire un tableau à l'infini?

Faire un tableau à l'infini risque d'être long surtout vers la fin...

Indiquez en terme de rangée où les nouvelles lignes seront ajoutées ? En fin ? Insérées à partir de la rangée rowDateFirst à définir dans les constantes ?

[AlainTech]

Bonjour MattChess,

MFC est utilisé, dans Excel, pour Mise en Forme Conditionnelle.