C
chris33490
Guest
Bonjour,
j'ai un souci d'erreur d'execution 9 avec une macro creer pour ranger dans un tableau puis ranger dans une autre feuille pour garder en historique :
Private Sub CommandButton1_Click()
'macro de tri feuil1 pour avoir toujours les ligne au bon endroit
trivba
'forcer la date dans textbox
If Not IsDate(TextBox1) Then
MsgBox "Format incorrect"
TextBox1 = ""
Exit Sub
End If
'contenu de textbox dans F54
range("f54") = TextBox1
'archiver la date dans une autre feuille ( erreur a ce niveau )
Dim casefin As range
Set casefin = workSheets("Feuil9").range("C65536").End(xlDown)
casefin.Offset(1, 0).Value = workSheets("Feuil1").range("F23").Value
' macro de tri feuil1 pour ranger suivant echeance
triecheance
'fermeture programme
UserForm2.Hide
End Sub
Merci à celui qui pourra me répondre , j'ai essayer beaucoup de code different mais rien n'y fait .
Cordialement
j'ai un souci d'erreur d'execution 9 avec une macro creer pour ranger dans un tableau puis ranger dans une autre feuille pour garder en historique :
Private Sub CommandButton1_Click()
'macro de tri feuil1 pour avoir toujours les ligne au bon endroit
trivba
'forcer la date dans textbox
If Not IsDate(TextBox1) Then
MsgBox "Format incorrect"
TextBox1 = ""
Exit Sub
End If
'contenu de textbox dans F54
range("f54") = TextBox1
'archiver la date dans une autre feuille ( erreur a ce niveau )
Dim casefin As range
Set casefin = workSheets("Feuil9").range("C65536").End(xlDown)
casefin.Offset(1, 0).Value = workSheets("Feuil1").range("F23").Value
' macro de tri feuil1 pour ranger suivant echeance
triecheance
'fermeture programme
UserForm2.Hide
End Sub
Merci à celui qui pourra me répondre , j'ai essayer beaucoup de code different mais rien n'y fait .
Cordialement