Passage de formule d'un tableau vers un Range

Bonjour,

Je passe des "formules" simple du style "=D4+F4" d'un tableau de String vers un Range que j'ai préalablement initialisé.

Code:

---

1 2	monRange.FormulaR1C1 = monTab(i).valeurs ' Valeurs étant un tableau de String

---

Lorsque je passe cette ligne, ça me met dans monRange et dans chaque cellule concernées les formules du style " '=D4+F4 " (sans les espaces et les 2 " bien sur)

VBA me rajoute le " ' " alors que je ne l'ai pas mis lorsque j'ai construis mon tableau.
Du coup Excel croit que c'est du texte et non une formule.

Quelqu'un peut il me dire pourquoi j'ai ce comportement ?
Et comment faire pour ne plus avoir ce problème ?

Pour info, je n'ai pas les cellules forcées en "Texte" elles sont en "Standard"

Merci d'avance pour vos réponses

Bonjour,

Essaie :

Code:

---

1 2	monRange.Formula = monTab(i).valeurs

---

pour voir.

Déjà essayé sans succès.
Par contre cela ne me met pas la simple cote

Si je fait une "=SOMME(D4;F4)" cela s'affiche comme une string mais si j'édite la cellule sans la modifier cela me fait le calcul lorsque je lâche le focus de la cellule édité

Bonjour,

c'est quoi la propriété .valeurs d'un Tableau de String ?

Je savais pas qu'il y avait du français dans le VBA
Ni même qu'un tableau de string avait une telle propriété


j'ai aucun souci avec ça de mon côté

Code:

---

1 2 3 4 5 6 7 8 9

Sub toto() Dim MonTab(0) As String MonTab(0) = "=D4+F4"   Dim MonRange As Range Set MonRange = Range("A4")   MonRange.Formula = MonTab(0) End Sub

---

Sans voir tes données, je ne peux que t'orienter sur une utilisation correcte de FormulaR1C1 sans besoin d'utiliser une variable tableau si j'ai bien compris ce que tu fais
Tu as remplis un tableau avec pleins de formules identiques (genre "=Dx + Fx") pour ensuite les appliquer sur une la colonne Y des x lignes ?



Je visualise mal la raison pour laquelle tu as rempli un tableau de formules, visiblement identiques, pour ensuite les appliquer sur une colonne

Merci pour ta réponse joe

En fait "valeurs" n'est pas une propriété mais un tableau qui se trouve lui même dans un tableau.

Les formules dans chaque item ne sont pas identiques mais toutes de la forme : cellule A + cellule B + .... (le nombre de cellule à ajouter est variable)

Mon problème du jour, c'est de générer 23 formules (ou aucune ne récupère les même valeurs) sur une ligne et cela sur plus de 1000 lignes (Je ne connais pas le nombre de ligne à l'avance)

Le fait de passer par un tableau me semblait plus rapide.
Le but étant d'éviter de parcourir tous les indices du sous tableau x fois .
Apparemment cela fonctionne mais ,car il y a un mais, mes formules ne sont pas reconnues comme telles mais comme des String.

Et c'est pareil, si je le fait par l'indice comme le montre ton exemple. A la différence près que si j'édite à la main la cellule et que j'en sors sans rien changé alors là, c'est reconnu comme une formule .
Bien sur, je ne peux pas faire ça pour en moyenne plus de 23 000 cellules. ;)

Bonjour, bonjour !

Comme il n'y a aucune difficulté pour directement affecter des formules d'une variable tableau dans
une plage de cellules, une ligne de code suffisant, alors la méthode est fausse ou ce sont les formules !

Évidemment si les formules sont en français alors cela ne peut fonctionner avec Formula réservée
à la version interne native en anglais, comme c'est pourtant indiqué dans l'aide VBA !
Dans ce cas, c'est la propriété FormulaLocal … Encore faut-il la plage de cellules non formatée en texte !

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

Bonjour,

En fait, dans mes formules, il n'y a que des "=" et des "+" normalement pas besoin de local.
Pas très compliqué donc.

Je n'avais pas essayé mais après test, comme prévu, c'est pas mieux

Code:

---

1 2 3 4

For j = 0 To UBound(monTab(i).valeurs, 1) monRange.Item(1, j + 1).Formula = monTab(i).valeurs(j) Next j

---

Pour le moment, je vais le faire à la bourin avec ce code puisque ça fonctionne et tampis pour les perfs.

Merci et si vous avez d'autres idées comme une config quelconque dans excel ou ailleurs, je suis preneur.

En une ligne de code j'entends donc sans boucle !

Oui, j'avais bien compris mais apparemment

Code:

---

monRange.Formula = monTab(i).monTabFormule

---

ne fonctionne pas

Merci de ne pas quotter l'intégralité du message juste précédent !

Sinon comme Joe ni moi ne rencontrons pas de souci, j'en reviens donc à mon premier message …

_________________________________________________________________________________________________________

La théorie, c'est quand on sait tout et que rien ne fonctionne. La pratique, c'est quand tout fonctionne et que l'on ne sait pourquoi.
Ici, nous avons réuni théorie et pratique : rien ne fonctionne … et personne ne sait pourquoi ! (Albert Einstein)

Merci à tous les 2

Je vais utiliser le contournement suivant :
- Faire mes calculs à partir des valeurs qui sont déjà dans le "premier étage" de mon tableau,
- Insérer les résultats dans mon tableau
- Passer à mon Range les valeurs en une seule ligne ;) plutôt que les formules

Après test de cette solution c'est OK

Je ferme la discussion.

Citation:

---

Envoyé par dan34

En fait "valeurs" n'est pas une propriété mais un tableau qui se trouve lui même dans un tableau.

---

Bonjour,

je vais peut être dire une bêtise, mais quand j'utilise des tableaux dans des tableaux, je n'ai jamais écrit du code comme ça pour manipuler le "sous-tableau"
je ne dis pas que ton écriture est fausse du coup, juste que je ne l'avais jamais vue.

voici comment j'ai toujours manipulé, en cumulant les indices de tableaux les uns à la suite des autres :

dans cet exemple, on va écrire la formule "=Dx+Fx" sur les lignes allant de 2 à 50, sur la colonne C
en utilisant la propriété .FormulaR1C1 qui va permettre, en une seule passe, d'appliquer la formule sur toutes les lignes

Bien sûr, cet exemple n'avait pas besoin d'un tableau père et d'un tableau enfant, on aurait pu immédiatement utiliser le String de la formule ... mais on ne sait toujours pas grand chose sur la structure exacte de toutes tes formules et s'il y a nécessité de passer par un tableau de formules (voir la fin de mon précédent message)

Donc je suis aveuglément la méthode que tu cherches à appliquer

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub toto() Dim TableauPere(0) ' il contiendra le sous tableau Dim TableauEnfant(0) As String ' le tableau avec la formule en référence relative TableauEnfant(0) = "=RC[1]+RC[3]" ' =Dx + Fx TableauPere(0) = TableauEnfant() ' on y met le tableau enfant   ' le premier (0) indique qu'on prend le premier élément du tableau père ' le second (0) indique qu'on prend le premier élément du tableau enfant Range("C2", "C50").FormulaR1C1 = TableauPere(0)(0)   End Sub

---

Bonjour Joe,

Je ne connaissais pas cette méthode.

En fait effectivement mon cas est un peu plus compliqué que ça.

Pour tout dire, j'ai initialisé un type personnalisé qui contient des sous types personalisés du style

Code:

---

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

Public Type T_Maturity strMaturity As String iNeed As Integer iCommited As Integer iReleased As Integer iTotal As Integer End Type   Public Type T_Criticity strCriticity As String tMaturity(1 To 3) As T_Maturity End Type   Public Type T_KPI dDate As Date tFormules(0 To 26) As String tCriticity(1 To 3) As T_Criticity End Type

---

Mon point de départ est un tableau de T_KPI.
Du coup, je ne vois pas comment adapter ta solution.

Je ne comprend pas exactement la relation entre ton dernier message et la demande initiale :weird: et je ne vois pas vraiment ce que tu veux faire avec ces deux types

si tu veux naviguer dans un sous tableau, j'imagine que c'est la variable tmaturity ?

je pense qu'il va falloir compléter l'explication, puisque le problème est moins simple que la description intiale

En fait j'initialise un tableau de type T_KPI dans lequel pour chaque items, j'ai un tableau de String que j'appelle tFormules.

C'est ce tableau tFormules que je remplis de mes formules de calcul pour chaque items du tableau de type T_KPI.