Discussion :

[mandrake57]

Bonjour à tous,

J'ai une petite quesion qui me trotte dans la tête et à laquelle je ne sais pas répondre pour le moment.

J'ai un classeur Excel composé de 2 feuilles. La première feuille est une "base de données" qui regroupe une somme d'information et les entrées se font par ligne. La deuxième feuille est une feuille de listing où je veux pouvior afficher des infos de la première feuille en fonction de certaines informations.

1ère question:

Dans la première feuille la colonne est dédiée à la date de réception d'un échantillon, elle est sous le format suivant JJ/MM/AAAA (ex 08/06/2011). Dans la deuxième feuille (listing mensuel) je choisi le mois et l'année que je veux afficher (ex: juin et 2011). Les informations de mois et années sont dans 2 cellules distinctes de la feuille.

Comment puis-je faire pour effectuer un tri dans la base afin de pouvoir après afficher dans le listng les cellules visibles? Mon problème se trouve essentiellement sur le tri et les paramètres (critères).

2ème question:

Une fois le mois et l'année sélectionnée, le listing s'affiche (quand je saurais le faire ). J'aimerais pourvoir mettre sur cette feuille deux bouton (précédent et suivant) afin que l'utilisateur puisse naviguer dans les mois facilement et lorsque l'on arrive en janvier 2011 si on fait précédent que décembre 2010 s'affiche. Quelqu'un sait-il comment faire?

Voilà c'est à peu près tout, si une âme charitable à des idées je suis preneur

Merci pour l'aide!

[mandrake57]

Bon je crois avoir trouver un bout de réponse:

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
16
17
18
Sub tri_dates()
Dim ldateini As Long, ldatefin As Long, dl As Long
Dim dateini As Date, datefin As Date
 
With Sheets("Essai") 'on travaille sur la feuille "Eléments"
    mois = .Range("A1").Value
    annee = .Range("A2").Value 'définition de la valeur de la variable "annee"
    dateini = DateSerial(annee, mois, 1) 'définition de la variable "dateini" en fonction de la variable "annee"
    datefin = DateSerial(annee, mois + 1, 1) 'définition de la variable "datefin" en fonction de la variable "annee"
    ldateini = CLng(dateini) 'définition de la variable "ldateini" (date sous format numérique windows)
    ldatefin = CLng(datefin) 'définition de la variable "ldatefin" (date sous format numérique windows)
End With
 
With Sheets("Base")
    .Range("A3:AX10000").AutoFilter Field:=1, Criteria1:=">" & ldateini, Operator:=xlAnd, Criteria2:="<=" & ldatefin
End With
 
End Sub

Par contre le mois que je rentre je le rentre en lettres (ex: janvier), et j'ai besoin qu'il soit en chiffre, mais je ne vois pas comment faire...

[Philippe Tulliez]

Bonjour,
Il est préférable d'entrer la date dans une cellule quitte à modifier le format mmm ou mmmm pour visualiser le mois.
Ainsi dans ton code, il te suffit d'utiliser les fonctions Year et Month pour extraire les n° de la même cellule

Code :

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

1
2
annee = Year(.Range("A2"))
mois = Month(.Range("A2"))

[mandrake57]

J'y ai pensé, mais pour une raison de configuration de la feuille j'ai préféré n,e pas le faire. Mais bon ça simplifierait les choses alors je vais peut-être y passer quand même.