Macro exécuté en 2 temps
Fermé
Spail
Messages postés
5
Date d'inscription
vendredi 25 décembre 2015
Statut
Membre
Dernière intervention
28 juin 2016
-
25 déc. 2015 à 01:43
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 25 déc. 2015 à 16:42
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 25 déc. 2015 à 16:42
A voir également:
- Macro exécuté en 2 temps
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Blocage agriculteur carte en temps réel - Accueil - Transports & Cartes
- Renommer plusieurs fichiers en même temps - Guide
- Macro word - Guide
4 réponses
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
25 déc. 2015 à 08:38
25 déc. 2015 à 08:38
Bonjour,
je ne comprends pas ton problème parce que ton code fonctionne parfaitement
Sub j() 'en_ai_marre()
ActiveWorkbook.RefreshAll
Sheets("Feuil1").Range("G2:G41").Copy Sheets("Feuil2").Range("B1")
Sheets("Feuil2").Select
Range("B1:B40").Replace What:=".", Replacement:="."
End Sub
par contre dans ta demande du parle de "je suis obligé de la relancer pour avoir un transfert dans le second classeur"
s'agit il d'un autre classeur ou sur la feuille suivante
je ne comprends pas ton problème parce que ton code fonctionne parfaitement
Sub j() 'en_ai_marre()
ActiveWorkbook.RefreshAll
Sheets("Feuil1").Range("G2:G41").Copy Sheets("Feuil2").Range("B1")
Sheets("Feuil2").Select
Range("B1:B40").Replace What:=".", Replacement:="."
End Sub
par contre dans ta demande du parle de "je suis obligé de la relancer pour avoir un transfert dans le second classeur"
s'agit il d'un autre classeur ou sur la feuille suivante
Bonjour
voir aussi comme ca
A+
Maurice
voir aussi comme ca
Sub J2() L1 = 1 Sheets("Feuil1").Select For L = 2 To 41 Sheets("Feuil2").Range("B" & L1).Value = Val(Range("G" & L).Value) L1 = L1 + 1 Next Sheets("Feuil2").Select End Sub
A+
Maurice
Spail
Messages postés
5
Date d'inscription
vendredi 25 décembre 2015
Statut
Membre
Dernière intervention
28 juin 2016
25 déc. 2015 à 14:54
25 déc. 2015 à 14:54
Merci pour ta réponse Maurice, malheureusement quand je rajoute le code pour actualiser cela me transfert les anciennes données et non les actualisées que je désire
Mike-31
Messages postés
18354
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
1 janvier 2025
5 110
Modifié par Mike-31 le 25/12/2015 à 15:45
Modifié par Mike-31 le 25/12/2015 à 15:45
Re,
je pense que tu as un problème avec ton fichier, ferme Excel et ouvre le à nouveau et
colle un code dans un nouveau fichier et saisir des données avec un point
comme séparateur de décimale dans ta plage G2:G41 et active le code voir
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
je pense que tu as un problème avec ton fichier, ferme Excel et ouvre le à nouveau et
colle un code dans un nouveau fichier et saisir des données avec un point
comme séparateur de décimale dans ta plage G2:G41 et active le code voir
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 779
25 déc. 2015 à 16:42
25 déc. 2015 à 16:42
Bonjour,
Tu parles de 2 classeurs mais dans ton code il n'est fait référence qu'à un seul !!!
Tu parles de 2 classeurs mais dans ton code il n'est fait référence qu'à un seul !!!
25 déc. 2015 à 14:48
25 déc. 2015 à 14:59
bizarre, je l'ai testé et je viens de la retester encore à l'instant, je lance et le code qui copie les données de la feuille1 sur la feuille 2 et remplace le point par la virgule sur la feuille 2 en une seule et unique opération
je ne vois pas pourquoi sur ton système tu es obligé de relancer le code
25 déc. 2015 à 15:13