FormulaArray qui dépasse 255 caractères

**ivoratparis** · 08/07/2013, 12h15

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** · 08/07/2013, 17h48

Bonjour,

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

**ivoratparis** · 11/07/2013, 16h56

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

**Marc-L** · 11/07/2013, 18h16

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é · 11/07/2013, 19h21

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é · 11/07/2013, 19h39

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.

**NVCfrm** · 11/07/2013, 20h47

bonsoir,
ce que je voulais ajouter c'est que: Excel permet de dépasser la limite de caractères avec l'opérateur de concaténations "&" que Nouveau2 a démontré. Je sais que certaines fonctions Excel impose la limite de 255 caractères pour les chaînes, Mais par contre ce que je ne sais pas c'est qu'il y a une limite de caractères pour la méthode FormulaArray.

**parmi** · 11/07/2013, 21h19

Bonjour,

Et si tu nous écrivais la formule telle apparaît dans ta cellule de la ligne 2 ?
Personnellement, je préfère de loin écrire une formule avec Formula...

**Philippe Tulliez** · 12/07/2013, 00h20

Bonsoir,

Envoyé par parmi

Bonjour,
Et si tu nous écrivais la formule telle apparaît dans ta cellule de la ligne 2 ?
Personnellement, je préfère de loin écrire une formule avec Formula...

La propriété Formula sert à écrire des formules "classique" la propriété FormulaArray pour écrire des formules matricielles (Ctrl+Maj+Retour) et sa limite est effectivement de 255 caractères.

Invité · 12/07/2013, 00h25

Bonsoir,

Envoyé par NVCfrm

bonsoir,
ce que je voulais ajouter c'est que: Excel permet de dépasser la limite de caractères avec l'opérateur de concaténations "&" que Nouveau2 a démontré. Je sais que certaines fonctions Excel impose la limite de 255 caractères pour les chaînes, Mais par contre ce que je ne sais pas c'est qu'il y a une limite de caractères pour la méthode FormulaArray.

Le problème est qu'il a déjà utilisé un &

.
En calculant la longueur de ce texte:

Code :

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

"=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 "

La fonction NBCAR me donne 254 caractères.

Envoyé par Philippe Tulliez

Bonsoir,

La propriété Formula sert à écrire des formules "classique" la propriété FormulaArray pour écrire des formules matricielles (Ctrl+Maj+Retour) et sa limite est effectivement de 255 caractères.

Ah, c'est bon à savoir.

EDIT: Finalement, je ne suis pas sûr que l'écriture matricielle soit limité. J'ai testé sur une formule matricielle dépassant largement les 255 caractères et je sais que cette formule ne marche pas sans formule matricielle sous peine d'erreur. Cependant, j'ai testé en Excel. A voir en VBA donc.

**Philippe Tulliez** · 12/07/2013, 01h34

Bonsoir,

EDIT: Finalement, je ne suis pas sûr que l'écriture matricielle soit limité. J'ai testé sur une formule matricielle dépassant largement les 255 caractères et je sais que cette formule ne marche pas sans formule matricielle sous peine d'erreur. Cependant, j'ai testé en Excel. A voir en VBA donc.

Extrait de l'aide de VBA sur la propriété FormulaArray

Syntaxe
expression.FormulaArray
expression Variable qui représente un objet Range.
Remarques
Si vous utilisez cette propriété pour entrer une formule sous forme matricielle, vous devez utiliser le style de référence L1C1, et non le style de référence A1 (consultez le second exemple).
La propriété FormulaArray a également une limite de 255 caractères.

**NVCfrm** · 12/07/2013, 02h42

bonsoir Philippe,
très bonne info!
c'est quand même curieux d'avoir les caractères limités en VBA et non dans le tableur.

Invité · 12/07/2013, 08h02

Bonjour,

Oui, c'est curieux, c'est à croire que Microsoft n'a plus mis à jour le VBA depuis la sorti de XL 2003

Testé sur une formule en Excel, les formules matricielle avec plus de 255 caractères fonctionnent parfaitement.

J'en vient à me demander si il ne serait pas possible de simuler des actions depuis le VBA vers Excel.
Je n'ai pas réussi à trouver de racourci clavier pour accéder à la barre de formule Excel pour tester la fonction SendKeys. Ça pourrai donner:

Code :

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

SendKeys "^+{ENTER}", True

Pour simuler un Ctrl+Maj+Enter en activant (.activate) la plage de cellules souhaité pour le calcul de plage en formule matricielle.

D'autres solutions sinon ? Je ne sais pas si il existe justement des fonctions spéciales permettant d'accomplir des tâches Excel, un peu à la manière de la fonction SendKeys.

Invité · 12/07/2013, 08h13

Envoyé par parmi

Bonjour,

Et si tu nous écrivais la formule telle apparaît dans ta cellule de la ligne 2 ?
Personnellement, je préfère de loin écrire une formule avec Formula...

Bonjour,

J'avais pas vu ton message.

Dans certains cas, il est très compliqué d'utiliser une formule basique.

Un exemple concret:

Code :

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

= 10 *LOG10( 10^([@R1]/10) + 10^([@R2]/10) + 10^([@R3]/10) + 10^([@R4]/10) + 10^([@R5]/10) + 10^([@R6]/10) + 10^([@R7]/10) + 10^([@R8]/10) + 10^([@R9]/10) + 10^([@R10]/10) + 10^([@R11]/10) + 10^([@R12]/10) + 10^([@R13]/10) + 10^([@R14]/10) + 10^([@R15]/10) + 10^([@R16]/10) + 10^([@R17]/10) + 10^([@R18]/10) + 10^([@R19]/10)  ) - 10*LOG10(19)

Code :

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

{=10*LOG10(SOMME(10^((Tableau7[@[R1]:[R19]])/10))) - 10*LOG10(NB(Tableau7[@[R1]:[R19]]))}

Ces 2 formules sont équivalentes, sauf que la 2ème est plus courte. Avec 500 valeurs plutôt que 19 valeurs, la 1ère formule serait hyper lourde à écrire, alors que la 2ème aurait le même nombre de caractères (à 4 caractères près).

**Marc-L** · 12/07/2013, 08h49

Envoyé par Nouveau2

c'est à croire que Microsoft n'a plus mis à jour le VBA depuis la sorti de XL 2003

Y a quand même eu une refonte lors de la version 2007 …

Envoyé par Nouveau2

Testé sur une formule en Excel, les formules matricielle avec plus de 255 caractères fonctionnent parfaitement.

Pour d'autres manipulations j'ai déjà réussi à briser la barrièrre des 255 caractères;

si quelqu'un pouvait mettre en pièce jointe un classeur avec une formule matricielle dépassant bien cette limite
(en nombre de caractères réel du côté feuille de calcul) afin de voir si l'une de mes astuces est applicable dans ce cas de figure …

Invité · 12/07/2013, 09h14

comme la justement démontré Nouveau2, VBA n'est pas limité en nombre de caractères, mais en nombre de caractères sur la même ligne.
il faut la découper en plusieurs ligne concaténé avec un et commerciale [&].

Envoyé par Nouveau2

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.

Code :

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

1
2
3
4
dim txt as string
txt="aa"
txt=txt & "bb"
cell.formular1c1=txt

**Philippe Tulliez** · 12/07/2013, 10h27

Bonjour,
Astuce de J.Walkenbach trouvé sur ce site http://dailydoseofexcel.com/archives...rmulas-in-vba/ suite à une discussion
Je l'ai testé il fonctionne

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
Public Sub LongArrayFormula()
    Dim theFormulaPart1 As String
    Dim theFormulaPart2 As String
    theFormulaPart1 = "=IF(MONTH(DATE(YEAR(NOW()),MONTH(NOW()),1))-" & _
                          "MONTH(DATE(YEAR(NOW()),MONTH(NOW()),1)-" & _
                          "(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1))-1)+" & _
                          "{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1),""""," & _
                          "X_X_X())"
 
    theFormulaPart2 = "DATE(YEAR(NOW()),MONTH(NOW()),1)-" & _
                      "(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1))-1)+" & _
                      "{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1)"
 
    With ActiveSheet.Range("E2:K7")
        .FormulaArray = theFormulaPart1
        .Replace "X_X_X())", theFormulaPart2
        .NumberFormat = "mmm dd"
    End With
 
End Sub

Invité · 12/07/2013, 10h44

Bonjour Philippe Tulliez,
le problème est que le compilateur Vb ne gère pas des ligne de texte trop longue dans l'éditeur.
je rencontrais déjà ce phénomène en VB3,VB4....

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
Public Sub LongArrayFormula()
    Dim theFormulaPart As String
 
    theFormulaPart = "=IF(MONTH(DATE(YEAR(NOW()),MONTH(NOW()),1))-" & _
                          "MONTH(DATE(YEAR(NOW()),MONTH(NOW()),1)-" & _
                          "(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1))-1)+" & _
                          "{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1),""""," & _
                          "X_X_X())"
 
    theFormulaPart = theFormulaPart & "DATE(YEAR(NOW()),MONTH(NOW()),1)-" & _
                      "(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1))-1)+" & _
                      "{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1)"
 
    With ActiveSheet.Range("E2:K7")
        .FormulaArray = theFormulaPart
    End With
 
End Sub

**Philippe Tulliez** · 12/07/2013, 11h02

Bonjour Robert,
Au temps pour moi, je n'ai sans doute jamais utilisé des lignes de texte aussi longue par concaténation.

Invité · 12/07/2013, 11h14

Bonjour à tous,

Envoyé par Marc-L

Y a quand même eu une refonte lors de la version 2007 …

Pour d'autres manipulations j'ai déjà réussi à briser la barrièrre des 255 caractères;

si quelqu'un pouvait mettre en pièce jointe un classeur avec une formule matricielle dépassant bien cette limite
(en nombre de caractères réel du côté feuille de calcul) afin de voir si l'une de mes astuces est applicable dans ce cas de figure …

http://cjoint.com/13ju/CGmk72Va5gK.htm

Envoyé par Philippe Tulliez

Bonjour,
Astuce de J.Walkenbach trouvé sur ce site http://dailydoseofexcel.com/archives...rmulas-in-vba/ suite à une discussion
Je l'ai testé il fonctionne

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
Public Sub LongArrayFormula()
    Dim theFormulaPart1 As String
    Dim theFormulaPart2 As String
    theFormulaPart1 = "=IF(MONTH(DATE(YEAR(NOW()),MONTH(NOW()),1))-" & _
                          "MONTH(DATE(YEAR(NOW()),MONTH(NOW()),1)-" & _
                          "(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1))-1)+" & _
                          "{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1),""""," & _
                          "X_X_X())"
 
    theFormulaPart2 = "DATE(YEAR(NOW()),MONTH(NOW()),1)-" & _
                      "(WEEKDAY(DATE(YEAR(NOW()),MONTH(NOW()),1))-1)+" & _
                      "{0;1;2;3;4;5}*7+{1,2,3,4,5,6,7}-1)"
 
    With ActiveSheet.Range("E2:K7")
        .FormulaArray = theFormulaPart1
        .Replace "X_X_X())", theFormulaPart2
        .NumberFormat = "mmm dd"
    End With
 
End Sub

Intéressant le Replace avec le With Range.
J'ignorais complètement qu'on pouvait agir sur les formules ainsi.

FormulaArray qui dépasse 255 caractères

Macros et VBA Excel

Discussions similaires

Partager

Partager