Copier/coller cellule de feuille à feuille toutes les 60mn

Question

Déjà merci beaucoup de votre aide, grâce a ce forum, a vous tous, j'arrive a travailler sur excel avec des macros, alors que je n'y connais rien du tout... Alors je vous demanderez un tout petit peu d'indulgence... mais je ne m'en fait pas... Donc voilà le soucis, j'aimerai, pour de l'événementiel, créer une mini caisse enregistreuse pour les 3 bars, mais sans tiroir caisse, puisque cela fonctionne avec des tickets, c'est juste pour enregistrer les commandes, pour une gestions de stock et quantité écoulé a l'heure. Donc j'ai commencé un exemple sur fichier excel avec des boutons, que je vous ai mis en pièce jointe, vous comprendrez mieu Mon soucis c'est que j'aimerai: que toute les 60mn (du Chrono F19), des cellules de feuille 1 aillent dans des cellules de la feuille 3, tout en sautant 1 ligne toutes les 60 mn biensur. F19 vers A2 C13 vers B2 E13 vers C2 G13 vers D2 I13 vers E2 K13 vers F2 Merci d'avance, les critiques et avis sont les bienvenues A très bientot PLS47...

Juice · Answer

Ci-dessous un code que tu peux utiliser pour ton problème : Option Explicit Public h As String, t As Long Sub Init() h = Mid(Now, 12, 2) Chrono End Sub Sub Chrono() If Mid(Now, 12, 2) &lt;&gt; h Then Call MaMacro Application.OnTime Now + TimeValue("00:00:01"), procedure:="Chrono" End Sub Sub MaMacro() 'Ici ton code Init End Sub Voilà donc : La macro Init est la pour initialiser le chrono en donnant l'heure à la variable h (Genre la au moment où j'écris ce post, la variable h prendrait la valeur "15") La macro Chrono est lancé, et toutes les secondes, on vérifie l'heure ! Et si l'heure est différente de celle qui a été enregistré par h alors on lance ta macro Restant à dispo...

Juice · Answer

Re! Méaculpa x) Je pensais que tu cherchais un code pour le chrono alors que tu l'avais déjà x) J'avais pas regardé ton fichier! Bref! Désolé pour le HS, et tu trouvera ci-joint ton fichier modifier avec les codes suivants : Private Sub Worksheet_Change(ByVal Target As Range) If Target = &#91;F19&#93; And &#91;F19&#93; = "01:00:00" Then CopyPaste End Sub Sub CopyPaste() Dim i As Long Application.EnableEvents = False Sheets(1).Cells(19, 6) = 0 i = Sheets(2).Range("A" &amp; Rows.Count).End(xlUp).Row + 1 With Sheets(2) .Cells(i, 1) = Mid(Now, 12, 2) .Cells(i, 2) = Sheets(1).Cells(13, 3) .Cells(i, 3) = Sheets(1).Cells(13, 5) .Cells(i, 4) = Sheets(1).Cells(13, 7) .Cells(i, 5) = Sheets(1).Cells(13, 9) .Cells(i, 6) = Sheets(1).Cells(13, 11) End With Reinitialisation End Sub Pour que t'ai pas a attendre une heure de voir comment ce passe le copier / coller je t'invite à modifier les critères de lancement de la macro par genre ="00:00:05" A dispo...

Juice · Answer

Re- PLS Un plaisir ! Okep remplace le code que je t'ai mis par celui ci-dessous et l'heure ne repassera pas à zéro : Public Heure As Integer Private Sub Worksheet_Change(ByVal Target As Range) If Target = &#91;F19&#93; And &#91;F19&#93; = Heure &amp; ":00:00" Then CopyPaste End Sub Sub CopyPaste() Dim i As Long Heure = Heure + 1 Application.EnableEvents = False i = Sheets(2).Range("A" &amp; Rows.Count).End(xlUp).Row + 1 With Sheets(2) .Cells(i, 1) = Mid(Now, 12, 2) .Cells(i, 2) = Sheets(1).Cells(13, 3) .Cells(i, 3) = Sheets(1).Cells(13, 5) .Cells(i, 4) = Sheets(1).Cells(13, 7) .Cells(i, 5) = Sheets(1).Cells(13, 9) .Cells(i, 6) = Sheets(1).Cells(13, 11) End With Application.EnableEvents = True End Sub Dans mon code non, dans celui qui ta fais le chrono oui :p Quand tu clic sur 'Start' le code démarre direct à zéro A dispo...