FormulaArray et macro

Version imprimable

Bonjour à tous,

J'ai un soucis avec le compilateur d'Excel qui accepte par macro cette formule :

Code:

={INDEX(Fichier!G2:G5305;EQUIV(A2&D10&CONCATENER(A4;"01");Fichier!G2:G5305&Fichier!H2:H5305&Fichier!M2:M5305;0);1)

Et pas celle-ci
En VB

Code:

={SI(ESTERREUR(INDEX(Fichier!G2:G5305;EQUIV(A2&D10&CONCATENER(A4;"01");Fichier!G2:G5305&Fichier!H2:H5305&Fichier!M2:M5305;0);1));"";INDEX(Fichier!G2:G5305;EQUIV(A2&D10&CONCATENER(A4;"01");Fichier!G2:G5305&Fichier!H2:H5305&Fichier!M2:M5305;0);1))

Le deux formule marche bien quand je l'ai écris dans un onglet du fichier.

Par contre en mode macro la 1ère passe et la 2ème non.

Elle ressemble à ça:
Code:

1 2 3 Selection.FormulaArray = _ "=IF(ISERROR(INDEX(Fichier!R[-8]C[15]:R[5295]C[15],MATCH(R[-8]C[-4]&RC[-1]&CONCATENATE(R[-6]C[-4],""01""),Fichier!R[-8]C[2]:R[5295]C[2]&Fichier!R[-8]C[3]:R[5295]C[3]&Fichier!R[-8]C[8]:R[5295]C[8],0),1)),2,INDEX(Fichier!R[-8]C[15]:R[5295]C[15],MATCH(R[-8]C[-4]&RC[-1]&CONCATENATE(R[-6]C[-4],""01""),Fichier!R[-8]C[2]:R[5295]C[2]&v!R[-8]C[3]:R[5295]C[3]&XBMO" & _ "8]C[8]:R[5295]C[8],0),1))"
Merci ;)

17/05/2015, 20h22
Patrice740
Bonjour,

La formule

Code:

=IF(ISERROR(INDEX(Fichier!R[-8]C[15]:R[5295]C[15],MATCH(...

ne peut pas correspondre à :

Code:

={SI(ESTERREUR(INDEX(Fichier!G2:G5305;EQUIV(...

Dans le meilleur des cas (en colonne A) c'est :

Code:

={SI(ESTERREUR(INDEX(Fichier!P2:P5305;EQUIV(...

Utilises le code pour copier la formule dans une cellule, puis la copier/copier vers le VBA, à adapter :
Code:

1 2 Range("A2").NumberFormat = "@" Range("A2").Value = Range("A1").FormulaR1C1

Salut Patrice740,

Peux tu m'expliquer pourquoi cela ne peut pas correspondre?

Je trouve cela très étonnant sachant que lorsque je rentre cette formule dans un onglet:

Code:

={SI(ESTERREUR(INDEX(Fichier!G2:G5305;EQUIV(...

une macro tourne derrière et enregistre ce que je fais. Ce n'est donc pas moi qui est créer la formule en format R1C1 mais Excel:

Code:

=IF(ISERROR(INDEX(Fichier!R[-8]C[15]:R[5295]C[15],MATCH(...

Et l'erreur est: Impossible de définir la proprièté FormulaArray de classe Range
:koi:

Re,

Pour reprendre:

1ere Formule en E10
Cellule

Code:

{=INDEX(Fichier!G2:G5305;EQUIV(A2&D10&CONCATENER(A4;"01");Fichier!G2:G5305&Fichier!H2:H5305&Fichier!M2:M5305;0);1)}
Macro
Code:

1 2 3 4 Range("E10").Select Selection.FormulaArray = _ "=INDEX(Fichier!R[-8]C[2]:R[5295]C[2],MATCH(R[-8]C[-4]&RC[-1]&CONCATENATE(R[-6]C[-4],""01""),Fichier!R[-8]C[2]:R[5295]C[2]&Fichier!R[-8]C[3]:R[5295]C[3]&Fichier!R[-8]C[8]:R[5295]C[8],0),1)"
Marche

2eme Formule en E10
Je rajoute uniquement les conditions suivantes: SI() & ESTERREUR() pour éviter les #N/A dans mes cellules
Cellule

Code:

={SI(ESTERREUR(INDEX(Fichier!G2:G5305;EQUIV(A2&D10&CONCATENER(A4;"01");Fichier!G2:G5305&Fichier!H2:H5305&Fichier!M2:M5305;0);1));"";INDEX(Fichier!G2:G5305;EQUIV(A2&D10&CONCATENER(A4;"01");Fichier!G2:G5305&Fichier!H2:H5305&Fichier!M2:M5305;0);1))}
Macro
Code:

1 2 3 4 5 Range("E10").Select Selection.FormulaArray = _ "=IF(ISERROR(INDEX(Fichier!R[-8]C[2]:R[5295]C[2],MATCH(R[-8]C[-4]&RC[-1]&CONCATENATE(R[-6]C[-4],""01""),Fichier!R[-8]C[2]:R[5295]C[2]&Fichier!R[-8]C[3]:R[5295]C[3]&Fichier!R[-8]C[8]:R[5295]C[8],0),1)),"""",INDEX(Fichier!R[-8]C[2]:R[5295]C[2],MATCH(R[-8]C[-4]&RC[-1]&CONCATENATE(R[-6]C[-4],""01""),Fichier!R[-8]C[2]:R[5295]C[2]&Fichier!R[-8]C[3]:R[5295]C[3]&Fichier" & _ "]C[8]:R[5295]C[8],0),1))"
Marche pas

Je précise que je tape la formule dans la cellule et la macro enregistre toute seule le code en VB!

18/05/2015, 11h25
Igloobel

Bonjour,

Est-il obligatoire qu'il y ait une formule dans cette cellule ?

Ne peux-tu pas y mettre simplement le résultat en programmant en pur VBA ce que fait ta formule.
18/05/2015, 11h39
lulz17

Salut Igloobel,

Merci de ta participation :)

Oui, c'est obligatoire ..

Les utilisateurs vont avoir besoin de la formule des cellules pour des modifications ultérieures.

Je pourrais me contenter de la 1ère formule qui passe par macro, le seul problème est qu'elle affiche des #N/A et cela empêche la formule SOMME de faire un résultat:

En A1 j'applique ma formule et j'obtiens 10
En A2 j'applique ma formule et j'obtiens #N/A

En A3 ou je fais la somme de A1 & A2, j'aurais #N/A au lieu d'avoir 10 ...

Voila pourquoi j'essaie de les cacher dans ma formule avec SI & ESTERREUR mais cela bloque coté macro ..
18/05/2015, 11h59
lulz17

Bon au final,

Je pense que je vais garder la 1ere formule qui passe avec la macro.

En ce qui concerne les #N/A dans la somme, j'ai trouvé ça qui marche très bien:

Code:

=SOMME.SI(A1:A2;"<>#N/A")

Merci de votre participation :D
18/05/2015, 12h13
Igloobel

Citation:

Envoyé par lulz17

Oui, c'est obligatoire ..

Les utilisateurs vont avoir besoin de la formule des cellules pour des modifications ultérieures. ...

tu veux dire par là qu'ils vont modifié ta formule ?
18/05/2015, 12h20
lulz17

Yep,

C'est une demande du client. Il s'y "connait" en Excel :ptdr:

Donc, c'est pour sa que la macro était idéal pour insérer les valeurs & formules souhaitées dans les cellules. Ensuite, il peut les manipuler à sa guise.

C'est surtout la sélection de plage qui peut changer sur des cas un peu "unique" et non exhaustifs je dirais.
18/05/2015, 12h42
Igloobel

dans ce cas même la gestion du juste "si erreur" en pur VBA auquel j'avais pensé ne sera pas suffisant et j'ai pas mieux a t'offrir

dommage qu'il veut bidouiller tes formules

perso moi j'aurais essayé de persuader mon client en lui montrant une gestion de plage modifiable le tout en vba

sachant que toute façon c'est toujours lui qui a le dernier mot :aie: et dans ce cas ta solution reste le seule acceptée

bon courage
18/05/2015, 14h22
lulz17

Citation:

perso moi j'aurais essayé de persuader mon client en lui montrant une gestion de plage modifiable le tout en vba

Je suis d'accord avec toi!

Mais même si le client s'y "connait" en Excel, il n'aime pas trop le VBA :roll:

Citation:

sachant que toute façon c'est toujours lui qui a le dernier mot :aie:

C'est exactement sa!

Et en même temps ca m'arrange c'est plus rapide à faire :sleep:

En tout cas merci de ta participation ;)