Vérification présence date

Version imprimable

Bonjour,

Dans un classeur excel, la colonne A d’une feuille est constituée de dates sous la forme janv 11, fevr 11, mars 11, etc… (en réalité, il s’agit de 01/01/2011, 01/02/2011, 01/03/2011, etc..), et les cellules sont formatées en « mmm aa ».
Je souhaiterais qu’à l’ouverture du classeur, une macro vérifie si la date du mois actuel est bien présente sur la cellule en dessous du mois précédent et à défaut, qu’elle soit créée sous le même formatage.

Pouvez-vous m’aider pour cette macro svp ?

J'avais déjà voulu commencer par rechercher via le code suivant:
Code:

1 2 3 4 5 6 7 Dim le_mois As Date le_mois = Format(DateSerial(Year(Date), Month(Date), 1), "dd/mm/yyyy") Dim Cel As Range Set Cel = Workbooks("xxx").Worksheets("yyy").Columns(1).Find(le_mois, LookIn:=xlValues)
Sans succès, ça ne trouve même pas que la date actuelle y est bien..

Merci d'avance !

Bonjour,

Une solution

Code:

1
2
3
If Range("A" & Range("A:A").End(xlDown).Row).Value <> CDate("01/" & Month(Now) & "/" & Year(Now)) Then
    Range("A" & Range("A:A").End(xlDown).Row + 1).Value = CDate("01/" & Month(Now) & "/" & Year(Now))
End If

04/08/2011, 13h02
m@tix

Bonjour jfontaine,

Merci pour ta réponse.
Mais j'ai l'impression qu'avec ton code, dès qu'on va trouver une cellule dans la colonne A qui ne contient pas la date actuelle, alors on va l'y mettre... C''est d'ailleurs vérifé en l'exécutant. Alors que j'aimerais que la date actuelle soit rajoutée en fin de colonne A si, et seulement si elle n'y est pas déjà. Dis-moi si tout n'est pas clair..

P.S.: pourquoi mon premier code ne fonctionne pas pour trouver si la date actuelle est présente ?

En effet je suis partis avec l'hypothèse que les période était dans l'ordre

il faut ajouter cette ligne a ton code, sinon c'est bon

Code:

1
2
3
4
5
6
7
8
9
10
 
Dim le_mois As Date
 
le_mois = Format(DateSerial(Year(Date), Month(Date), 1), "dd/mm/yyyy")
 
Dim Cel As Range
 
Set Cel = Workbooks("xxx").Worksheets("yyy").Columns(1).Find(le_mois, LookIn:=xlValues)
 
If Cel Is Nothing Then Workbooks("xxx").Worksheets("yyy").Range("A" & Range("A:A").End(xlDown).Row + 1).Value = le_mois

04/08/2011, 13h25
m@tix

Mon problème reste le même malheureusement.

En testant ça, je rentre dans le If alors que 01/08/2011 est déjà présent sur la colonne A... :calim2: Cel est à Nothing.

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Workbook_Open()
 
With Worksheets(1)
    If DateDiff("m", Date, Application.Max(.Range("A:A"))) <> 0 Then
        With .Cells(.Rows.Count, "A").End(xlUp)(2)
            .Value = DateValue("01/" & Format(Date, "mm/yyyy"))
            .NumberFormat = "mmm yyyy"
        End With
    End If
End With
End Sub

04/08/2011, 13h32
m@tix

Bonjour mercatog,

Merci pour ton aide. Cependant, je ne comprends pas bien ce que fait ton code.. Peux-tu expliquer stp ?

Mon interrogation précédente reste cependant toujours valable.. :(
04/08/2011, 13h35
jfontaine

Ca fonctionne si tu mets xlFormulas au lieu de xlValues

Code:

Set Cel = Me.Columns(1).Find(le_mois, LookIn:=xlFormulas)
04/08/2011, 13h44
MarcelG

recherche de date

Bonjour,

Si je peux me permettre de rebondir sur la remarque de l'ami Jérôme, un très bon exposé à ce sujet sur le laboratoire (déjà cité) :

Rechercher une date
04/08/2011, 13h47
m@tix

Toujours pas non...

Je ne sais quoi te dire

Ce code fonctionne parfaitement sur mon poste

Code:

1
2
3
4
5
6
7
8
9
Dim le_mois As Date
 
le_mois = Format(DateSerial(Year(Date), Month(Date), 1), "dd/mm/yyyy")
 
Dim Cel As Range
 
Set Cel = Me.Columns(1).Find(le_mois, LookIn:=xlFormulas)
 
If Cel Is Nothing Then me.Range("A" & Range("A:A").End(xlDown).Row + 1).Value = le_mois

04/08/2011, 13h50
mercatog

Je ne sais pas si je répond à ta question mais le code que j'ai proposé permet à chaque ouverture du fichier le code cherche dans la colonne A la plus grande date. Si elle correspond au mois actuel, ne rien faire, sinon, ajoute le mois actuel.
Je suppose c'est dans un but de mise à jour ordonnée des dates.

Citation:

Envoyé par m@tix

B...
Je souhaiterais qu’à l’ouverture du classeur, une macro vérifie si la date du mois actuel est bien présente sur la cellule en dessous du mois précédent et à défaut, qu’elle soit créée sous le même formatage....

Quand tu dis cela cela ne revient pas à contrôler que la dernière ligne de ton tableau contient en colonne A la date du premier jour du mois courant ?

@jpfontaine juste une petite remarqe pour :

Citation:

Envoyé par jfontaine

Je ne sais quoi te dire

Ce code fonctionne parfaitement sur mon poste

Code:

1 2 3 4 5 6 7 8 9 Dim le_mois As Date le_mois = Format(DateSerial(Year(Date), Month(Date), 1), "dd/mm/yyyy") Dim Cel As Range Set Cel = Me.Columns(1).Find(le_mois, LookIn:=xlFormulas) If Cel Is Nothing Then me.Range("A" & Range("A:A").End(xlDown).Row + 1).Value = le_mois

Tu mélange des type de données (string et date) ton formatage ne sert à rien la fonction "Format" qui envoi une chaine de caractére (un String) ne sert à rien la ...
pour définir ta date utilise seulement DateSerial qui renvoi une valeur de type Date

04/08/2011, 13h51
MarcelG

RECHERCHE DATE

Salut,

Sur mon poste également.

Je pense qu'il s'agit d'un problème de formatage.

Peux-tu Joindre un court extrait de ton fichier comprtant ta zone de recherche, et le code correspondant.
04/08/2011, 14h03
m@tix

Ok, voici en pièce-jointe mon fichier avec uniquement la colonne A.

En effet bbil pour ta remarque, mais c'est moi qui avais écrit le début du code, donc n'en veux pas à jfontaine. ;)

Ok mercatog, merci, je n'avais pas bien compris ce que faisait la fonction DateDiff en fait (malgré l'aide).

Edit: je viens de fermer le fichier et de le réouvrir: ça fonctionne... :mouarf: Les mystères de l'info.. (je retire donc la pj).
04/08/2011, 14h06
jfontaine

Citation:

Tu mélange des type de données (string et date) ton formatage ne sert à rien la fonction "Format" qui envoi une chaine de caractére (un String) ne sert à rien la ...
pour définir ta date utilise seulement DateSerial qui renvoi une valeur de type Date

En effet, je n'ai pas analysé cette partie de code fournie par m@tix :oops:

il est normal que la macro n'ajoute rien car la période existe ligne 266

edit : de plus si inexistant, le code d'ajout met la période sur la première ligne vide qu'il trouve
04/08/2011, 14h12
m@tix

Citation:

Envoyé par jfontaine

il est normal que la macro n'ajoute rien car la période existe ligne 266

Ce n'était pas ça le souci en fait, ce qui n'allait pas était le fait que la variable Cel restait à Nothing... alors que la période est bien là comme tu dis.

Citation:

Envoyé par jfontaine

edit : de plus si inexistant, le code d'ajout met la période sur la première ligne vide qu'il trouve

Ah oui en effet, ça ne va pas alors.. J'aimerais si possible qu'on l'ajoute en dessous du mois précédent la date actuelle (qui lui devrait être présent). Ou, dit autrement, sur la dernière cellule non remplie de la colonne. Cela devrait revenir au même.

Edit: avec ça, ça devrait sûrement faire l'affaire:
Code:

1 2 3 4 5 6 7 8 9 Dim Cel As Range Set Cel = Workbooks("xxx").Worksheets("yyy").Columns(1).Find(le_mois, LookIn:=xlFormulas) If Cel Is Nothing Then Workbooks("xxx").Worksheets("yyy").Range("A65536").End(xlUp).Value = le_mois End If

04/08/2011, 15h34
SfJ5Rpw8

Citation:

Envoyé par jfontaine

En effet, je n'ai pas analysé cette partie de code fournie par m@tix :oops:

oups désolé pour l'erreur de destinataire j'avais pas lu tous les codes ...;)

m@tix , tu ne m'as pas répondu ... pourquoi as tu besoin de faire une recherche ? la dernière ligne de ton tableau ne doit pas correspondre au mois courant ?
04/08/2011, 15h36
m@tix

Citation:

Envoyé par bbil

m@tix , tu ne m'as pas répondu ... pourquoi as tu besoin de faire une recherche ? la dernière ligne de ton tableau ne doit pas correspondre au mois courant ?

En principe si, c'était juste une précaution, pour voir si elle y était déjà ailleurs, par erreur.