Macro un peu plus lente
Résolu/Fermé
achgel
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
-
30 août 2016 à 00:00
achgel Messages postés 108 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 - 4 sept. 2016 à 13:53
achgel Messages postés 108 Date d'inscription mercredi 26 août 2009 Statut Membre Dernière intervention 25 octobre 2019 - 4 sept. 2016 à 13:53
A voir également:
- Macro un peu plus lente
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Macro word - Guide
- Comment nettoyer un ordinateur lent - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
- Macro logiciel - Télécharger - Organisation
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
Modifié par michel_m le 30/08/2016 à 08:36
Modifié par michel_m le 30/08/2016 à 08:36
Bonjour
dans
quelles sont les adresses des cellules à copier ? est ce C4 ?
déjà commence ta macro par
Application.screenupdating=false
qui fige le défilement de l'écran: rapidité et confort pour les yeux...
Michel
dans
Sheets("L S P").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("Saisie-LSP").Select
Selection.Copy
quelles sont les adresses des cellules à copier ? est ce C4 ?
déjà commence ta macro par
Application.screenupdating=false
qui fige le défilement de l'écran: rapidité et confort pour les yeux...
Michel
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
30 août 2016 à 09:14
30 août 2016 à 09:14
en supposant qu'il s'agisse bien de C4
macro un peu plus rapide et plus condensée
macro un peu plus rapide et plus condensée
Sub Ajout_Info_LSP()
Dim Tablo_c, Tablo_f, Tablo_out, cptr As Byte, Cpt_out As Byte
'---------initialisations
Application.ScreenUpdating = False
'mise en mémoire Ram daes éléments en "saisie lsp"
With Sheets("Saisie-LSP")
Tablo_c = Application.Transpose(.Range("C4:C28"))
Tablo_f = Application.Transpose(.Range("F4:F28"))
'tableau de sortie
ReDim Tablo_out(1 To 26)
End With
'-------transfert des données
For cptr = 1 To 26 Step 2
Cpt_out = Cpt_out + 1
Tablo_out(Cpt_out) = Tablo_c(cptr)
Tablo_out(Cpt_out + 13) = Tablo_f(cptr)
Next
'------ restitution dans la feuille lsp
With Sheets("L S P")
.Range("A2").Resize(1, 26) = Tablo_out
.Columns("A:Z").EntireColumn.AutoFit
.Activate
End With
End Sub
achgel
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
1
30 août 2016 à 12:25
30 août 2016 à 12:25
Bonjour michel_m,
C’était vraiment très gentille de votre part
Votre Macro fonctionne à merveille
Elle est vraiment plus rapide que je ne l'ai pensé
Merci Infiniment
C’était vraiment très gentille de votre part
Votre Macro fonctionne à merveille
Elle est vraiment plus rapide que je ne l'ai pensé
Merci Infiniment
achgel
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
1
3 sept. 2016 à 01:21
3 sept. 2016 à 01:21
Bonsoir michel_m,
Est ce que vous pouvez m'aider à changer la Macro
de façon que la feuille ("L S P") soit toujours caché
Merci
Est ce que vous pouvez m'aider à changer la Macro
de façon que la feuille ("L S P") soit toujours caché
Merci
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
>
achgel
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
3 sept. 2016 à 08:08
3 sept. 2016 à 08:08
Bonjour
il suffit d'enlever "activate" à la fin du code
il suffit d'enlever "activate" à la fin du code
With Sheets("L S P")
.Range("A2").Resize(1, 26) = Tablo_out
.Columns("A:Z").EntireColumn.AutoFit
.ActivateSUPPRIMER CETTE LIGNE
End With
achgel
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
1
3 sept. 2016 à 16:28
3 sept. 2016 à 16:28
Bonjour michei_m,
j'ai suivi votre conseille il marche parfaitement bien
Merci beaucoup
j'ai suivi votre conseille il marche parfaitement bien
Merci beaucoup
achgel
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
1
4 sept. 2016 à 05:02
4 sept. 2016 à 05:02
Bonjour michei_m,
http://www.cjoint.com/c/FIecJ1HimQQ
Je vous envoie le ficher (cjoint) que j'utilise pour enregistrer des (Inf) de la Feuille (Saisie-LSP) à la Feuille (L S P)
Quand (L S P) est visible, je n'ai aucun problème avec l'enregistrement
Mais puisque je voudrais CACHER la Feuille (L S P) il y a un un problème même si je supprime (.Activate)
Sachant que j'ai ajouter les lignes 1 - 2 - 3 à la Macro, que vous m'avez envoyer, et cela pour sélectionner la première ligne de la Feuille (L S P) à chaque fois que je clique sur enregistrer
Merci de me consacrer un peu de votre temps pour remédier à ce problème
Cordialement
http://www.cjoint.com/c/FIecJ1HimQQ
Je vous envoie le ficher (cjoint) que j'utilise pour enregistrer des (Inf) de la Feuille (Saisie-LSP) à la Feuille (L S P)
Quand (L S P) est visible, je n'ai aucun problème avec l'enregistrement
Mais puisque je voudrais CACHER la Feuille (L S P) il y a un un problème même si je supprime (.Activate)
Sachant que j'ai ajouter les lignes 1 - 2 - 3 à la Macro, que vous m'avez envoyer, et cela pour sélectionner la première ligne de la Feuille (L S P) à chaque fois que je clique sur enregistrer
Merci de me consacrer un peu de votre temps pour remédier à ce problème
Cordialement
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
3 sept. 2016 à 13:55
3 sept. 2016 à 13:55
Bonjour le fil, bonjour le forum,
Je me permet d'intervenir dans ce fil, bien que Michel ait déjà tout dit/fait !...
je conseille toujours d'éviter les Select dans un code car il ne font que ralentir l'exécution de celui-ci. Il n'est nullement besoin de Sélectionner quoi que ce soit pour faire une Copier/Coller il suffit juste de spécifier l'origine et la destination
- Copie avec formats :
Copie la cellule A1 de l'onglet Feuil1 dans la cellule B1 de l'onglet Feuil2, avec les formats.
- Copie sans formats
Récupère dans B1 de l'onglet Feuil2 la valeur de la cellule A1 de l'onglet Feuil1 sans les formats.
Je me permet d'intervenir dans ce fil, bien que Michel ait déjà tout dit/fait !...
je conseille toujours d'éviter les Select dans un code car il ne font que ralentir l'exécution de celui-ci. Il n'est nullement besoin de Sélectionner quoi que ce soit pour faire une Copier/Coller il suffit juste de spécifier l'origine et la destination
- Copie avec formats :
Sheets("Feuil1").Range("A1").Copy Sheet("Feuil2").Range("B1")
Copie la cellule A1 de l'onglet Feuil1 dans la cellule B1 de l'onglet Feuil2, avec les formats.
- Copie sans formats
Sheets("Feuil2").Range("B1").Value = Sheet("Feuil1").Range("A1").Value
Récupère dans B1 de l'onglet Feuil2 la valeur de la cellule A1 de l'onglet Feuil1 sans les formats.
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 312
3 sept. 2016 à 14:07
3 sept. 2016 à 14:07
Bonjour,
????
j'ai mis un ou des select ?
????
j'ai mis un ou des select ?
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
>
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 sept. 2016 à 14:12
3 sept. 2016 à 14:12
Bonjour le fil, bonjour le forum,
Mais cette remarque ne s'adressait pas à toi, bien sûr !... Regarde le premier code d'Achgel...
Mais cette remarque ne s'adressait pas à toi, bien sûr !... Regarde le premier code d'Achgel...
achgel
Messages postés
108
Date d'inscription
mercredi 26 août 2009
Statut
Membre
Dernière intervention
25 octobre 2019
1
3 sept. 2016 à 17:01
3 sept. 2016 à 17:01
Bonjour ThauTheme
Devant des experts je ne peut pas me permettre d'intervenir dans les détailles des fonctions et propriétés des Macros.
Merci pour l'enrichissement du débat
Devant des experts je ne peut pas me permettre d'intervenir dans les détailles des fonctions et propriétés des Macros.
Merci pour l'enrichissement du débat