Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Récupérer nom de feuille

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

Mondigus

XLDnaute Nouveau
Bonjour à tous!
j'ai un fichier pour traiter mes factures fournisseurs.
Afin de pouvoir réaliser mon TB, j'ai besoin d'une feuille que j'ai appelée "Synthèse" qui regroupe toutes les factures saisies. J'ai donc modifié le code bouton "Ajouter" du formulaire "Saisir facture" afin d'obtenir les factures saisies.
Le petit bémol est que les données sont bien copiées dans la feuille "Synthèse" mais sans le nom de la feuille qui lui corresponde.
Quelqu'un pourrait-il m'aider à trouver ce qui manque à mon code stp.
Merci
 

Pièces jointes

Solution
Bonsoir @Mondigus
  • Pour la première erreur, as-tu créé le tableau structuré "tb_Synthèse" ?
    Place toi sur une ligne de la zone de résultat, onglet Accueil, Mettre sous forme de tableau, choisis un style à ta convenance, vérifie la zone présélectionnée, coche Mon tableau comporte des en-têtes, change le nom du tableau (ici tableau4 par tb_Synthèse) :





  • Pour la seconde : c'est de ma faute, j'avais commencé une modification que je n'ai pas annulée
    Dans la pièce jointe j'ai modifié le code de ce CommandButton "CmdAjout" pour inclure ma macro.
    Voir la pièce jointe (n'oublie pas de modifier le codename de la feuille de synthèse en...
Trier par date Trier par votes
Bonjour
En homogénéisant les noms des tableaux et les titres des colonnes cela se fait sans VBA par PowerQuery en quelques clics
Une simple actualisation suffit ce qui, outre les nouvelles factures, met à jour les retards

 
Vote positif 0 Vote négatif
Bonjour @chris
Ta proposition me semble bon à prendre.
Je vais faire des recherches sur power Quercy et te reviens si je suis bloqué !
Merci pour ton aide.
 
Vote positif 0 Vote négatif
Dernière édition:
Vote positif 0 Vote négatif
Bonne nuit les noctambules,
J'essaie de m'approprier PowerQuery, et je me fais plaisir ...
J'ai normalisé le nom des tableaux et leurs en-têtes par macro (voir le module "mdl_AtTheOne")

@chris, avec l'aide de tes infos, j'ai créé le tableau SynthèsePowerQuery dans la feuille éponyme.
8 étapes m'ont été nécessaires :

Voici ce que donne l'éditeur avancé :
Enrichi (BBcode): 
let
    Source = Excel.CurrentWorkbook(),
    #"Lignes filtrées" = Table.SelectRows(Source, each Text.StartsWith([Name], "Fact_")),
    #"Content développé" = Table.ExpandTableColumn(#"Lignes filtrées", "Content", {"N° Facture", "Date facture", "Montant HT", "Montant TTC", "Date échéance", "Retard/Avance", "Etat"}, {"N° Facture", "Date facture", "Montant HT", "Montant TTC", "Date échéance", "Retard/Avance", "Etat"}),
    #"Colonnes renommées" = Table.RenameColumns(#"Content développé",{{"Name", "Fournisseur"}}),
    #"Type modifié" = Table.TransformColumnTypes(#"Colonnes renommées",{{"Date facture", type date}, {"Date échéance", type date}, {"Montant HT", Currency.Type}, {"Montant TTC", Currency.Type}}),
    #"Valeur remplacée" = Table.ReplaceValue(#"Type modifié","Fact_","",Replacer.ReplaceText,{"Fournisseur"}),
    #"Colonnes permutées" = Table.ReorderColumns(#"Valeur remplacée",{"Fournisseur", "N° Facture", "Date facture", "Montant HT", "Montant TTC", "Date échéance", "Retard/Avance", "Etat"}),
    #"Lignes triées" = Table.Sort(#"Colonnes permutées",{{"Date échéance", Order.Ascending}, {"Fournisseur", Order.Ascending}})
in
    #"Lignes triées"

Pour les deux types de synthèse, j'ai lancé la mise à jour pour l'une, l'actualisation pour l'autre, lors de l'activation de la feuille. Pour les 162 lignes les temps sont à peine différents (avec un petit avantage pour la macro, ce qui m'étonne !).

Voilà, voir pièce jointe, j'arrête et je me couche 😵‍💫 🥱😴

Amicalement
Alain
 

Pièces jointes

Vote positif 0 Vote négatif
Bonjour

Nickel

En général j'inverse les actions en commençant par les actions qui peuvent se faire avant le développement du contenu
VB: 
let
    Source = Excel.CurrentWorkbook(),
    #"Lignes filtrées" = Table.SelectRows(Source, each Text.StartsWith([Name], "Fact_")),
    #"Colonnes renommées" = Table.RenameColumns(#"Lignes filtrées",{{"Name", "Fournisseur"}}),
    #"Colonnes permutées" = Table.ReorderColumns(#"Colonnes renommées",{"Fournisseur", "Content"}),
    #"Valeur remplacée" = Table.ReplaceValue(#"Colonnes permutées","Fact_","",Replacer.ReplaceText,{"Fournisseur"}),
    #"Content développé" = Table.ExpandTableColumn(#"Valeur remplacée", "Content", {"N° Facture", "Date facture", "Montant HT", "Montant TTC", "Date échéance", "Retard/Avance", "Etat"}, {"N° Facture", "Date facture", "Montant HT", "Montant TTC", "Date échéance", "Retard/Avance", "Etat"}),
    #"Type modifié" = Table.TransformColumnTypes(#"Content développé",{{"Date facture", type date}, {"Date échéance", type date}, {"Montant HT", Currency.Type}, {"Montant TTC", Currency.Type}}),
    #"Lignes triées" = Table.Sort(#"Type modifié",{{"Date échéance", Order.Ascending}, {"Fournisseur", Order.Ascending}})
in
    #"Lignes triées"

Mais c'est détail.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Problème à l'utilisation calendrier de Patricktoulon.
Réponses
5
Affichages
180
jeff1494
A
  • Question Question
Microsoft 365 Macro pour récupérer des colonnes qui ne sont pas conjointes
Réponses
4
Affichages
386
Anthony_51
A
A
  • Résolu(e)
Microsoft 365 programme VBA pour "importer" les valeurs de certaines cellules d'une autre feuille appartenant à une ligne que j'identifie par un n°
2
Réponses
27
Affichages
899
arnomorize
A
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
428
p56
C
  • Question Question
XL 2021 Cellules qui ne s'effacent pas sur formulaire et renvoi de valeurs du formulaire
Réponses
1
Affichages
502
gbinforme
G
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
781
Electron24
M
  • Question Question
Formulaires & vba
Réponses
5
Affichages
1 K
cp4
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
2 K
dysorthographie
S
  • Question Question
XL 2013 planning : récupérer le nom de la feuille pour l'inclure dans une formule
Réponses
6
Affichages
1 K
shushen
S
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
848
Nico2978
C
  • Résolu(e)
Microsoft 365 Amélioration de mon code VBA
Réponses
9
Affichages
669
Cherrylie
C
Z
  • Question Question
Microsoft 365 code VBA envoie de mail
Réponses
2
Affichages
961
kiki29
B
  • Résolu(e)
XL 2019 Macro - Récupérer données avec nom de feuille
Réponses
2
Affichages
1 K
Bastien43
B
G
  • Question Question
XL 2013 Macro avec nom de fichier et de feuille modifiable
Réponses
3
Affichages
1 K
sylvanu
L
  • Question Question
XL 2019 Trier une liste de noms latins en couleur sans doublons depuis une combobox d'un userform
2
Réponses
29
Affichages
3 K
lusert
L
  • Question Question
XL 2019 Mise à jour via formulaire
Réponses
2
Affichages
1 K
Staple1600
  • Résolu(e)
XL 2016 Dupliquer une feuille contenant un tableau anonyme trié par vba
Réponses
4
Affichages
893
zayab
A
  • Question Question
Microsoft 365 Insérer nom de l'onglet dans un chemin
Réponses
5
Affichages
2 K
vgendron
R
  • Question Question
XL 2019 Objet : Copier/coller des valeurs d'une plage de cellules colorées avec MFC dans une deuxième feuille
2
Réponses
15
Affichages
2 K
Rom1-51
R
  • Question Question
XL 2016 [Résolu] - [VBA] Récupérer le nom de la feuille 1 d'un fichier externe ouvert dans la procédure
Réponses
5
Affichages
2 K
Fredox
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…