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

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
385
Olive de BI
Olive de BI
M
  • Résolu(e)
XL 2010 Faire un sommaire à partir de plusieurs feuilles
Réponses
8
Affichages
869
JHA
J
100kibou
  • Question
XL 2021 Intégration de données et userfom
Réponses
9
Affichages
473
100kibou
100kibou
A
  • Question
XL 2016 Remplir automatiquement un fichier Word avec des données Excel
Réponses
9
Affichages
2 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
243
chaelie2015
chaelie2015
C
  • Résolu(e)
Microsoft 365 Créer un RV outlook à partir de chaque ligne d'un tableau
Réponses
8
Affichages
721
c.branco
C
Mathmath06
  • Question
XL 2016 Fichier écarts et fréquence keno
Réponses
2
Affichages
440
Mathmath06
Mathmath06
M
  • Question
Microsoft 365 macro vérif des données, et si OK accès à la page suivante
Réponses
5
Affichages
324
MG_000
M
S
  • Question
XL 2021 Modification d'une macro qui créer des feuilles Excel et les complète
Réponses
2
Affichages
255
sessef1
S
P
  • Question
XL 2016 Mise en place d'une étude hebdomadaire des remarques 5S - Bascule d'information entre 3 fichiers
Réponses
10
Affichages
789
gbinforme
G

Membres actuellement en ligne

9 membres et 112 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
312 104
Messages
2 085 335
Membres
102 865
dernier inscrit
FreyaSalander