Comment sauvegarder des donnée a chaque changement de ma macro

Dans ce cas dsl, je viens de débuter sur ce sujet, la personne qui a fait le lien avec le logiciel externe que j'utilise m'a dit que c'était une macro, ou peut être est-ce moi qui ai confondu

Merci eriiic,
Pour moi c'est OK.
Salutations

bonjour,

J'ai un peu bosser hier soir après notre discutions, histoire de ne plus passer pour un ignorant.
Désormais je sais ce qu'est vraiment une macro, ce qui je pence pourrais faire avancer les choses.

Donc j'ai créer ma première macro.

Sub Copier_coller_01()
'
' Copier_coller_01 Macro
'

Range("G5").Select
ActiveCell.FormulaR1C1 = "=IT|Price!'SMI.SWI,Last'"
Range("G5").Select
Selection.Copy
Range("F5").Select
ActiveSheet.Paste
End Sub

Je tombe déjà sur un problème quand je l'exécute, il me copie la cellule donc =IT|Price!'SMI.SWI,Last , et non le nombre qui s'affiche dans la cellule.

Pouvez-vous m'aider. Merci.

Salutation.

J'ai finis par trouver.
Merci

Ah oui magnifique merci beaucoup

arnaud

Tu as vraiment regardé l'aide excel ??????
L'exemple donné c'est :
Notes
Utilisez Now + TimeValue(time) pour programmer une procédure à exécuter après un certain délai (à partir de maintenant). Utilisez TimeValue(time) pour programmer une procédure à exécuter à un moment précis.

Exemples
Cet exemple montre comment exécuter my_Procedure dans 15 secondes.

Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"


eric

Maintenant j'en suis la

Sub m_mobile_per_5()
Application.OnTime TimeValue("00:05:00")
[D5] = [C5].Value
Application.OnTime TimeValue("00:05:00")
[E5] = [D5].Value
Application.OnTime TimeValue("00:05:00")
[F5] = [E5].Value
Aplication.OnTime TimeValue("00:05:00")
[G5] = [F5].Value
End Sub

il me dit : "erreur de compilation
argument non facultatif"

En me surlignant en jaune la première ligne.

Oui, ça fait ça quand on n'en met que la moitié...
Application.OnTime Now + TimeValue("00:00:15"), "my_Procedure"

Et tu n'as pas à la relancer 4 fois, une fois suffit
Essaie avec :

Sub m_mobile_per_5()
   [D5] = [C5].Value
   [E5] = [D5].Value
   [F5] = [E5].Value
   [G5] = [F5].Value
   Application.OnTime  Now + TimeValue("00:05:00"), "m_mobile_per_5" ' relancer dans 5'
End Sub

Mais je croyais que tu voulais propager ta sauvegarde de la droite vers la gauche ? Là tu fais l'inverse. Il faudrait sans doute démarrer par [F5] = [G5].Value non ?

eric