Bonjour,
Ci dessous une partie du code d'archivage sur lequel je bosse :
Mon problème est le suivant que je lance l'archivage, avec comme critère "Reponse1" dans la fonction Archivage je récupère dans la liste de affaires terminée certaines supérieures à la date spécifée en Inputbox,
si je remplace Reponse1 par une date précise dans
exemple :
alors je n'ai plus d'erreur.
Comment pourrais corriger ma fonction d'archivage pour que la valeur obtenue en Inputbox ait le même effet que le fait d'indiquer une date directement dans le code.
Merci d'avance.
Pour info j'ai bien tenté de récupérer les dates de fin dans une listebox dans un USERFORM pour faciliter le choix de l'utilisateur mais là ça dépasse mes compétence en VBA donc j'essaye de rester simple.
Ci dessous une partie du code d'archivage sur lequel je bosse :
Code:
Sub Lancement_archiv()
Dim Rep As Integer
Dim Reponse1 As Date
Rep = MsgBox("Lancement de la procédure d'archivaghe : voulez-vous continuez ?", vbYesNo + vbQuestion, "PROCÉDURE D'ARCHIVAGE !!")
If Rep = vbYes Then
Reponse1 = InputBox("Veuillez préciser la date d'archivage voulue en respectant le format JJ/MM/AAAA : ")
If Reponse1 = Empty Then
MsgBox ("Critères d'archivages insuffisant : Fin de la procédure !")
Exit Sub
End If
If Not IsDate(Reponse1) Then
MsgBox ("Veuillez enter une date valide !")
Reponse1 = InputBox("entrer date")
End If
If CDate(Reponse1) > Date Then
MsgBox "La date doit être inférieure à la date d'aujourd'hui !"
Reponse1 = InputBox("entrer date")
End If
Archivage
Else
Exit Sub
End If
End Sub
Code:
Sub Archivage()
Dim p As Long
For p = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(p, 8) <= Reponse1 And Cells(p, 28).Text Like "*Procédure terminée*" Then
Rows(p).Cut Destination:=Worksheets("ARCHIVE TMP").Cells(p, 1)
End If
Next p
End Sub
Mon problème est le suivant que je lance l'archivage, avec comme critère "Reponse1" dans la fonction Archivage je récupère dans la liste de affaires terminée certaines supérieures à la date spécifée en Inputbox,
si je remplace Reponse1 par une date précise dans
Code:
If Cells(p, 8) <= Reponse1
Code:
If Cells(p, 8) <= "31/12/2010"
Comment pourrais corriger ma fonction d'archivage pour que la valeur obtenue en Inputbox ait le même effet que le fait d'indiquer une date directement dans le code.
Merci d'avance.
Pour info j'ai bien tenté de récupérer les dates de fin dans une listebox dans un USERFORM pour faciliter le choix de l'utilisateur mais là ça dépasse mes compétence en VBA donc j'essaye de rester simple.