Discussion :

[wahabts7]

bonjour à tous
j'ai une feuille exxcel où j'ajoute des données au fur et à mesure, et j'ai une autre feuille où je copie les données de la première feuille qui ne sont pas encore copiées . je voudrai que la macro me permettant de copier les données dans la seconde feuille soit actualisée chaque 5min . quelqu'un aurait une piste ?
merci

[rvtoulon]

Slt, wahabts7
voici un exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub misajour()
    ' Définit l'intervalle avec l'heure actuelle + 5 minutes
    DansCinqMinutes = TimeSerial(Hour(Time), Minute(Time) + 5, Second(Time))
    ' Appel récursif de la fonction miseajour
    Application.OnTime DansCinqMinutes, "miseajour"
    ' Appel de la fonction calcul
    Call calcul
End Sub
Sub calcul()
[A1] = [A1] + 1
End Sub

Ici toute les 5 mn on ajoute 1 dans la cellule A1.
En fait, L'application OnTime permet de lancer une procédure à une heure donnée.
Pour répéter une action à intervalles donnés, il ne faut donc pas que tu appelles ta procédure "Calcul", mais que tu appel à nouveau ta procédure "miseajour" de manière à boucler.
Adapte le à tes besoins.

[wahabts7]

merci pour ta réponse
mais je ne vois pas comment ça fonctionne
est ce que je dois ajouter un bouton mise à jour ou cela va se faire automatiquement et qu'est ce que je dois faire de ma macro qui copie les données , est ce que c ce que t'as apppelé toi calcul?
merci

[rvtoulon]

Slt,
tu dois mettre cet exemple dans un module. Ensuite plusieurs possiblité s'offre à toi:
soit tu affecte la macro miseajour à un bouton de commande et une fois lancée elle se mettras à jour toutes les cinq minutes, soit tu peux la démarrer à l'ouverture de ton fichier par exemple dans ThisWorkbook :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Workbook_Open()
Call miseajour
End Sub

Ensuite,

qu'est ce que je dois faire de ma macro qui copie les données , est ce que c ce que t'as apppelé toi calcul?

Effectivement tu dois remplacer calcul par ta macro qui fait la copie :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub misajour()
    ' Définit l'intervalle avec l'heure actuelle + 5 minutes
    DansCinqMinutes = TimeSerial(Hour(Time), Minute(Time) + 5, Second(Time))
    ' Appel récursif de la fonction miseajour
    Application.OnTime DansCinqMinutes, "miseajour"
    ' Appel de la fonction calcul
    Call Tamacro
End Sub
 
Sub Tamacro()
'Ton code qui copie les données ......
End Sub

[wahabts7]

merci beaucoup
ça a l'air de fonctionner mais il me met l'actualisation immédiatement et non pas après 5 min ce qui m'arrange mais je ne sais pas si c du hasard

il ya effectivement un souci
a chaque fois que j'ajoute une ligne dansla feuil1 , il copie la donnée dans la feuille 2 automatiquement mais le problème il me'affiche un message d'erruer:
impossible de trouver la macro mise a jour
je ne sais aps d'ou ça vient ?

[rvtoulon]

Comment lance tu la macro? ou est-elle placée, dans un module, dans une feuille?

EDIT: Effectivement il y a une erreur alors qu'elle fonctionnait bien, bizarrement excel dit que la macro n'est pas disponible dans le classeur ou que les macros soient désactivées alors qu'elle est bien dans le classeur.