XL 2019 Sommaire et intégration de données provenant des feuilles

P

paulng

XLDnaute Nouveau
Bonjour,

J'ai repris à mon compte un fichier provenant du site (lien), je remercie Mayday et vgendron.

L'idée étant de créer un sommaire automatique en reprenant quelques informations provenant des feuilles du classeur.

J'aimerais bien pouvoir choisir dans la création du sommaire :

- du nombre de colonnes et d'informations que je choisis de mettre dans le sommaire
- que les informations soient reprises pour chaque ligne du sommaire (à la base cette option focntionnait, mais je crois bien que j'ai commis une erreur, et en reprnant le fichier original, cela ne fonctionne plus ...??)
Je maîtrise mal, pour le moment le langage VBA.

Si quelqu'un peut m'aider...

Cordialement,
Paul
 

Pièces jointes

  • sommaire-aide.xlsm
    46.6 KB · Affichages: 10
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
Hello

pour le nombre de colonne, il suffit de demander à l'utilisateur avec un inputbox
et ensuite tu utilises la réponse pour redéfinir (resize) la table

VB: 
Sub Sommairefiches()

Application.ScreenUpdating = False

NbCol = Application.InputBox("Combien de colonnes souhaitez vous?")
With Sheets("Sommaire")
   'commencer par effacer le sommaire
   .ListObjects(1).DataBodyRange.Clear
   .ListObjects(1).Resize Range("A3").Resize(2, NbCol)
   
    For Each ws In ActiveWorkbook.Sheets 'pour chaque feuille du classeur
        If ws.Name <> "Sommaire" And ws.Name <> "Outils" And ws.Name <> "Fiche Vierge" Then
            .Range("A" & .Rows.Count).End(xlUp).Offset(IIf(.Range("A4") <> "", 1, 0), 0) = ws.Name 'on colle le nom en colonne A
        End If
    Next ws
    Fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne de la feuille
    .Range("B" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B5"")"
    .Range("B" & 4).NumberFormat = "m/d/yyyy"
    .Range("C" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B6"")"
    .Range("D" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B7"")"
    .Range("E" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B10"")"
    
End With

Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
avec le code précédent, normalement les formules sont recopiées automatiquement, mais le format date n'est pas appliqué sur toute la colonne
voici qui devrait rectifier
Vérifie quand meme le format que tu souhaites:
tu avais écrit: m/d/yyyy
j'ai mis: dd/mm/yyyy (qui semble plus correspondre aux infos saisies dans les fiches)

VB: 
Sub Sommairefiches()

Application.ScreenUpdating = False

NbCol = Application.InputBox("Combien de colonnes souhaitez vous?")
With Sheets("Sommaire")
   'commencer par effacer le sommaire
   .ListObjects(1).DataBodyRange.Clear
   .ListObjects(1).Resize Range("A3").Resize(2, NbCol)
   
    For Each ws In ActiveWorkbook.Sheets 'pour chaque feuille du classeur
        If ws.Name <> "Sommaire" And ws.Name <> "Outils" And ws.Name <> "Fiche Vierge" Then
            .Range("A" & .Rows.Count).End(xlUp).Offset(IIf(.Range("A4") <> "", 1, 0), 0) = ws.Name 'on colle le nom en colonne A
        End If
    Next ws
    Fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne de la feuille
    .Range("B" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B5"")"
    .ListObjects(1).ListColumns(2).DataBodyRange.NumberFormat = "dd/mm/yyyy"
    .Range("C" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B6"")"
    .Range("D" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B7"")"
    .Range("E" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B10"")"
    
End With

Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
P

paulng

XLDnaute Nouveau
vgendron à dit:
avec le code précédent, normalement les formules sont recopiées automatiquement, mais le format date n'est pas appliqué sur toute la colonne
voici qui devrait rectifier
Vérifie quand meme le format que tu souhaites:
tu avais écrit: m/d/yyyy
j'ai mis: dd/mm/yyyy (qui semble plus correspondre aux infos saisies dans les fiches)

VB: 
Sub Sommairefiches()

Application.ScreenUpdating = False

NbCol = Application.InputBox("Combien de colonnes souhaitez vous?")
With Sheets("Sommaire")
   'commencer par effacer le sommaire
   .ListObjects(1).DataBodyRange.Clear
   .ListObjects(1).Resize Range("A3").Resize(2, NbCol)
  
    For Each ws In ActiveWorkbook.Sheets 'pour chaque feuille du classeur
        If ws.Name <> "Sommaire" And ws.Name <> "Outils" And ws.Name <> "Fiche Vierge" Then
            .Range("A" & .Rows.Count).End(xlUp).Offset(IIf(.Range("A4") <> "", 1, 0), 0) = ws.Name 'on colle le nom en colonne A
        End If
    Next ws
    Fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne de la feuille
    .Range("B" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B5"")"
    .ListObjects(1).ListColumns(2).DataBodyRange.NumberFormat = "dd/mm/yyyy"
    .Range("C" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B6"")"
    .Range("D" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B7"")"
    .Range("E" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B10"")"
   
End With

Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
Merci beaucoup !
Je regarde cela
 
Vote positif 0 Vote négatif
P

paulng

XLDnaute Nouveau
paulng à dit:
Merci beaucoup !
Je regarde cela
Cliquez pour agrandir...
vgendron à dit:
avec le code précédent, normalement les formules sont recopiées automatiquement, mais le format date n'est pas appliqué sur toute la colonne
voici qui devrait rectifier
Vérifie quand meme le format que tu souhaites:
tu avais écrit: m/d/yyyy
j'ai mis: dd/mm/yyyy (qui semble plus correspondre aux infos saisies dans les fiches)

VB: 
Sub Sommairefiches()

Application.ScreenUpdating = False

NbCol = Application.InputBox("Combien de colonnes souhaitez vous?")
With Sheets("Sommaire")
   'commencer par effacer le sommaire
   .ListObjects(1).DataBodyRange.Clear
   .ListObjects(1).Resize Range("A3").Resize(2, NbCol)
  
    For Each ws In ActiveWorkbook.Sheets 'pour chaque feuille du classeur
        If ws.Name <> "Sommaire" And ws.Name <> "Outils" And ws.Name <> "Fiche Vierge" Then
            .Range("A" & .Rows.Count).End(xlUp).Offset(IIf(.Range("A4") <> "", 1, 0), 0) = ws.Name 'on colle le nom en colonne A
        End If
    Next ws
    Fin = .Range("A" & .Rows.Count).End(xlUp).Row 'dernière ligne de la feuille
    .Range("B" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B5"")"
    .ListObjects(1).ListColumns(2).DataBodyRange.NumberFormat = "dd/mm/yyyy"
    .Range("C" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B6"")"
    .Range("D" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B7"")"
    .Range("E" & 4).Formula = "=INDIRECT(""'"" &A4 &""'!B10"")"
   
End With

Application.ScreenUpdating = True
End Sub
Cliquez pour agrandir...
Lorsque j'exécute la macro,
j'obtiens un message d'erreur qui indique que l'indice n'appartient pas la sélection
==> .ListObjects(1).ListColumns(2).DataBodyRange.NumberFormat = "dd/mm/yyyy"

La formule INDIRECT ne se recopie pas à l'ensemble des clients...
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
paulng à dit:
D'accord,
effectivement en tapant 2 colonnes le message n'apparait pas... au temps pour moi.

Par contre je rencontre toujours le même problème avec l'absence de la formule INDIRECT sur les autres lignes

Merci pour ta disponibilité
Cliquez pour agrandir...
Je pense qu'il s'agit d'un problème de "colonne calculée"

il y a une option qui permet d'empecher la recopie automatique des formules
il doit donc etre possible de remettre l'option
sur la première cellule qui contient la formule, tu as sans doute une icone (un eclair je crois) ou autre pour cliquer dessus et remettre l'option, un peu comme quand il y a une erreur, et que excel te propose de corriger ou ignorer l'erreur..
 
Vote positif 0 Vote négatif
P

paulng

XLDnaute Nouveau
vgendron à dit:
Je pense qu'il s'agit d'un problème de "colonne calculée"

il y a une option qui permet d'empecher la recopie automatique des formules
il doit donc etre possible de remettre l'option
sur la première cellule qui contient la formule, tu as sans doute une icone (un eclair je crois) ou autre pour cliquer dessus et remettre l'option, un peu comme quand il y a une erreur, et que excel te propose de corriger ou ignorer l'erreur..
Cliquez pour agrandir...
Je vois de quoi tu parles.
Mais c'est très curieux, en choisissant par exemple 3 colonnes, la recopie s'effectue sur la deuxième colonne et ni sur la première ni sur la troisième
 
Vote positif 0 Vote négatif
mapomme

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @paulng ;), @vgendron ;),

Ma p'tite version.
  • Il n'y a plus de formule dans le sommaire.
  • il n'y a plus de bouton Sommaire. Le sommaire se met à jour à l'ouverture du classeur et quand on sélectionne la feuille "Sommaire".

Deux constantes dans le module11 :

Const lesColonnes = ""b4;b5;b6;b7;b8"
On y place les cellules à afficher dans les colonnes 2, 3, 4, ... du sommaire
Si on ne veut que trois champs (par exemple Date contrat; Audit annuel et Audit programmé) dans le sommaire, alors on indiquera pour la constante : Const lesColonnes = "b5;b7;b8"


Const PasLesFeuilles = "Sommaire;Outils;Fiche vierge"
Les feuilles à ignorer dans le sommaire

Les principales modifications sont dans module11.
On a rajouté quelques lignes de code dans le module de ThisWorlbook et de la feuille Sommaire.
 

Pièces jointes

  • paulng- sommaire- v1.xlsm
    49.7 KB · Affichages: 9
Vote positif 0 Vote négatif
P

paulng

XLDnaute Nouveau
mapomme à dit:
Bonjour @paulng ;), @vgendron ;),

Ma p'tite version.
  • Il n'y a plus de formule dans le sommaire.
  • il n'y a plus de bouton Sommaire. Le sommaire se met à jour à l'ouverture du classeur et quand on sélectionne la feuille "Sommaire".

Deux constantes dans le module11 :

Const lesColonnes = ""b4;b5;b6;b7;b8"
On y place les cellules à afficher dans les colonnes 2, 3, 4, ... du sommaire
Si on ne veut que trois champs (par exemple Date contrat; Audit annuel et Audit programmé) dans le sommaire, alors on indiquera pour la constante : Const lesColonnes = "b5;b7;b8"


Const PasLesFeuilles = "Sommaire;Outils;Fiche vierge"
Les feuilles à ignorer dans le sommaire

Les principales modifications sont dans module11.
On a rajouté quelques lignes de code dans le module de ThisWorlbook et de la feuille Sommaire.
Cliquez pour agrandir...
Merci Mapomme !
 
Vote positif 0 Vote négatif

Discussions similaires

R
  • Question
XL 2010 Copier des lignes de données de plusieurs feuilles dans une seule
Réponses
5
Affichages
487
sylvanu
sylvanu
G
  • Résolu(e)
Microsoft 365 Consolidation données depuis des feuilles
Réponses
2
Affichages
260
gpion
G
Olive de BI
  • Résolu(e)
Microsoft 365 Choix d'une feuille de classeur spécifique où enregistrer des données à partir d'une combobox
Réponses
7
Affichages
616
Olive de BI
Olive de BI
G
  • Question
XL 2021 rassembler des données de plusieurs feuilles d'un classeur sur une nouvelle feuille du meme classeur selon un critère
Réponses
1
Affichages
427
Staple1600
Staple1600
M
  • Résolu(e)
XL 2010 Faire un sommaire à partir de plusieurs feuilles
Réponses
8
Affichages
1 K
JHA
J
100kibou
  • Question
XL 2021 Intégration de données et userfom
Réponses
9
Affichages
731
100kibou
100kibou
A
  • Question
XL 2016 Remplir automatiquement un fichier Word avec des données Excel
Réponses
9
Affichages
3 K
AurelShisho
A
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Automatisation de la création de feuilles en fonction des données de la cellule U13 et une feuille type
Réponses
7
Affichages
522
chaelie2015
chaelie2015
C
  • Résolu(e)
Microsoft 365 Créer un RV outlook à partir de chaque ligne d'un tableau
Réponses
8
Affichages
1 K
c.branco
C
D
  • Résolu(e)
Microsoft 365 Graphique avec plage de données glissante en partant d'une date
Réponses
5
Affichages
236
Dégé59
D

Membres actuellement en ligne

Aucun membre en ligne actuellement.
0 membres et 81 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 098
Messages
2 116 189
Membres
112 679
dernier inscrit
Yupanki