Discussion :

[ivoratparis]

Bonjour, j'ai une fonction vba qui dépasse 255 caractères(la limite de la fonction FormulaArray ), comment je peux résoudre ce problème? Mon code est le suivant:

Code :

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

1
2
3
4
5
6
7
Set Ws = ThisWorkbook.Worksheets("Qualif opérateur  ")
Seuil = Ws.Range("M3")
Range("O2").Select
Range("O2:O2306").FormulaArray = _
        "=IF(RC[-14]='Orange Business S',IF(AND(RC[-4]<=60*(1+Seuil),RC[-4]>=60*(1-Seuil)),'OBS Bimestriel',IF(AND(RC[-4]>=30*(1-Seuil),RC[-4]<=30*(1+Seuil)),'OBS Mensuel'RC[-14])),IF(RC[-14]='SFR Fixe',IF(AND(RC[-4]>=30*(1-Seuil),RC[-4]<=30*(1+'Qualif opérateur " & _
        ")),'SFR Fixe Mensuel',IF(AND(RC[-4]<=60*(1+Seuil),RC[-4]>=60*(1-Seuil)),'SFR Fixe Bimestriel',IF(AND(RC[-4]>=121*(1-Seuil),RC[-4]<=121*(1+Seuil)),'SFR Fixe Quadrimestriel',RC[-14]))),IF(RC[-14]='SFR','SFR Mobile',RC[-14])))"
Selection.AutoFill Destination:=Range("O2:O2306")

Merci en avance

[aalex_38]

Bonjour,


Peux-être que tu peux utiliser des plages nommées ?

[ivoratparis]

Est-ce que vous pouvez détailler votre idée?

[Marc-L]

Bonjour,

la bonne question est :

arrives-tu à saisir une telle formule directement dans une cellule d'une feuille de calcul ?

Dans la négative, ce n'est pas la peine d'insister …

[Invité]

Salut,

C'est assez bizarre l'affichage des textes sous VBA. Pour ma part, cela marche lorsque je fais:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
[Table14[Colonne2]].Formula = "= COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1] _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
 _

Le petit trait (caractère de continuïté) en dernière ligne ne doit pas être enlevé.

Le nombre de caractères de continuïté semble être limité par contre.

Nota : Je suis en VBA7
Zut, j'ai modifié entre temps, en voulant rajouter encore un peu de texte, mais ça ne marche plus. En tout cas, la version posté ne marche plus. Et pourtant, ça a marché chez moi puisque j'ai essayé de compté le nombre de caractères avec la fonction NB.CAR et elle indiquait que je dépassé 255 caratères.

[Invité]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
[Table14[Colonne2]].Formula = "= COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" & "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
& "*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])*COS([@Colonne1])" _
 _
 _
 _

Celui-ci fonctionne tel qu'il est.