Je cherche une VBA cumulant les infos des précédentes feuilles
Résolu/Fermé
NeosFire
Messages postés
19
Date d'inscription
mercredi 23 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2015
-
5 oct. 2015 à 11:19
NeosFire Messages postés 19 Date d'inscription mercredi 23 septembre 2015 Statut Membre Dernière intervention 8 octobre 2015 - 8 oct. 2015 à 09:34
NeosFire Messages postés 19 Date d'inscription mercredi 23 septembre 2015 Statut Membre Dernière intervention 8 octobre 2015 - 8 oct. 2015 à 09:34
A voir également:
- Je cherche une VBA cumulant les infos des précédentes feuilles
- Comment faire un livret avec des feuilles a4 - Guide
- Fusionner feuilles excel - Guide
- Comment supprimer une feuille sur word - Guide
- Bruler des feuilles de laurier - Guide
- Vba attendre 1 seconde ✓ - Forum VB / VBA
6 réponses
titeufdu89
Messages postés
374
Date d'inscription
samedi 28 juillet 2012
Statut
Membre
Dernière intervention
1 avril 2023
38
5 oct. 2015 à 13:55
5 oct. 2015 à 13:55
Bonjour,
Je ne parviens pas à ouvrir ton fichier.
Sais-tu utiliser l'enregistreur de macros?
Tu pourrais enregistrer un macro, faire un copier-coller des différentes plages que tu souhaite traiter sur une nouvelle feuille excel les unes à la suite des autres, appliquer un filtre pour les regrouper par ordre alphabétique, ce qui te supprimerai finalement les cases vides, puis appliquer l'option suppression des doublons.
Je ne parviens pas à ouvrir ton fichier.
Sais-tu utiliser l'enregistreur de macros?
Tu pourrais enregistrer un macro, faire un copier-coller des différentes plages que tu souhaite traiter sur une nouvelle feuille excel les unes à la suite des autres, appliquer un filtre pour les regrouper par ordre alphabétique, ce qui te supprimerai finalement les cases vides, puis appliquer l'option suppression des doublons.
NeosFire
Messages postés
19
Date d'inscription
mercredi 23 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2015
6 oct. 2015 à 14:23
6 oct. 2015 à 14:23
Vois-ci mon avancé en matière de macros. Et du projet en cours. J'ai enfin réussi a importé les information de façon variable pour la feuille "Prod1" et d'importé les informations de "Prod2" mais je n'arrive pas a nommé le client au en colonne "A" Comme pour l'import de l'information "Prod1" dit moi comment je peux faire pour sélectionné la plage de donnée qui suis le client "Assurence" mais qu'il ne dépasse pas le nombre d'information de la colonne "B".
Pour mieux me comprendre je vous laisse l'exemple sur le quel je fait ma macro avec la macro non abouti (ne la lancé pas a moins de rajouté ClearNet "A:A" car le second client s'étend jusqu'à la fin de la feuille (1 048 856 cellule plus bas ...)
Merci de l'aide apporté.
Exemple avec macros http://www.cjoint.com/c/EJgmwLfYEKg.
Pour mieux me comprendre je vous laisse l'exemple sur le quel je fait ma macro avec la macro non abouti (ne la lancé pas a moins de rajouté ClearNet "A:A" car le second client s'étend jusqu'à la fin de la feuille (1 048 856 cellule plus bas ...)
Merci de l'aide apporté.
Exemple avec macros http://www.cjoint.com/c/EJgmwLfYEKg.
NeosFire
Messages postés
19
Date d'inscription
mercredi 23 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2015
6 oct. 2015 à 14:24
6 oct. 2015 à 14:24
Les informations s'importe dans "Récap". Excusez-moi j'au oublier de le précisé.
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 429
6 oct. 2015 à 18:35
6 oct. 2015 à 18:35
Bonjour
Un exemple de ce qu'on peut faire
http://www.cjoint.com/c/EJgqIvl00RT
Cdlmnt
Un exemple de ce qu'on peut faire
http://www.cjoint.com/c/EJgqIvl00RT
Cdlmnt
NeosFire
Messages postés
19
Date d'inscription
mercredi 23 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2015
7 oct. 2015 à 09:31
7 oct. 2015 à 09:31
C'est fantastique !! Est-ce possible de sauté l'action de sélection ? par
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Et en changement de page a la fin de la boucle.
Ou je me berce d'illusion ?
Merci sincèrement du coups de main. comme tu a due le remarqué je ne m'y connais pas trop en codage. Et cette solution ma énormément apporté. Merci réellement, ce-là fait 1 + 1/2 semaine que je suis sur le problème. Réellement merci.
Cordialement NéosFire.
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Et en changement de page a la fin de la boucle.
Ou je me berce d'illusion ?
Merci sincèrement du coups de main. comme tu a due le remarqué je ne m'y connais pas trop en codage. Et cette solution ma énormément apporté. Merci réellement, ce-là fait 1 + 1/2 semaine que je suis sur le problème. Réellement merci.
Cordialement NéosFire.
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 429
7 oct. 2015 à 11:43
7 oct. 2015 à 11:43
Est-ce possible de sauté l'action de sélection ?
Beaucoup de choses sont possibles, le tout est de savoir comment tu veux organiser ton scenario. Expliques clairement ce que tu attends de la macro.
Cdlmnt
Beaucoup de choses sont possibles, le tout est de savoir comment tu veux organiser ton scenario. Expliques clairement ce que tu attends de la macro.
Cdlmnt
NeosFire
Messages postés
19
Date d'inscription
mercredi 23 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2015
7 oct. 2015 à 12:03
7 oct. 2015 à 12:03
La macro fait exactement se que je désirait mais j'aimerais pour gagné du temps car il n'y auras pas que une seul feuille a assemblé,( car la récupération d'information est faite une fois par semaine voir une fois tout les 15 jours) donc si c'était possible qu'avec la macro on ne face que "Ctrl + K" et qu'elle récupère tout les information comme vous avez pue me le faire. Mais sans passé part chacune des feuilles.
La macros est super mais j'aimerais juste qu'elle sois automatique, après avoir fait "Ctrl + K"
La macros est super mais j'aimerais juste qu'elle sois automatique, après avoir fait "Ctrl + K"
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 429
7 oct. 2015 à 14:54
7 oct. 2015 à 14:54
Ctrl+m pour copier toutes les feuilles Prodxx dans Recap
http://www.cjoint.com/c/EJhm1TxJex6
Cordialement
http://www.cjoint.com/c/EJhm1TxJex6
Cordialement
NeosFire
Messages postés
19
Date d'inscription
mercredi 23 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2015
7 oct. 2015 à 15:27
7 oct. 2015 à 15:27
C'est parfait merci !! C'est absolument ce qui me fallait et les explication sont très claire réellement merci :)
Cordialement NéosFire
[Résolut]
Cordialement NéosFire
[Résolut]
ccm81
Messages postés
10905
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
27 décembre 2024
2 429
7 oct. 2015 à 16:43
7 oct. 2015 à 16:43
Petit bug
Ajoutes la ligne soulignée au code
Bonne fin de journée
Ajoutes la ligne soulignée au code
With Sheets(FR)
lifin = .Cells(Rows.Count, 1).End(xlUp).Row
If lifin < lidebFR Then lifin = lidebFR
Set plage = .Range(.Cells(lidebFR, codatFR), .Cells(lifin, cofinFF + 1))
plage.ClearContents
End With
Bonne fin de journée
NeosFire
Messages postés
19
Date d'inscription
mercredi 23 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2015
8 oct. 2015 à 09:34
8 oct. 2015 à 09:34
Merci le bug est arrangé ^^
6 oct. 2015 à 09:20
Merci de l'aide apporté je teste dans mon coin je remettrais un liens de mon fichier teste entre 12 H et 14 H merci encore de l'idée proposé.