Re : afficher dans la listview les lignes qui sont supérieur à 90 jours
Re
je crois que ça vient de l'envoi des données vers la feuille,car c'est avec un autre USF que j'envoi mes données.
voila mon code pour valider les données
j'utilise un MaskEdBox1 pour la date
Private Sub CommandButton1_Click()
Dim WsBase As Worksheet
If TextBox1 = "" Then
MsgBox "Votre Contact n'a pas de nom ? ", vbCritical, "Mode Nouveau Validation Error"
Exit Sub
End If
Feuille = ActiveSheet.Name
Range("A2:d2").Select
Selection.Insert Shift:=xlDown
With Sheets(Feuille)
.Range("a2").Value = MaskEdBox1.Text
.Range("b2").Value = TextBox1.Text 'nom
.Range("c2").Value = TextBox2.Text 'prénom
.Range("d2").Value = TextBox3.Text 'déclics
End With
Range("A2
35000").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox1.SetFocus
Unload Me
UserForm1.Show
End Sub