XL 2019 Définir un nom d'un champ lors d'une macro

Didier Quilghini · 8 Juin 2024

Bonjour à tous et merci d'avance pour votre aide.
Voici mon problème, j'ai simplifié la grosseur des tableaux pour une meilleure compréhension, enfin je l'espère.
Dans une même feuille j'ai deux tableaux qui sont :
Tableau1 : A1;F10
Tableau2 : G1;L11
Donc même dimension.
A l'intérieur du Tableau1, j'ai un champ, par exemple B1;F9 dont un nom lui a été affecté, NOM, par ex.
Le Tableau2 n'a aucun nom de défini.
Donc maintenant ma macro.
1/ je rends active la cellule G1 > Je sais faire
2/ J'annule le nom défini dans le Tableau1 > Je sais faire
3/ Je veux maintenant donner le nom annulé précédemment, NOM, aux cellules G1;L9..... Mais sans utiliser les adresses G1;L9, mais plutôt la ligne/colonne de départ vers la ligne/colonne d'arrivée sachant que le champ sera identique à celui du Tableau1 et que le départ de création du champ à nommer est la cellule active.
Tout ceci par ce que cette opération se réalisera a nouveau avec un Tableau3, Tableau4 etc.
Pouvez vous être précis dans vos réponses car je ne suis pas un grand expert, mon niveau si situe à créer des macros non complexes.
Merci encore pour votre aide.
Didier

Didier Quilghini · 9 Juin 2024

Dranreb à dit:
Chez moi non, qu'est-ce qui bloque ?

Ouiiiiiii .... OK ça marche vous êtes un champion de monde !!!!! Mon pb réglé avec une seule ligne ;! Bravo et merci

Phil69970 · 8 Juin 2024

Bonjour @Didier Quilghini

Donc c'est à nous de faire le fichier que tu décris si bien !!

Et de plus j'ai rien compris dans ton explication... tout est à revoir....

Didier Quilghini · 8 Juin 2024

Phil69970 à dit:
Bonjour @Didier Quilghini

Donc c'est à nous de faire le fichier que tu décris si bien !!

Bonjour Phi69970,
Peut être ne suis je pas au bon endroit pour demander de l'aide, alors je m'en excuse.
Pour ce qui concerne ma demande ce n'est qu'une petite partie, que je ne sais pas faire, d'un grand ensemble.

Phil69970 · 8 Juin 2024

Re

@Didier Quilghini

Si tu ne veux pas fournir de fichier ne compte pas sur moi pour essayer de t'aider et de le refaire pour toi.
C'est toi qui a besoin t'aide pas nous.

Bonne chance

Dranreb · 8 Juin 2024

Bonsoir.
Les propriétés Range d'un ListObject sont Range, HeaderRowRange, DataBodyRange et TotalRowRange. Un élément ListColumn d'intitulé de colonne comme clé dans sa collection ListColumns possède aussi les Range et DataBodyRange. Un élément ListRow de sa collection ListRows n'a que Range.
Mais du coup, êtes vous sûr de la nécessité de leur donner encore un nom supplémentaire ?

Didier Quilghini · 8 Juin 2024

Phil69970 à dit:
Re

@Didier Quilghini

Si tu ne veux pas fournir de fichier ne compte pas sur moi pour essayer de t'aider et de le refaire pour toi.
C'est toi qui a besoin t'aide pas nous.

Bonne chance

Vous êtes rude... Je n'avais pas compris que vous demandiez un fichier et je ne demande pas que l'on fasse les choses pour moi. Ce n'est pas grave, bonsoir.

Didier Quilghini · 8 Juin 2024

Dranreb à dit:
Bonsoir.
Les propriétés Range d'un ListObject sont Range, HeaderRowRange, DataBodyRange et TotalRowRange. Un élément ListColumn d'intitulé de colonne comme clé dans sa collection ListColumns possède aussi les Range et DataBodyRange. Un élément ListRow de sa collection ListRows n'a que Range.
Mais du coup, êtes vous sûr de la nécessité de leur donner encore un nom supplémentaire ?

Bonsoir Dranreb
Je ne donne pas un nom supplémentaire, j'ai annulé le nom pour le "transférer" sur l'autre tableau car à un autre endroit un travail s'effectue, reprenant ce nom de champ.
Mais si c'est vraiment trop technique à réaliser, je transformerai la façon de faire.
En fait je pensais qu'il était possible de définir ce nom de champ avec deux ou trois lignes de code sans rentrer dans des fonctions que malheureusement je ne maitrise pas.
Merci quand même pour votre réponse.
Didier

Dranreb · 8 Juin 2024

Précisez un peu mieux ce que vous souhaitez faire concrètement.
Exemple: copier les valeur d'une colonne intitulée "Toto" d'un Tableau1 tans une colonne intitulée "Tata" d'un "Tableau2"
Le plus simple c'est de faire :

VB:

[[Tableau2[Tata]].Value = [Tableau1[Toto]].Value

mais on peut aussi faire :

VB:

Feuil2.ListObjects("Tableau2"].ListColumns("Tata").DataBodyRange.Value _
   = Feuil1.ListObjects("Tableau1").ListColumns("Toto").DataBodyRange.Value

Didier Quilghini · 8 Juin 2024

Dranreb à dit:
Précisez un peu mieux ce que vous souhaitez faire concrètement.
Exemple: copier les valeur d'une colonne intitulée "Toto" d'un Tableau1 tans une colonne intitulée "Tata" d'un "Tableau2"
Le plus simple c'est de faire :

VB:

[[Tableau2[Tata]].Value = [Tableau1[Toto]].Value

mais on peut aussi faire :

VB:

Feuil2.ListObjects("Tableau2"].ListColumns("Tata").DataBodyRange.Value _ = Feuil1.ListObjects("Tableau1").ListColumns("Toto").DataBodyRange.Value

Hello Dranreb
Non, ce n'est pas copier des valeurs. Surtout pas.
Il s'agit dans le tableau 2 - oublions le tableau 1- de définir un champ de plusieurs cellules, dont on connait la surface, puis lui donner un nom. Ce champ démarre d'une cellule dite active et quant il defini, on lui donne un nom.
Et sans utiliser les références habituelles (range(a1;g6) par ex.

Dranreb · 8 Juin 2024

Comme ça ?

VB:

Dim Rng As Range
Set Rng = Intersect(ActiveCell.Resize(100000, 1000), [Tableau2])
ThisWorkBook.Names.Add "Toto", Rng

Mais à quoi va servir ce nom ?

Didier Quilghini · 8 Juin 2024

Dranreb à dit:
Comme ça ?

VB:

Dim Rng As Range Set Rng = Intersect(ActiveCell.Resize(100000, 1000), [Tableau2]) ThisWorkBook.Names.Add "Toto", Rng

Mais à quoi va servir ce nom ?

Je vous envoie mon fichier.
C'est une gestion de budget familial pour mon fils.
Lui, ne connaissant rien à excel, j'automatise les taches de fin de mois - ça facile et c'est fait- et les taches de fin d’année, c'est la que tout se complique.
L'onglet Bgt Mois récupère les données de l'onglet Bgt. L'onglet Bgt contient un tableau année 2024, puis 2025, puis 2026 ETC..
Et c'est dans le champ nommé BgtAnnée que les données sont récupérées. Il faut donc pour 2025 et les années suivantes définir ce champ BgtAnnée dans les tableaux correspondants.

Didier Quilghini · 8 Juin 2024

Didier Quilghini à dit:
Je vous envoie mon fichier.
C'est une gestion de budget familial pour mon fils.
Lui, ne connaissant rien à excel, j'automatise les taches de fin de mois - ça facile et c'est fait- et les taches de fin d’année, c'est la que tout se complique.
L'onglet Bgt Mois récupère les données de l'onglet Bgt. L'onglet Bgt contient un tableau année 2024, puis 2025, puis 2026 ETC..
Et c'est dans le champ nommé BgtAnnée que les données sont récupérées. Il faut donc pour 2025 et les années suivantes définir ce champ BgtAnnée dans les tableaux correspondants.

La macro en cours pour cette opération et sur laquelle je bloque est la A

wDog66 · 8 Juin 2024

Bonjour Didier

Didier Quilghini à dit:
Je vous envoie mon fichier.
C'est une gestion de budget familial pour mon fils.
Lui, ne connaissant rien à excel, j'automatise les taches de fin de mois - ça facile et c'est fait- et les taches de fin d’année, c'est la que tout se complique.
L'onglet Bgt Mois récupère les données de l'onglet Bgt. L'onglet Bgt contient un tableau année 2024, puis 2025, puis 2026 ETC..
Et c'est dans le champ nommé BgtAnnée que les données sont récupérées. Il faut donc pour 2025 et les années suivantes définir ce champ BgtAnnée dans les tableaux correspondants.

Très sympa comme classeur

Ceci dit, quand on ne connait rien à Excel, mieux vaut se tourner vers une application toute prête !
Ca fait longtemps que je ne fais plus mes comptes sur Excel.. j'utilise MS Comptes bancaires

C'est payant, mais pas cher 29,90€ une fois, elle sait tout faire jusqu'à la gestion d'un portefeuille boursier

Bonne soirée

Didier Quilghini · 8 Juin 2024

wDog66 à dit:
Bonjour Didier

Très sympa comme classeur

Ceci dit, quand on ne connait rien à Excel, mieux vaut se tourner vers une application toute prête !
Ca fait longtemps que je ne fais plus mes comptes sur Excel.. j'utilise MS Comptes bancaires

C'est payant, mais pas cher 29,90€ une fois, elle sait tout faire jusqu'à la gestion d'un portefeuille boursier

Bonne soirée

wDog66 à dit:

Bonjour Didier

Très sympa comme classeur

Ceci dit, quand on ne connait rien à Excel, mieux vaut se tourner vers une application toute prête !
Ca fait longtemps que je ne fais plus mes comptes sur Excel.. j'utilise MS Comptes bancaires

C'est payant, mais pas cher 29,90€ une fois, elle sait tout faire jusqu'à la gestion d'un portefeuille boursier

Bonne soirée

Cliquez pour agrandir...

Oui je sais, mais c'est pour le fun et ça me permet de faire fonctionner mes petites cellules grises. Globalement c'est intéressant de construire quelque chose, là je bloque sur un truc technique mais sinon j'arrive a bien me débrouiller. Bonne soirée à vous aussi

Dranreb · 8 Juin 2024

Je n'ai pas vu un seul tableau dans votre classeur, que des plages classiques.
Peut être tout simplement comme ça :

VB:

Sub A()
   ThisWorkbook.Names.Add "BgtAnnée", Activcell.Resize([BgtAnnée].Rows.Count, [BgtAnnée].Columns.Count)
   End Sub

XL 2019 Définir un nom d'un champ lors d'une macro

Didier Quilghini

XLDnaute Nouveau

Didier Quilghini

Phil69970

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

Dranreb

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Didier Quilghini

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Didier Quilghini

XLDnaute Nouveau

Pièces jointes

Didier Quilghini

XLDnaute Nouveau

wDog66

XLDnaute Occasionnel

Didier Quilghini

XLDnaute Nouveau

Dranreb

XLDnaute Barbatruc

Discussions similaires