Discussion :

[bastba]

Bonjour,

Mon problème est le suivant : J'ai une formule LIREDONNEESTABCROISDYNAMIQUE très longue contenue dans un cellule texte.
Je veux l'insérer en VBA dans une cellule sauf que la limite est de 255 cacaractères.

J'ai essayé ceci :

Code :

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

1
2
3
4
5
6
7
8
Dim Formule as string
Formule = "="
For l = 0 To Round((Len(Cells(Cell.Row, Cell.Column + 3).Value) / 250) + 0.5, 0) - 1
Formule = Formule & _
Mid(Cells(Cell.Row, Cell.Column + 3).Value, 1 + l * 250, 250 + l * 250)           
Next l
 
Cells(NumeroCellIni, 6 + k).FormulaR1C1Local = Formule

Mais cela ne fonctionne pas ... J'ai une erreur système

Pourriez-vous m'aider svp ?
Merci de votre aide !

[eriiic]

Bonjour,

et si tu la mets dans un nom et =nom dans la cellule, même limitation ?
eric

[bastba]

Euh je ne comprends pas très bien ta réponse.
Tu peux me l'écrire un VBA stp ?
Dans un nom ? Tu veux parler de quoi comme variable ?

[unparia]

Bonjour
Je ne comprends déjà pas la nécessité d'une boucle pour dresser une chaîne de caractères égale à tout ou partie d'une chaîne de caractères spécifiée (et ce : à compter du 1er caractère)

[bastba]

En fait le problème est que ma formule est trop longue.
J'ai utilisé l'enregistreur de macro vba pour voir un peu comment il traitait ce cas et il le fait de cette facon :

Code :

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

1
2
3
4
FormulaR1C1 = "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" & _
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" & _
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" & _
etc

J'ai donc voulu recréer cela avant de l'injecter dans ma .FormulaR1C1Local = Formule
Mais cela ne fonctionne pas quand même

[eriiic]

Bonjour,

ex :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
    Dim i As Long, f As String
    For i = 1 To 208
        f = f & "+$A$1+$A$2"
    Next i
    Names.Add "ma_formule", "=" & f 'formule dans le nom
    Debug.Print Len(Names("ma_formule").RefersTo) 'longueur "ma_formule" = 4993
    [B1].Formula = "=ma_formule" 'résultat formule dans cellule
End Sub

La longueur max est environ 5000 car.
Sinon oui, il serait intéressant de voir le début de ta formule (résultat de 2-3 boucles) et que tu expliques ce que tu veux obtenir, elle est peut-être simplifiable avec d'autres fonctions.
eric

[unparia]

J'ai donc voulu recréer cela avant de l'injecter dans ma .FormulaR1C1Local = Formule
Mais cela ne fonctionne pas quand même

Affecter à une variable2 le contenu identique d'une variable1 pour utiliser variable2 à la place de variable1 est un "sport" que je ne comprends pas et qui n'a AUCUNE utilité. Tu peux faire autant de clones que tu veux d'une chose, y compris des clones de clones, le dernier clone sera bien évidemment identique au premier !
Je ne comprends pas que cela puisse t'échapper !
Et je sors ...

[bastba]

Merci eriiic je vais tester cela.
Ma formule est juste un LIRETABLEAUCROISEDYNAMIQUE mais sur un énorme TCD donc la formule est longue.
Je vais rajouter ensuite des variables dans la formules mais à part ça je ne pense pas qu'il y ait de simplification

unparia : C'était juste par désespoir que j'ai essayé cela ... Je m'en doutais fortement

[bastba]

Bonjour,

J'ai essayé

Code :

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

1
2
3
                        Formule = Cells(Cell.Row, Cell.Column + 3).Value
                        Names.Add "ma_formule", "=" & Formule 'formule dans le nom
                        Debug.Print Len(Names("ma_formule").RefersTo) 'longueur "ma_formule" = 4993

Sauf que j'ai un problème sur le add. Je pense que c'est encore le problème de longueur texte.


La solution serait peut être de faire tourner ma formule dans VBA et d'injecter ensuite le résultat dans Excel.
Comment peut-on faire cela svp ?

[RyuAutodidacte]

Bonjour,
Regarde ici : https://www.developpez.net/forums/d1...e/#post8976416

[bastba]

Super merci !

[bastba]

Alors cela fonctionne mais pour automatiser mon système cela serait plus simple de pouvoir calculer la formule sous VBA et injecter la valeur dans une cellule sélectionnée.
Cela est possible svp ?

[bastba]

En fait la solution qui convient le mieux à mon problème est la suivante :

Code :

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

Range("D17").Value = Replace(Range("F10").Formula, "[Month Year].&[2017]&[3]", "[Month Year].&[2017]&[4]")

J'utilise l'objet Range.Formula que je copie directement dans ma cellule avec un changement des variables par un replace.

Au lieu de faire formule => texte => formule, je fais formule => formule ce qui marche parfaitement.

Merci à tous pour votre aide !

[eriiic]

Bonjour,

le 20/04 :

Sinon oui, il serait intéressant de voir le début de ta formule (résultat de 2-3 boucles) et que tu expliques ce que tu veux obtenir, elle est peut-être simplifiable avec d'autres fonctions.

Tu aurais dû expliquer ta problématique
eric