Faire un tableau récapitulatif de plusieurs tableaux
Résolu/Fermé
Songovin
Messages postés
14
Date d'inscription
dimanche 4 octobre 2015
Statut
Membre
Dernière intervention
15 juin 2019
-
Modifié par Songovin le 4/10/2015 à 17:55
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 - 5 oct. 2015 à 22:37
Le Pingou Messages postés 12035 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 1 avril 2024 - 5 oct. 2015 à 22:37
A voir également:
- Excel tableau récapitulatif plusieurs feuilles
- Tableau croisé dynamique - Guide
- Liste déroulante excel - Guide
- Tableau ascii - Guide
- Formule excel - Guide
- Fusionner plusieurs feuilles excel en une seule - Guide
5 réponses
Songovin
Messages postés
14
Date d'inscription
dimanche 4 octobre 2015
Statut
Membre
Dernière intervention
15 juin 2019
Modifié par Songovin le 4/10/2015 à 21:31
Modifié par Songovin le 4/10/2015 à 21:31
Rebonjour,
J'ai avancé sur mon projet mais il me reste 2 soucis :
1 / Lancer la macro en continue ou à partir après l'enregistrement. Pouvez-vous m'aider à modifier la macro ?
2/ La valeur "Site" se trouve en dernier, je voudrais que celle-ci soit à la première colonne
Voici le code vba :
Sub consolide_ongletsNomOnglet()
Sheets("Recap").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
nlig = Sheets(s).[A65000].End(xlUp).Row - 1
ncol = Sheets(s).[A7].CurrentRegion.Columns.Count
[A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
[A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
Sheets(s).[A7].Resize(nlig, ncol).Value
Next s
End Sub
Merci d'avance de votre aide
J'ai avancé sur mon projet mais il me reste 2 soucis :
1 / Lancer la macro en continue ou à partir après l'enregistrement. Pouvez-vous m'aider à modifier la macro ?
2/ La valeur "Site" se trouve en dernier, je voudrais que celle-ci soit à la première colonne
Voici le code vba :
Sub consolide_ongletsNomOnglet()
Sheets("Recap").[A1].CurrentRegion.Offset(1, 0).Clear
For s = 2 To Sheets.Count
nlig = Sheets(s).[A65000].End(xlUp).Row - 1
ncol = Sheets(s).[A7].CurrentRegion.Columns.Count
[A65000].End(xlUp).Offset(1, ncol).Resize(nlig, 1).Value = Sheets(s).Name
[A65000].End(xlUp).Offset(1, 0).Resize(nlig, ncol).Value = _
Sheets(s).[A7].Resize(nlig, ncol).Value
Next s
End Sub
Merci d'avance de votre aide
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
4 oct. 2015 à 21:54
4 oct. 2015 à 21:54
Bonjour,
Je suis sur votre demande.
Réponse en fin de soirée ou demain matin.
Je suis sur votre demande.
Réponse en fin de soirée ou demain matin.
Songovin
Messages postés
14
Date d'inscription
dimanche 4 octobre 2015
Statut
Membre
Dernière intervention
15 juin 2019
4 oct. 2015 à 22:24
4 oct. 2015 à 22:24
Bonjour Le Pingou,
Merci d'avance de votre aide.
De plus, si cela est possible, je souhaiterais que cette feuille ne soit pas "modifiable" par un tiers.
Cordialement,
Songovin
Merci d'avance de votre aide.
De plus, si cela est possible, je souhaiterais que cette feuille ne soit pas "modifiable" par un tiers.
Cordialement,
Songovin
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
Modifié par Le Pingou le 4/10/2015 à 22:50
Modifié par Le Pingou le 4/10/2015 à 22:50
Bonjour,
Eh bien, la procédure de récapitulation se déclenche avec l'ouverture de la feuille [Recap] (nettoie la feuille et insère les données dès la ligne 7).
Ma proposition : https://www.cjoint.com/c/EJeuVi0Q6cY
La suite si ma proposition vous convient...!
Salutations.
Le Pingou
Eh bien, la procédure de récapitulation se déclenche avec l'ouverture de la feuille [Recap] (nettoie la feuille et insère les données dès la ligne 7).
Ma proposition : https://www.cjoint.com/c/EJeuVi0Q6cY
La suite si ma proposition vous convient...!
Salutations.
Le Pingou
Songovin
Messages postés
14
Date d'inscription
dimanche 4 octobre 2015
Statut
Membre
Dernière intervention
15 juin 2019
5 oct. 2015 à 07:06
5 oct. 2015 à 07:06
Bonjour Le Pingou,
Je regardes ce fichier dans la journée et te dis si cela me convient.
Cordialement,
Songovin
Je regardes ce fichier dans la journée et te dis si cela me convient.
Cordialement,
Songovin
Songovin
Messages postés
14
Date d'inscription
dimanche 4 octobre 2015
Statut
Membre
Dernière intervention
15 juin 2019
5 oct. 2015 à 21:25
5 oct. 2015 à 21:25
Bonjour Le Pingou,
Seul point qui me gêne et le fait que la macro ne s'active qu'à l'activation de la feuille.
Car le but de cette feuille et de recuperer les données présentes pour les exploiter sur d'autres fichiers grâce à des collage avec liaison (en gros Recap ne sera presque jamais utiliser directement).
Merci d'avance,
Cordialement
Songovin
Seul point qui me gêne et le fait que la macro ne s'active qu'à l'activation de la feuille.
Car le but de cette feuille et de recuperer les données présentes pour les exploiter sur d'autres fichiers grâce à des collage avec liaison (en gros Recap ne sera presque jamais utiliser directement).
Merci d'avance,
Cordialement
Songovin
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
Modifié par Le Pingou le 4/10/2015 à 23:16
Modifié par Le Pingou le 4/10/2015 à 23:16
Bonjour,
En relisant le tout, j'ai une question : est-ce que les tableaux (un par feuille) se trouvent dans un classeur séparé ou le même que la feuille [Recap]... ?
Est-il envisageable de réaliser un classeur pour la récapitulation et l'autre avec tous les sites... ?
Salutations.
Le Pingou
En relisant le tout, j'ai une question : est-ce que les tableaux (un par feuille) se trouvent dans un classeur séparé ou le même que la feuille [Recap]... ?
Est-il envisageable de réaliser un classeur pour la récapitulation et l'autre avec tous les sites... ?
Salutations.
Le Pingou
Songovin
Messages postés
14
Date d'inscription
dimanche 4 octobre 2015
Statut
Membre
Dernière intervention
15 juin 2019
5 oct. 2015 à 07:09
5 oct. 2015 à 07:09
Oui, le classeur séparé est aussi possible.
Cependant, il y a 2 conditions :
- Les fichiers sur sur un serveur de stockage professionnelle (SharePoint)
- Et pour éviter que tout le monde y va, il serait dans un dossier différents.
A ton écoute si tu as une solution.
Cordialement,
Songovin
Cependant, il y a 2 conditions :
- Les fichiers sur sur un serveur de stockage professionnelle (SharePoint)
- Et pour éviter que tout le monde y va, il serait dans un dossier différents.
A ton écoute si tu as une solution.
Cordialement,
Songovin
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Le Pingou
Messages postés
12035
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
1 avril 2024
1 425
Modifié par Le Pingou le 5/10/2015 à 22:39
Modifié par Le Pingou le 5/10/2015 à 22:39
Bonjour,
Alors faite le avec le déclenchement par bouton de commande.
Voir fichier : https://www.cjoint.com/c/EJfuKSzbcpY
Note, utilisez le Répondre au sujet se sera mieux pour le suivi ...!
Salutations.
Le Pingou
Alors faite le avec le déclenchement par bouton de commande.
Voir fichier : https://www.cjoint.com/c/EJfuKSzbcpY
Note, utilisez le Répondre au sujet se sera mieux pour le suivi ...!
Salutations.
Le Pingou