Re : Alerte Date du mois
Bonjour Staple,
En fait au départ j'ai un formulaire me permettant de filtrer ma BDD avec différents critères. Je souhaitais à l'aide de 2 TextBox (TextBox1= date1) et (TextBox2= date2) demander un filtrage par exemple de tous les contrats arrivant à échéance entre date1 (TextBox1) et date2 (TextBox2). Sachant que les dates de fin de contrats se trouvent en Colonne "AY".
Exemple : je voudrai tous les contrats arrivant à échéance entre le 17 septembre 2014 et le 26 novembre 2014.
Mais je bloque sur le critère. Voici mon bout de code.
Private Sub CmdVoir_Click()
'NomJeuneFille
If ComboBox2.ListIndex <> -1 Then
jeunefille = ComboBox2.Value
Criteres = Criteres & "(bdd!AQ2 = """ & jeunefille & """) * "
End If
'Statut
If CboStatut.ListIndex <> -1 Then
statut = CboStatut.Value
Criteres = Criteres & "(bdd!H2 = """ & statut & """) * "
End If
'Date1
If TextBox2.Value <> "" Then
Datedebut = TextBox2.Value
Criteres = Criteres & "(bdd!AY2 >= """ & Format(TextBox2, "dd/mm/yyyy") & """) * "
End If
'Date2
If TextBox3.Value <> "" Then
Datefin = TextBox3.Value
Criteres = Criteres & "(bdd!AY2 <= """ & Format(TextBox3, "dd/mm/yyyy") & """) * "
End If
Criteres = "=" & Criteres & "1"
Sheets("filtre").Range("A2").Value = Criteres
Sheets("filtre").Activate
Range("zonebdd").AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Range("A1:A2"), CopyToRange:=Range("A4:AZ4"), Unique:=False
If Range("filtre!A5").Value = "" Then
MsgBox ("Aucun nom ne répond à tous vos critères")
ElseIf Range("filtre!A5").Value <> "" Then
ActiveWorkbook.Names.Add Name:="Fiche", RefersToR1C1:= _
"=OFFSET(filtre!R5C2,,,COUNTA(filtre!C2)-1)"
Unload frmCriteres
frmSelect.Show
Else
nom = Range("A5").Value
With Sheets("bdd").Range("A:A")
Set C = .Find(Titre, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then Lig = C.Row
End With
Unload frmCriteres
End If
End Sub
Hélas, ce critère ne fonctionne pas.