j'ai une base de données avec des dates et des actions a faire aux dates précisées
j'aurai voulu savoir s'il est possible que pour chaque mois on puisse extraire simplement les actions a faire pour le mois dans lequel on se trouve (exemple pour le mois de juillet)
j'ai une case qui me récupère la date de chaque jour avec (=TEXTE(AUJOURDHUI();"jjjj jj mmmm aaaa") & " :")
En fait jvoudrais le faire avec des macros du genre que l'appui sur un bouton "Afficher actions du mois" affiche a l'opérateur toutes les actions qu'il aura a faire ce mois ci!
et es ce qu'il est possible de recuperer les données de deux cellules situés sur deux fichiers différents
j'ai essayé ca mais ca amrche pas
For i = [C65000].End(xlUp).Row To 2 Step -1
'Cells(i, 19).Select
'ActiveCell.FormulaR1C1 = "=MONTH(RC[-16])=MONTH(TODAY())"
If Month(Cells(i, 3)) = Month((Workbooks("InterfaceGrap").Sheets("Feu1il1").Cells(1, 1))) Then
' supprimer cellule
End if
ouai ca avec les infos de chris j'y été arrivé mais merci quand meme mais je voudrais l'écrire dans une macro mais la fonction AUJOURDHUI() n'est pas comprise en compte dans la macro
If Month(Cells(i, 3)) <> Month(TODAY) Then
Rows(i).Delete Shift:=lUp
End If
plutot que d'écrire dans une case de mon fichier la fonction =AUJOURDHUI() j'aurai voulu la recuperer dans un autre fichier car je m'en sers deja a un endroit
'If Month(Cells(i, 3)) = Month((Workbooks("InterfaceGrap").Sheets("Feu1il1").Cells(1, 1))) Then
Rows(i).Delete Shift:=lUp
End If
j'aurai donc voulu savoir comment je peux lui ecrire de comparer le mois de ma colonne date avec le mois de la fonction aujourd'hui situé dans un autre fichier (que celui de la colonne date)
Voici mon code j'ai rajouté l'extension .xls et remis le nom de ma feuille "Feuill1" mais ca marche toujours pas il me dit incompatibilité de type dans ma cellule ou je récupère la date d'aujourd'hui il y a la formule suivante =TEXTE(AUJOURDHUI();"jjjj jj mmmm aaaa") & " :"
peut etre que l'on ne peut pas appliquer la fonction mois a cette formule
Sub Macro2a()
Windows("REF_AUTO_2007.xls").Activate
Dim i As Long
For i = [C65000].End(xlUp).Row To 2 Step -1
If Month(Cells(i, 3)) = Month(Workbooks("InterfaceGrap.xls").Sheets("Feuil1").Cells(1, 1)) Then
Rows(i).Delete Shift:=lUp
End If