Tableau structuré => VBA - transformé formule avec réf. style A1 en adresse tableau style [@NomdEntete]

Re Patrick,

Déjà merci pour l'aide que tu m'apportes :
On peut s'y prendre de cette manière aussi:

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub TestEntete() For Each L In ActiveSheet.ListObjects Debug.Print L.Name For Each LRow In L.ListRows(1).Range 'Debug.Print LRow.Column Debug.Print LRow.Column - L.Range.Column + 1 Debug.Print L.HeaderRowRange(LRow.Column - L.Range.Column + 1) Next Next End Sub

---

Edit la fonction corrigé :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function AdrTab(Sh_Name$, Nom_Tab$, Formule$, LRow As Range, Coll As Collection, Optional FT As Boolean) As String Dim Entete$ For Each C In Coll Param = Split(C, "|"): T = Param(0): F = Param(1): A = Param(2) If T = "" And F <> Sh_Name Then Formule = Formule Else If FT And T = Nom_Tab Then Tbl = "" Else If F = Sh_Name And T = "" Then T = Nom_Tab Else Tbl = T Entete = Sheets(F).ListObjects(T).HeaderRowRange(Range(A).Column - Sheets(F).ListObjects(T).Range.Column + 1) Adr_EnteteTab = Tbl & "[@" & Entete & "]" Formule = Replace(Formule, A, Adr_EnteteTab) End If Next AdrTab = Formule End Function

---

Résultat :

Citation:

---

Feuil4
Tableau3
-------------------------
-------------------------
=B6*C6 - $D$6
=[@Chiffre]*[@Pourcentage]
-------------------------

ou encore

Feuil4
Tableau3
-------------------------
-------------------------
=E15*F15 - $G$15
=[@Chiffre]*[@Pourcentage]
-------------------------

---

Bonjour à tous,

@Pierre :

Citation:

---

Repérer dans une formule ce qui est une adresse de cellule, dan le même tableau ou dans un autre tableau du classeur demande d'abord de parser la formule pour en extraire les adresses (relatives, mixtes ou absolues), et déjà là, ca va être vachement coton.

---

Je vais m'attaquer à cette partie là.
Peux tu m'en dire plus stp, sur les cas/les difficultés (auquel je ne penserai pas forcément) que je pourrais rencontrer lors de la transformation des formules et ce qui est plus judicieux dans les cas où je devrais plutôt garder l'adresse d'une cellule plutôt que de la mettre en adresse via le nom de la colonne de ledit tableau … ???

En te remerciant d'avance

@Patrick : As tu vu d'autres choses à rectifier/améliorer ??

Salut.

Plus haut dans la discussion, je me posais la question de l'intérêt de la démarche. Perso, je n'en vois pas, à part faciliter éventuellement la lecture. Partant de ce constat, pourquoi passer du temps à cela? A part faire évoluer ses compétences dans des algos de parsing, et encore...

Cela dit, bon amusement ;)

Citation:

---

@Patrick : As tu vu d'autres choses à rectifier/améliorer ??

---

ben envers et contre tout mes detracteurs je m'en suis fait une hier pour des formule avec precedent sur la meme ligne il ne faut pas grand chose

pour ce qui serait des precedents en dehors du tableau sur le meme sheet une chose dont je suis sur c'est qu'il ne faut pas travailler avec le listobject mais son range
du genre comme ca

Code:

---

1 2 3 4 5 6 7 8 9 10 11

for each cel in range(nomtableau).cells'on travaille avec son range if cel.hasformula then set lesprecedents=cel.precedents tablopreds=split(replace(lesprecedents.address,":",","),",") for i= 0 to ubound(tablopreds)' 'ramener lindex de colonne de la cellule par rapport au tableau et non au sheets et prendre la cells(1,colonneobtenue) pour le nom de colonne   next   next

---

come je te l'ai dis hier tu peut tres bien au debut de fonction determiner les offset si le tableau ne commence pas en ligne 1 et/ou colonne 1

mais entre nous c'est tellement plus facile d'avoir les adress absolues dans les formules que je comprends pas ton interet
et c'est tellement plus facile a modifier les address absolue par vba dans les formules
cela dit l'exercice est interessant pour le sport

Juste quelques mots.

Je doute qu'il soit intéressant d'essayer de travailler avec les antécédents. En plus de la remarque d'Eric sur la limitation à la feuille, c'est de parsing syntaxique dont il s'agit ici. Il faut donc envisager toutes les règles de la grammaire Excel, et pour moi, ça n'a rien à voir avec les antécédents. Lorsque Excel met une référence en couleur à la saisie d'une formule, ce n'est pas en regardant les antécédents, mais en appliquant une règle de grammaire qui impose que le texte saisi soit la référence d'un antécédent. Il ne faut pas confondre la cause et l'effet, à mon avis.

Je doute que regarder les références en se focalisant sur les références absolues soient une bonne chose car il y a des références structurées qui sont relatives sur les lignes grâce à l'arobase. N'oubliez pas non plus, ça pourrait simplifier votre travail, quoique, que les références structurées sont relatives ou absolues sur les colonnes en fonction de la façon dont elles sont copiées, sauf à doubler la référence de colonne pour forcer le verrou lors de la recopie par la poignée de recopie (pas par copier-coller qui considère que toutes les références structurées sont absolues sur les colonnes, pas sur les lignes).

On pourrait regarder une formule sous ses expressions A1 et R1C1, en avançant pas à pas jusqu'à trouver des différences, mais là encore, il faudrait déterminer la règle qui permet de savoir, à partir du premier caractère différent, jusqu'où vont les références A1 et R1C1 dans chaque expression, ce qui revient de toute façon à un problème de grammaire...

Pour finir, la version 2007 n'est pas forcément la meilleure pour ce genre de projet, car les tableaux structurés n'étaient pas encore matures et la syntaxe est verbeuse, par rapport aux versions suivantes.

Je ne saurais trop vous conseiller de définir d'abord la méthode que vous allez utiliser, et d'envisager tous les cas grammaticaux, sans vous contenter de suppositions et d'approximations, en vous demandant si vous allez travailler en références A1 ou R1C1. Et je rappelle une dernière fois que pour moi, ça ne sert à rien (mais je peux entendre vos raisons, si vous en avez ;)).

Cela dit, je suis loin de maîtriser les algos de parsing de code, et d'autres ont peut-être une approche différente et/ou vont trouver que j'ai dit des bêtises ;)

Patrick,

c'est ce que je pensais au départ, travailler avec Precedents, mais je me suis aperçu assez rapidement de la limitation restant, au niveau de la feuille.
De plus imaginons que nous utilisons par exemple 3 cellules (comme précédents) dans le désordre comme "=F2+H2+I2" sachant qu'en H il y a une formule "=F2*G2", la réponse de Precedents.Address sera $F$2:$I$2
ou
dans un For Each $F$2, $G$2, $H$2, $I$2
Alors oui $G$2 fais bien partie d'un Precedents, mais pas de la formule "=F2+H2+I2"

C'est pour cela que je suis passé par :
ShowPrecedents et NavigateArrow, que j'ai appris à connaitre et qui me permettent de dépasser la limitation de la feuille et de sélectionner seulement les cellules concernées par la formule.

@Pierre Merci pour le lien avec les explications dans ton blog