Générer base de donnée sur base d'un tableau récaptitulatif
Fermé
manudt
Messages postés
7
Date d'inscription
mercredi 18 mars 2015
Statut
Membre
Dernière intervention
2 octobre 2016
-
Modifié par manudt le 18/03/2015 à 13:57
manudt Messages postés 7 Date d'inscription mercredi 18 mars 2015 Statut Membre Dernière intervention 2 octobre 2016 - 18 mars 2015 à 16:45
manudt Messages postés 7 Date d'inscription mercredi 18 mars 2015 Statut Membre Dernière intervention 2 octobre 2016 - 18 mars 2015 à 16:45
A voir également:
- Générer base de donnée sur base d'un tableau récaptitulatif
- Tableau croisé dynamique - Guide
- Formules excel de base - Guide
- Base de registre - Guide
- Tableau ascii - Guide
- Tableau word - Guide
2 réponses
manudt
Messages postés
7
Date d'inscription
mercredi 18 mars 2015
Statut
Membre
Dernière intervention
2 octobre 2016
18 mars 2015 à 13:55
18 mars 2015 à 13:55
Petit complément. Voici un lien vers le fichier récap en question : https://www.cjoint.com/c/ECsogQ9jtLP
Merci pour votre aide.
Manu
Merci pour votre aide.
Manu
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
18 mars 2015 à 15:14
18 mars 2015 à 15:14
Bonjour Manu
Macro pour établir le tableau dans une 2eme feuille :
ALT+F11 pour ouvrir l'editeur puis Insertion et Module et copier coller la macro
Lancer ensuite la macro depuis la feuille1 via onglet Developpeur
Cdlmnt
Macro pour établir le tableau dans une 2eme feuille :
Sub detail() Dim Ligne As Long 'derniere ligne remplie feuil1 Ligne = Sheets(1).Columns(1).Find("*", , , , xlByColumns, xlPrevious).Row 'boucle sur les ligens For n = 2 To Ligne 'copie les infos de la ligne Sheets(1).Select Range("A" & n & ":E" & n).Select Selection.Copy ' valeur en colonne D nb = Sheets(1).Range("D" & n) ' boucle autant de fois que la valeur en D For x = 1 To nb Sheets(2).Select 'incremente ligne de 1 lg = lg + 1 'colle les infos copiées Sheets(2).Range("A" & lg).Select ActiveSheet.Paste Next Next End Sub
ALT+F11 pour ouvrir l'editeur puis Insertion et Module et copier coller la macro
Lancer ensuite la macro depuis la feuille1 via onglet Developpeur
Cdlmnt
manudt
Messages postés
7
Date d'inscription
mercredi 18 mars 2015
Statut
Membre
Dernière intervention
2 octobre 2016
18 mars 2015 à 16:28
18 mars 2015 à 16:28
Bonjour via55.
Je m'en vais essayer cela tout de suite.
Merci pour cette réponse si rapide.
Manu
Je m'en vais essayer cela tout de suite.
Merci pour cette réponse si rapide.
Manu
manudt
Messages postés
7
Date d'inscription
mercredi 18 mars 2015
Statut
Membre
Dernière intervention
2 octobre 2016
>
manudt
Messages postés
7
Date d'inscription
mercredi 18 mars 2015
Statut
Membre
Dernière intervention
2 octobre 2016
18 mars 2015 à 16:45
18 mars 2015 à 16:45
Héhé ! Je viens d'essayer et c'est une tuerie.
Merci beaucoup pour ton aide.
Manu
Merci beaucoup pour ton aide.
Manu