Discussion :

[VBBBA]

Bonjour;

J'ai une macro dans laquelle j'essaye de filtrer sur une colonne la première date disponible du mois suivant. Et les dates sont au format jj/mm/aa.

J'arrive bien à faire un filtre quand je lui donne la date directement come critère de filtre. Mais je voudrais que je n'ai pas à taper la date dans un inputbox ou autre.

Merci de toute reponse de votre part

[flear]

hummm j'ai pas tout bien compris la.....tu veut que lorsque tu execute la macro ca filtre automatiquement sur le mois suivant?

[random]

en code

Code :

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

1
2
 
dateserial(year(madate),month(madate)+1,1)

en excel

Code :

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

1
2
 
=DATE(ANNEE(A1);MOIS(A1)+1;1)

[ouskel'n'or]

Pour ma culture, Random, il n'y a pas une fonction qui donne le dernier jour du mois, dans Excel ? Parce qu'alors dernier jour du mois + 1
Et si je dis une c...rie, pas nécessaire d'ajouter
Un simple "non" suffira

[VBBBA]

Je me suis fait mal comprendre je crois

En fait j'ai des lignes. Sur une colonne j'ai des dates au format jj/mm/aaaa

Je veux faire un filtre sur la première date du mois suivant disponible dans cette colonne.

J'essaye de faire un truc sur les caracteres Mais c pas beau et faux.

Alrors si vous avez un code rapide et efficace pour ça je suis preneur.

Merci à vous

[ouskel'n'or]

Pour faire ça, l'idéal est d'appliquer le format "Standard" à ta colonne de dates, d'effecuter la recherche avec le N° de série du 1er jour du mois prochain, et de remettre ta colonne en format date.
Le pb est que, lors de la saisie, tu as 36 formats de date possibles. Si tu cherches selon un format, ça peut poser pb.
En transformant en N° de série, tu as un N° pour une date quelque soit sont format.
Il en va de même pour trier des dates par ordre chronologique.
Pour le principe

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim LaDate, NoSerieDate, c
    LaDate = Now
    NoSerieDate = CDbl(DateSerial(Year(LaDate), Month(LaDate) + 1, 1))
    Columns("B:B").NumberFormat = "0"
    With Worksheets("Feuil1").Range("B:B")
        Set c = .Find(NoSerieDate, LookIn:=xlValues)
        If Not c Is Nothing Then _
                MsgBox c.Row 'N° de la ligne trouvée
    End With
    Columns("B:B").NumberFormat = "dd/mm/yyyy"

A+