Discussion :

[Pierre C.B.]

Bonjour à tous,

Je me trouve devant le problème suivant pour créer une macro sur Excel 2016.

Dans une cellule X10 (appelons la comme ça), les macros précédente ont inscrit sous forme de texte l'adresse d'une cellule d'une autre feuille. Ce contenu change chaque fois que les macros en amont ont tourné.

Dans une autre cellule (disons Y10), je veux inscrire cette adresse et en faire une formule de lien en faisant précéder le contenu par le signe =.

Dans la macro obtenue par le méthode automatique, j'obtiens le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Range("X10").Select
    Selection.Copy
    Range("Y10").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = _
        "='chemin_de_la_feuille_liée'!R[-x]C[-y]"

Et ça marche!

MAIS, lorsque cette macro vient s'activer après un nouveau travail en amont, elle lie encore ma cellule Y à la même feuille, et le résultat est toujours le même!
Ma cellule Y10 aura toujours le même contenu et Excel ne le considèrera pas comme une formule, bien qu'il commence par le signe =.

D'où la question: quel est le code, ou la manip à faire lors la création de la macro, pour que EXCEL reconnaisse le contenu de Y10 comme une formule?

Grand merci à qui m'apportera la solution, qui est peut-être toute bête, évidemment ….

[Philippe Tulliez]

Bonjour,
Avant tout, en lieu et place d'un Copier/CollageSpecial-Valeur comme le code ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("X10").Select
Selection.Copy
Range("Y10").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Il est nettement plus simple d'écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("Y10").Value = Range("X10").Value

Il est aussi impératif afin d'éviter de mauvaises surprises d'indiquer les parents des cellules source et cible comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 With ThisWorkbook.Worksheets("Feuil2")
 .Range("Y10").Value = .Range("X10").Value
 End With

Quant à la suite du code soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.FormulaR1C1 = "='chemin_de_la_feuille_liée'!R[-x]C[-y]"

En première réponse, je te dirais d'effacer tout simplement la cellule par la méthode Clear avant de lancer la macro ou encore plus simplement d'effacer la feuille entière mais Il est difficile d'apporter une réponse pertinente sans en savoir plus

[Pierre C.B.]

Bonjour Philippe,

Grand merci pour ta réponse qui améliore ma macro mais qui malheureusement me laisse avec le même problème.

L'instruction. ActiveCell.FormulaR1C1 = "='chemin_de_la_feuille_liée'!R[-x]C[-y]"

met bien dans la cellule Y20 un contenu de la forme ='chemin_de_la_feuille_liée'
mais EXCEL ne le reconnaît pas comme une formule! Le contenu de la cellule visée par le dit chemin n'est donc pas renvoyé.

De plus, Le contenu de la cellule X10, qui est ledit chemin, est différent à chaque session.
Mais la macro restant la même, le chemin renvoyé est toujours le même, celui inscrit lors de la création de la macro.

Il y a alors 2 questions.

1) quelle peut être la syntaxe de l'instruction ActiveCell. etc. pour que le contenu mis dans Y10 soit reconnu comme une formule, est non comme un texte, et qu'apparaisse bien, en valeur, la cellule visée par ledit chemin. Bizarrement, il n'est reconnu comme formule que si je mets le = à la main, et le rôle de cette macro est justement de m'éviter cette corvée.

2) et aussi que ce qui suit le signe = soit lu à chaque session dans X10, donc chaque fois renouvelé par les calculs en amont.

J'espère que ce n'est pas trop tordu, car j'opère plutôt en mode bidouilleur.

Merci d'avance!

[Philippe Tulliez]

Bonjour,

Grand merci pour ta réponse qui améliore ma macro mais qui malheureusement me laisse avec le même problème

Je n'ai pas écrit autre chose. J'ai simplement indiqué que c'était mieux d'écrire la ligne de code telle que je l'ai proposée en lieu et place des Select et ActiveCell qui ne font que ralentir l'exécution d'une procédure.

ActiveCell est un objet Range qui comme son nom l'indique représente la cellule active.
Pour écrire une formule dans une cellule il faut employer une des propriétés Formula, FormulaR1C1 ou leur équivalent local que personnellement je déconseille fortement (FormulaLocal et FormulaR1C1Local).
Dans le code ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With ThisWorkbook.Worksheets("Feuil3")
.Range("C1").Formula = "='Page 1'!B1"
.Range("C1").FormulaR1C1 = "='Page 1'!RC[-1]"
End With

l'instruction de la ligne 2 écrit exactement la même formule que celle de la ligne 3 soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

='Page 1'!B1

A toi de voir ce qui cloche.
Ce que tu affiches est incomplet car si x et y sont des variables VBA, évidemment la chaîne de caractères ainsi écrite est incorrecte.
Si l'adresse de la cellule où tu écris cette formule change, comme je l'ai écrit dans ma première réponse je passerais par l'effacement de la cellule ou de la feuille entière avant d'enclencher la procédure.

[Qwazerty]

Salut

Les cellules où tu inscris les formules ne seraient pas en format texte? Ça pourrait peut-être (je n'ai pas testé) expliquer le phénomène.
[Edit]J'ai fais le test, ça provoque bien l'effet d'écrit.[/Edit]

++
Qwaz

[Pierre C.B.]

Je pense que c'est tout à fait ça.
Voici mon problème exposé le plus simplement possible.
1 Le contenu de la cellule A1 est "'USER/.../.../"
2 La cellule A2 concatène "=" et le contenu texte de A1 par CONTATENER("=";A1)
3 Je copie A2 dans A3 en collage spécial Valeur
Le contenu de A3 est le texte: "='USER/.../.../"
Mais EXCEL ne le lit que comme un texte et non comme une formule qui me renverrait le contenu de la cellule visée par User/.../...

Comment faire pour que Excel le lise comme une formule et me renvoie le contenu de USER/.../...?

Je note que si je ne fais pas une concaténation en 2 mais si je place à la main "=" avant le contenu de A1, EXCEL renvoie bien le contenu de la cellule USER/.../...
C'est justement ce que je voudrais que fasse une macro!

Il me manque probablement un truc très élémentaire ...
Merci de me mettre sur la voie!

[Qwazerty]

Salut

C'est la fonction Indirect() que tu recherches mais ceci étant, tu devrais à mon avis expliqué plus généralement ce que tu souhaites faire, ça éviterait peut-être une usine à gaz

++
Qwaz

[Pierre C.B.]

J'ai oublié de préciser que le contenu de A1 dépend du résultat obtenu en amont par d'autres macros, et est donc variable d'une session à l'autre.

[sogedic]

Bonjour

de tête j'ai eu un soucis récement par ce qu'il perd le "'"
essaie de modifier avec qqchose du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
= indirect("'"&user)

[Qwazerty]

Salut

Bonjour

de tête j'ai eu un soucis récement par ce qu'il perd le "'"

Dans une cellule c'est possible car le ' est utilisé comme caractère d'échappement, excel n’interprète pas le contenu de la cellule lorsqu'elle commence par un apostrophe. Utile pour commencer une phrase par =, +, -, ... sans qu'excel ne voit ça comme une formule et sans devoir passer le cellule en format texte (ce qui, pour mon compte, pose souvent des problème).
Il est donc plausible qu'en prenant en charge le contenu de la cellule dans du code, Excel puisse ignorer l'apostrophe (non vérifié).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=INDIRECT("'Feuil1'!B27")

++
Qwaz