Discussion :

[gilou41]

Bonjour, mon fichier, dans colonne A des dates (une même date peut y apparaitre plusieurs fois) , dans colonne B des commentaires. Un userform avec 2 listbox dans lesquelles je retrouve les dates de colonne A.
Mon probleme est de recuperer une période et ses commentaire. La période étant définie par mes listbox "début période" et "Fin période" et de copier ces données en Feuil2 colonne A.
Merci de votre aide

[Godzestla]

Bonjour,

en cherchant quelques secondes sur cette même page, on trouve ceci

[gilou41]

Bonjour le code que j'ai trouvé avec ton lien ne me donne pas le résultat escompté

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
DateDeb = DateSerial(2011, 1, 2) 'A toi de voir comment l'utilisateur indiquera cette info
DateFin = DateSerial(2011, 2, 3)
 
For i = 1 To 31
  With Range("A" & i)
    If .Value <> "" And .Value >= DateDeb And .Value <= DateFin Then
       'lundi au dimanche
        val_a = Weekday(.Value, vbMonday)
        Range("D" & i).Value = Range("data!B" & val_a + 2).Value
    End If
  End With
Next i

Ce code me copie le commentaire de la premiere date et de la seconde. Dans ma liste ces 2 dates se retrouvent plusieurs fois avec des commentaires different. Exemple ci-dessous

date Commentaire
dimanche 2 janvier 2011 Commmentaire1
dimanche 2 janvier 2011 Commmentaire2
dimanche 2 janvier 2011 Commmentaire8
jeudi 3 février 2011 Commmentaire11
jeudi 3 février 2011 Commmentaire17
jeudi 3 février 2011 Commmentaire18
dimanche 6 mars 2011 Commmentaire5
dimanche 6 mars 2011 Commmentaire12
dimanche 6 mars 2011 Commmentaire19
samedi 4 juin 2011 Commmentaire6
samedi 4 juin 2011 Commmentaire13
samedi 4 juin 2011 Commmentaire20
mardi 5 juillet 2011 Commmentaire7
mardi 5 juillet 2011 Commmentaire14
mardi 5 juillet 2011 Commmentaire21

Ce que le cherche c'est recuperer l'ensemble des dates et leurs commentaires de la période choisie.
Merci d'avance

[Godzestla]

1) je n'ai jamais dit que c'était TA solution
2) ce site ne fait pas du sur mesure pour client exigeant.

Relis les rêgles du forum.

En fait, tu prends tes 2 mains, tu retrousses des manches, et hop tu es dans la peau de quelqu'un qui cherche donc trouves.