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