CAISSE ENRENGISTREUSE
15081973
Messages postés
5
Date d'inscription
mardi 20 décembre 2005
Statut
Membre
Dernière intervention
26 septembre 2008
-
28 avril 2006 à 09:15
rd8 Messages postés 1 Date d'inscription vendredi 10 mai 2013 Statut Membre Dernière intervention 10 mai 2013 - 10 mai 2013 à 11:59
rd8 Messages postés 1 Date d'inscription vendredi 10 mai 2013 Statut Membre Dernière intervention 10 mai 2013 - 10 mai 2013 à 11:59
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/36827-caisse-enrengistreuse
https://codes-sources.commentcamarche.net/source/36827-caisse-enrengistreuse
10 mai 2013 à 11:59
Je voudrais que la colonne b2:b24 de la feuille 1 sois enregistré sur la feuille 3 en c2:c24 puis d2:d24 apres chaque appui sur reset
reset
Dim temps
Sub majHeure()
ThisWorkbook.Sheets("Commande").[H4] = Now
temps = Now + TimeValue("00:00:1")
Application.OnTime temps, "majHeure"
End Sub
Sub auto_open()
majHeure
End Sub
Sub auto_close()
On Error Resume Next
Application.OnTime temps, Procedure:="majHeure", Schedule:=False
End Sub
Sub Reset()
Range("B2:B24").ClearContents
Range("E13") = ""
End Sub
Sub Imprime()
Application.ScreenUpdating = False
With Sheets("A Imprimer")
.Visible = xlSheetVisible ' On affiche la page
.PageSetup.PrintArea = "A1:C29"
.PrintPreview ' Pour avoir l'apperçu avant impression
'.PrintOut ' Pour imprimer directement
'.Visible = xlSheetHidden ' On masque la page
End With
End Sub
16 mai 2010 à 02:05
Merci
30 janv. 2010 à 19:29
en esperant que la suite arrive bientôt
cool
2 oct. 2009 à 11:04
si vous avez terminer donner moi pour la voir svp
28 avril 2006 à 09:15