Discussion :

[Petit Vince]

Bonjour à tous.

J'aurais besoin d'aide sur un truc, j’espère que ce n'est pas une re-dite.

Je travaille sur une userform qui remplis un tableau, y compris les formules.
Mais ce tableau, je souhaiterai qu'il s’appuie sur les données inclues dans une autre feuille ( qui se nomme INI), données que je devrait pouvoir modifier à ma guise par la suite.

Et la, j'ai beau essayer pas mal de choses, il me colle une erreur à chaque fois:

Code:

Code :

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

1
2
3
With Worksheets("Fen")
        .Cells(DernLigne, 18).Formula = _
        "=RC[-7]*'INI'!D17"

Résultat:

=K19*INI!'D17'

Qui me donne une erreur #NOM?.


Alors c'est très vraisemblablement une erreur de guillemets, mais je n'arrive pas à trouver la bonne combinaison?

[Petit Vince]

Comme un exemple vaut mieux qu'un long discours:

exemple.xlsm

Dans ce classeur, l'Userform remplis le tableau "Fenêtres B", en s'aidant des données entrés dans INI, ou dans Ressources (pas présent ici),
Ultérieurement une autre macro traitera ce tableau pour l'envoyer vers "export"

Dans le tableau, vous voyez tout de suite mon problème, le lien vers INI ne se fait pas correctement.

Pour ceux que cela intéresse, le problème se situe vers la ligne 425 de l'userform.

PS: Et si un gentil modo veux bien déplacer mon message, je me suis rendu compte un peu tard qu'il n'est pas à la bonne place...

[Petit Vince]

Code :

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

1
2
3
4
5
Dim i As String
i = Cells(17, 4).Address
 
Worksheets("Fenêtres Bernard").Cells(DernLigne, 18).Value = _
        "=RC[-7]*INI!" & i

Et pourquoi ça ça ne marche pas!?

[Marc-L]

Bonjour,

quand cela ne fonctionne pas, c'est que c'est du n'importe quoi ‼ .Value n'étant pas .FormulaR1C1 …

La prochaine fois, cela serait bien de poster directement dans le bon forum, là où il y a le plus de passage …

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Petit Vince]

Bonjour,

Oui c'est vrai, mais cela dit, ça fait une semaine que je bloque la dessus, alors au bout d'un moment, je doit avouer que je tente tout et n'importe quoi....
Et du coup, je viens d'essayer avec formula et formulaR1C1, et la je me prends une erreur 1004...

En passant, vous n'auriez pas une idée pour régler mon problème?


Et pour le forum où poster, je suis tout à fait d'accord, mais comme je ne sais pas qui contacter pour réparer cette erreur...

[Marc-L]

Paramétrer une formule de calculs directement dans une cellule et une fois au point, indiquer - la …

[Petit Vince]

Récapitulons:

- Je souhaite qu'il m'inscrive sur mon tableau "=K*INI!D17"
- Quand il me colle pas une erreur, il m'inscrit au mieux : " =K25*INI!'D17' " (du coup les *** de guillemets font tout foirer à chaque fois...)
- J'ai testé pas mal de trucs :

Code :

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

1
2
3
4
Dim i As String
i = Cells(17, 4).Address
Worksheets("Fenêtres Bernard").Cells(DernLigne, 18).FormulaR1C1 = _
        "=RC[-7]*INI!" & i

Code :

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

"=RC[-7]*" & Worksheets("INI").Name & "!" & Cells(DernLigne, Col).Address

Code :

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

"=RC[-7]*INI!" & "D17"

Code :

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

"=RC[-7]*(" & Worksheets("INI").Name & "!$D$17)"

Et d'autres encore dont j'ai pas gardé la trace.

A chaque fois avec .value et .formula (au cas où)
J'ai changé le nom de la feuille INI, au cas où.
J'ai essayé dans un module et non dans une userform, on ne sais jamais.


Bon, ben la je sèche. Un paramétrage d'Excel? Je ne comprends pas du tout d'où viens le problème, avant de poster ici j'ai pas mal chercher sur le net et j'ai pas trouvé ma réponse...

Paramétrer une formule de calculs directement dans une cellule et une fois au point, indiquer - la …

Mais est ce que ça me permettra de modifier mes résultats à la volée?
L'idée ici, c'est que même une fois toutes mes fenêtres faites, imaginons qu'on décide de changer mon épaisseur de baie, mon temps de main d’œuvre ou mon type de vitrage, je n'ai qu'à changer mon type sur INI et que tout se fasse tout seul...
Ou alors je ne comprends ce que vous souhaitez me faire essayer?

[Marc-L]

Comme dans le code initial la propriété Formula se réfère à une formule de calculs d'une cellule dans une feuille Excel,
il n'est pas envisageable de programmer une formule ne fonctionnant déjà pas manuellement dans une cellule !

Et sans connaître cette formule fonctionnant donc directement dans une cellule, aucune aide possible …

En programmant cette formule en ayant activé au préalable le Générateur de macros, le code est livré sur un plateau ‼

[Petit Vince]

Comme dans le code initial la propriété Formula se réfère à une formule de calculs d'une cellule dans une feuille Excel,
il n'est pas envisageable de programmer une formule ne fonctionnant déjà pas manuellement dans une cellule !

Et sans connaître cette formule fonctionnant donc directement dans une cellule, aucune aide possible …

En programmant cette formule en ayant activé au préalable le Générateur de macros, le code est livré sur un plateau ‼

La formule de base, c'est

Code :

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

=K12*14

12 étant un chiffre donné au pif.

La modification de mon "truc" (j'ose a peine appeler ça macro) consiste à modifier le 14 pour le transformer en référence à une cellule donnée d'une autre feuille (D17 en l’occurrence, dans ce cas la)
L’enregistreur de macro me donne :

Code :

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

ActiveCell.FormulaR1C1 = "=RC[-7]*INI!R[-16]C[-14]"

Avec une référence de cellule en RC qui ne me conviens pas du tout. Il doit être possible de bidouiller ça, mais ça me semble beaucoup moins satisfaisant qu'une référence absolue, cette cellule D17 que Excel s'obstine à appeler 'D17'.

J'insiste la dessus, parce que j'ai au moins une vingtaine de calcul que j'aimerai indexer à une référence fixe sur la feuille INI, celui la est le premier, mais une fois que j'aurais une solution je pourrai faire l'ensemble dans la foulée!

[pyloupylou]

Ça me rappelle le nombre de fois où j'ai cru devenir fou

et si tu essayais

Code :

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

ActiveCell.Formula = "=RC[-7] * " & Sheets("INI").Range("D17").Value

[Petit Vince]

@ pyloupylou :

Code :

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

ActiveCell.Formula = "=RC[-7] * " & Sheets("INI").Range("D17").Value

Ça marche, mais ça n'est pas ce que je veux... ^^

Du coup j'ai l'impression que ce que je voulais faire est simplement pas possible. Je vais utiliser la formule ci-dessus et faire une macro à coté pour mettre les valeurs à jours, ça va être plus long, mais plus simple.

Merci de votre aide en tout cas!

[Marc-L]

Cela doit être possible mais sans la formule de calculs demandée fonctionnant directement dans une cellule …

[Petit Vince]

Cela doit être possible mais sans la formule de calculs demandée fonctionnant directement dans une cellule …

Je suis désolé, mais je ne comprends pas?
J'ai donné:
-La formule de base = K12*14
-La formule que je veux (et qui marche dans une cellule) = K12*INI!D17
[ d’ailleurs, ce serait à inscrire directement dans le tableau, j'écrirai = K12*INI!$D$17]
-La formule qu'Excel inscrit systématiquement = K12*INI!'D17'

Alors si il y a une autre formule que vous souhaitez, je ne vois pas?

[Marc-L]

INI : est-ce une autre feuille du même classeur ?

[Petit Vince]

INI : est-ce une autre feuille du même classeur ?

Oui.
L'idée est de paramétrer tout ce qui est "semi fixe" sur cette feuille,
Exemple ici : le débit du chêne, on compte usuellement 14 h/m3. Imaginons que l'on décide d'utiliser un chêne un peu moins bon, et que le débit peut se faire finalement en 12H/m3, je souhaiterais que toutes mes fenêtres déjà paramétrées se modifient en conséquence d'un coup, d'où l'envie de faire passer le calcul par la cellule D17 de cette feuille la.

[Marc-L]

Je ne comprends pas alors car il n'y a aucune difficulté dans cette simple formule de calculs :

ActiveCell.Formula = "=K12*INI!$D$17" : fonctionne évidemment bien de mon côté.

Autre voie : nommer la cellule D17 …

[Petit Vince]

Je ne comprends pas alors car il n'y a aucune difficulté dans cette simple formule de calculs :

ActiveCell.Formula = "=K12*INI!$D$17" : fonctionne évidemment bien de mon côté.

Autre voie : nommer la cellule D17 …

Ah ouais, chez moi aussi, mais du coup le problème devait être que j'inscrivais K12 en R1C1... C'est le mélange des deux qui devais faire empêcher que ça marche. (désolé, je code en autodidacte que depuis peu, y'a des automatismes que je n'ai pas encore...)

La cellule nommée, ça fonctionnerai avec K12 en R1C1?

Du coup, je tente ça ce soir, merci!

[Marc-L]

Et pourtant je l'avais indiqué dès mon premier message !

Pas de souci avec une cellule nommée (si le nom de la cellule ne correspond pas à une adresse de cellule) …

[Jean-Philippe André]

Salut,

pour toutes les subtilités de formules, le plus pragmatique reste de passer par le macro recorder, et d'adapter le code par la suite. Cela évite les errements et les séries d'échanges bien trop longs pour une erreur de syntaxe

[Petit Vince]

Merci à tous pour votre aide!