Timer 4 feuilles
Fermé
chrisnapoli
-
Modifié le 24 avril 2018 à 09:33
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 25 avril 2018 à 21:42
yg_be Messages postés 21303 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 mars 2023 - 25 avril 2018 à 21:42
A voir également:
- Timer 4 feuilles
- Code gta 4 - Guide
- Shutdown timer - Télécharger - Personnalisation
- Fusionner feuilles excel - Guide
- Clé de licence sims 4 ✓ - Forum Windows
- Bluestacks 4 - Télécharger - Émulation & Virtualisation
4 réponses
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
25 avril 2018 à 00:31
25 avril 2018 à 00:31
bonsoir, peux-tu partager le code qui fait le collage?
Bonjour voila le code que j ai mis dans un module a part comme tu me l 'as dits
Option Explicit
Dim marches() As Worksheet
Sub copy_dh()
Dim marche As Variant
Dim fl As Worksheet
For Each marche In marches
Set fl = marche
Call copy_dhfl(fl)
Next marche
End Sub
Private Sub copy_dhfl(sh As Worksheet)
sh.Range("D12:H51").Value = sh.Range("AS12:AW51").Value
sh.Range("C12:C51").ClearContents
sh.Range("C11") = Now
End Sub
Sub init_marches()
ReDim marches(3)
Set marches(0) = Sheets("CAC40")
Set marches(1) = Sheets("AEX")
Set marches(2) = Sheets("BEL20")
Set marches(3) = Sheets("PSI20")
End Sub
j ai démarré ce matin avec le fichier CAC seul avec le timer mais sans les quatres feuilles
ca marche parfaitement
donc puisque la procédure du collage pour les ok fonctionnent sur le fichier 4 feuilles ...pourquoi mes cotations ne se collent pas??mystere?? puisque le code de collage concernant les cotations elles même est exactement le même...??????
ca marche parfaitement
donc puisque la procédure du collage pour les ok fonctionnent sur le fichier 4 feuilles ...pourquoi mes cotations ne se collent pas??mystere?? puisque le code de collage concernant les cotations elles même est exactement le même...??????
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
25 avril 2018 à 09:18
25 avril 2018 à 09:18
tu nous montres le code qui travaille à la fermeture du fichier. peux-tu montrer le code qui fait le collage toutes les minutes?
Bonsoir
tout a marche correctement aujourd’hui j ai arrêté l aprem parcequil me fallait travailler sur le fichier
le problème est que la procédure de clear content m a effacé toutes mes cotations
est ce que je peu enlever l a ligne de code suivante et faire un bouton pour la remplacer
??
dans ce cas comment écrire le code et ou, dans un module a part??
Range("NR12:AHW131").ClearContents
tout a marche correctement aujourd’hui j ai arrêté l aprem parcequil me fallait travailler sur le fichier
le problème est que la procédure de clear content m a effacé toutes mes cotations
est ce que je peu enlever l a ligne de code suivante et faire un bouton pour la remplacer
??
dans ce cas comment écrire le code et ou, dans un module a part??
Range("NR12:AHW131").ClearContents
yg_be
Messages postés
21303
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
18 mars 2023
1 326
>
chrisnapoli
25 avril 2018 à 21:42
25 avril 2018 à 21:42
il me semble que tu mélanges les discussions.