Macro recherche date

Version imprimable

05/03/2011, 15h17
duplaly

Macro recherche date

Allo tout le monde, votre aide est appréciée.
Résumé simple du cas
Je travaille dans tableau excel qui a 10 colonnes et 65536 lignes.
colonne A= date
colonne B= Prenom
colonne C= Nom
colonne D= Titre
colonne C= quart
etc

je voudrais une macro pour faire une recherche entre 2 dates. Je veux pouvoir rentrer une date de début et une date de fin dans un userform et faire recherche dans cette intervalle.
Merci pour aide.

http://cjoint.com/?1dfdeyhMNmj

http://cjoint.com/?1dfdhvLSoOf
05/03/2011, 16h16
pgz

Bonjour.

Citation:

Envoyé par duplaly

Je veux pouvoir rentrer une date de début et une date de fin dans un userform et faire recherche dans cette intervalle.

Et tu veux trouver quoi?

COrdialement,

PGZ

Bonjour,
dans l'USF :
2 DTpicker 1 nommé "debut", 1 nommé "fin"
1 listbox
ton bouton de commande
tu ajouteras les colonnes désirées
et code dansl'USF

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub CommandButton1_Click()
Dim derlg As Long, i As Long
x = 1
With Sheets("Nazaire")
   derlg = .Range("A" & .Rows.Count).End(xlUp).Row
   ListBox1.Clear
   For i = 17 To derlg
      If CDate(.Range("A" & i)) >= CDate(debut) And CDate(.Range("A" & i)) <= CDate(fin) Then
         ListBox1.AddItem .Range("C" & i)
         ListBox1.Column(1, ListBox1.ListCount - 1) = .Range("B" & i)
      End If
   Next i
End With
 
End Sub

05/03/2011, 20h50
duplaly

@ pgz
Allo
Je veux pouvoir à partir de la colonne (A ) qui renferme les dates
mettre une date de début et de fin

ensuite avec l'intervalle choisie je veux faire des recherches sur toutes les colonnes dépendant de ce que je veux voir.
Merci pour ton aide

@ casefayere
Bonjour
merci pour l'aide, mais rien ne fonctionne. Ma feuille de référence pour les recherches est Empl.

je suis un novice dans VB, donc plus détaillées les réponses.
05/03/2011, 23h11
casefayere

je n'ai fiat que reprendre ton USF, il ne reste qu'a changer la feuille donc au lieu de :

Code:

With Sheets("Nazaire")

mettre

Code:

With Sheets("Empl")

apràs sur le listbox, à toi de choisir le nombre de colonnes,
tu es novice mais je viens de compter dans l'éditeur VBA pas moins de 19 modules, je conviens que certains sont vides, mais...

Sais-tu importer un USF ?, si oui je le joint tel quel et ça te donneras des idées.

Bonne nuit, soirée chargée pour moi et fatigue
08/03/2011, 01h18
duplaly

Aide VBA pour mon fichier

bonjour à vous
Je travaille sur un fichier excel et j'ai l'impression que je tourne en rond.
Ultimement,
je voudrais être capable de choisir une date de début et de fin (colonne A)
choisir un hopital (colonne I)
choisir le titre (colonne D)
et sortir le résultat dans ma feuille PAB exemple.
la feuille Empl est la feuille principale pour faire la recherche.

voici l'adresse pour le fichier.
http://cjoint.com/?1diaL4Mh7v
merci