Discussion :

[m@tix]

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 :

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

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 !

[jfontaine]

Bonjour,

Une solution

Code :

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

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

[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 ?

[jfontaine]

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 :

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

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

[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... Cel est à Nothing.

[mercatog]

Code :

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

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

[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..

[jfontaine]

Ca fonctionne si tu mets xlFormulas au lieu de xlValues

Code :

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

Set Cel = Me.Columns(1).Find(le_mois, LookIn:=xlFormulas)

[MarcelG]

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

[m@tix]

Toujours pas non...

[SfJ5Rpw8]

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 :

Je ne sais quoi te dire

Ce code fonctionne parfaitement sur mon poste

Code :

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

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

[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... Les mystères de l'info.. (je retire donc la pj).

[jfontaine]

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

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

[m@tix]

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.

[m@tix]

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 :

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

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

[SfJ5Rpw8]

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

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 ?

[m@tix]

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.