XL 2016 Erreur formule matricielle en vba

[Nestor]

Bonjour à tous

J'essaie avec le code suivant d'appliquer à un cellule trouvée après recherche dans une colonne, une formule matricielle qui va chercher la 1ere valeur d'une autre colonne
et qui me donne une erreur 1004 "impossible de définir la propriété FormulaArray de la classe Range"

Set Plage = Range("J1:J" & Range("A" & Rows.Count).End(xlUp).Row)
For Each cel In Plage
If cel = 0 Then
cel.Offset(0, 2).FormulaArray = "=INDEX(R[-23]C:R[65513]C,MATCH(TRUE,R[-23]C:R[65513]C<>"""",0)"
End If
Next

Merci infiniment pour votre aide

 

[eriiic]

Bonjour,

R[-23] ne te fait pas sortir un petit peu de la feuille si tu démarres en ligne 1 ?
eric

 

[Nestor]

Bonsoir

J'ai oublié la parenthèse de fin et ça fonctionne, c'est parfait

En revanche le R[-23] m'est donné par l'enregistreur de macro quand j'écris la formule matricielle

{=INDEX(L1:L65537;EQUIV(VRAI;L1:L65537<>"";0))}

J'avoue ne pas bien saisir car il s'agit de la colonne L

 

[eriiic]

Ca dépend d'où tu inscris cette formule, je la pensais en haut et tu dois être au-delà de la ligne 23.
ericf

 

[Nestor]

la formule est en ligne 24 mais elle peut être partout dans la colonne L de la ligne 1 à 65537

 

[eriiic]

Si tu obtiens ce que tu veux très bien.
Sinon dit plutôt ce que tu cherches à faire.
J'ai l'impression que ce n'est pas vraiment optimisé, ni que tu maitrises très bien les notions de références relatives/absolues :
http://www.mdf-xlpages.com/modules/smartsection/item.php?itemid=62 Références Relatives & Absolues

 

[Nestor]

Bonjour,
Effectivement si ma condition est atteinte une 2ème fois la formule va tester L1048563 à cause du débordement
Ce que je souhaite faire c'est:
1) Dès que ma condition est atteinte dans ma colonne J (Il peut y avoir plusieurs cellules à 0)
2) Je vais chercher la 1ère valeur atteinte de la colonne L et je la copie dans la cellule de cette même colonne à la ligne de ma condition
avec Offset(0,2)
Je pense avoir été un peu plus clair
Merci encore

 

[Modeste geedee]

Bonjour à tous

J'essaie avec le code suivant d'appliquer à un cellule trouvée après recherche dans une colonne, une formule matricielle qui va chercher la 1ere valeur d'une autre colonne
et qui me donne une erreur 1004 "impossible de définir la propriété FormulaArray de la classe Range"

Set Plage = Range("J1:J" & Range("A" & Rows.Count).End(xlUp).Row)
For Each cel In Plage
If cel = 0 Then
cel.Offset(0, 2).FormulaArray = "=INDEX(R[-23]C:R[65513]C,MATCH(TRUE,R[-23]C:R[65513]C<>"""",0)"
End If
Next

Merci infiniment pour votre aide

Oupsss!!!

 

[eriiic]

Bonjour,

comme tu as posté sur plusieurs forums, je laisse tomber.
La réponse est peut-être déjà ailleurs.
eric

 

[Nestor]

A ta guise
Je souhaite tout simplement avoir une réponse à ma problématique et dans ce cadre
il me parait normal d'interroger les "experts" des forums mis à disposition sans aucunement créer une quelconque
compétition
Merci quand même

 

[eriiic]

Il ne s'agit pas de compétition, mais de travailler pour rien. Autant que d'autres profitent de mon temps libre.
Attend au moins 24h sans réponse et signale-le, juste par respect pour les intervenants qui peuvent agir en connaissance de cause.
eric

 

[Nestor]

Ton temps libre m'est aussi profitable dès lors que je n'ai pas encore de réponse à mon problème et que je reste persuadé
que tu as toute compétence pour y répondre.
gilbert