probleme d'archivage de date [Résolu]

[chris33490]

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 :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 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("F54").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

[jfontaine]

Bonjour,

la ligne suivante te place sur la dernière ligne de la feuille

Code :

Set casefin = workSheets("Feuil9").range("C65536").End(xlDown)

et celle ci veut écrire sur al ligne suivante. (qui n'existe pas)

Code :

casefin.Offset(1, 0).Value = workSheets("Feuil1").range("F54").Value

remplaces cette ligne comme suit et je pense que ca devrait mieux fonctionner

Code :

Set casefin = workSheets("Feuil9").range("C65536").End(xlUp)

[chris33490]

Bonjour ,

Merci pour ta reponse .
ca n'a pas marché sur le coup mais à force de réecriture le code à enfin reussi à passer aprés avoir appeler les feuilles par leurs noms ( ex : "Feuil9" reecrit "Divers" ).
j'ai maintenant un detail que je ne comprend pas quand je note 12/09/2011 dans la textbox j'ai bien cette date dans mon tableau mais j'ai 09/12/2011 dans mon historique même en mettant des format de cellules date identique sur les 2 feuilles ??

Cordialement

[jfontaine]

j'ai maintenant un detail que je ne comprend pas quand je note 12/09/2011 dans la textbox j'ai bien cette date dans mon tableau mais j'ai 09/12/2011 dans mon historique même en mettant des format de cellules date identique sur les 2 feuilles ??

Excel a tendance à convertir les dates au format américain si tu ne spécifie pas que la donnée est de type date
Ci dessous on convertit la donnée au format date

Code :

Range("A1").Value = Cdate(textbox1.Text)

[chris33490]

Merci beaucoup pour ton aide , plus de problème

Cordialement