MACRO
Fermé
poker1
-
17 avril 2008 à 12:56
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 22 avril 2008 à 16:48
Mike-31 Messages postés 18188 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 13 mars 2023 - 22 avril 2008 à 16:48
A voir également:
- MACRO
- Macro logiciel - Télécharger - Organisation
- Macro recorder - Télécharger - Confidentialité
- Macro Recorder - Télécharger - Divers Utilitaires
- Macro word - Guide
- Macro souris ✓ - Forum Windows
2 réponses
eriiic
Messages postés
24513
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
25 mars 2023
7 168
17 avril 2008 à 21:46
17 avril 2008 à 21:46
Bonsoir,
remplace en 2nde ligne Range("A4000").Select par Range("B4000").Select
mais il y a de quoi faire pour l'optimiser ta macro....
eric
remplace en 2nde ligne Range("A4000").Select par Range("B4000").Select
mais il y a de quoi faire pour l'optimiser ta macro....
eric
Mike-31
Messages postés
18188
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
13 mars 2023
5 041
22 avril 2008 à 16:48
22 avril 2008 à 16:48
Salut Poker1,
Non Poker on ouvre une seule discution par probléme, et on évite de mélanger plusieurs sujets dans la discution, sinon on ne s'y retrouve plus. Ensuite quand on pose une question on essaye d'être précis dans les explications avec un but précis.
Tu t'es ingéré dans une discution avec BerryHill, au passage tu as récupéré une ébauche de macro complexe qui lui était adressé et inadapté à ton problème, pour demander sur une autre discution pourquoi elle ne marchait pas.
Actuellement trois discutions sont ouverte autour de cette macro. Je te conseille d'en suite une et jusqu'au bout.
La macro que tu as bidouillé ne peut pas marcher. la plage de cellule que tu veux exporter page 2 ou 3 etc ...est elle fixe, ou as tu besoin d'une recherche comme ci dessous.
Range("C400").Select cette ligne sélectionne la cellule C400
ActiveCell.Offset(-1, 0).Select cette ligne fait remonter la cellule active d'une ligne
Do While ActiveCell.Value <= 0 et tant que la cellule active est =0
ActiveCell.Offset(-1, 0).Select continuer à remonter d'une cellule
Loop
ensuite dans ta feuille 2 par exemple tu copies à la suite d'une liste ou à partir d'une cellule fixe
A+
Non Poker on ouvre une seule discution par probléme, et on évite de mélanger plusieurs sujets dans la discution, sinon on ne s'y retrouve plus. Ensuite quand on pose une question on essaye d'être précis dans les explications avec un but précis.
Tu t'es ingéré dans une discution avec BerryHill, au passage tu as récupéré une ébauche de macro complexe qui lui était adressé et inadapté à ton problème, pour demander sur une autre discution pourquoi elle ne marchait pas.
Actuellement trois discutions sont ouverte autour de cette macro. Je te conseille d'en suite une et jusqu'au bout.
La macro que tu as bidouillé ne peut pas marcher. la plage de cellule que tu veux exporter page 2 ou 3 etc ...est elle fixe, ou as tu besoin d'une recherche comme ci dessous.
Range("C400").Select cette ligne sélectionne la cellule C400
ActiveCell.Offset(-1, 0).Select cette ligne fait remonter la cellule active d'une ligne
Do While ActiveCell.Value <= 0 et tant que la cellule active est =0
ActiveCell.Offset(-1, 0).Select continuer à remonter d'une cellule
Loop
ensuite dans ta feuille 2 par exemple tu copies à la suite d'une liste ou à partir d'une cellule fixe
A+