message erreur FormulaArray
Bonjour,
voilà, j'ai le code
Code:
1
2
3
4
| Sheets("Feuil2").Select
Range("H2").Select
Selection.FormulaArray = _
"=INDEX('R1'!R1C4:R500C4,MIN(IF('R1'!R3C10:R500C10=RC7,IF(COUNTIF(RC1:RC7,'R1'!R3C4:R500C4)=0,ROW('R1'!R3C10:R500C10)))))&""""" |
et il fonctionne.
Mais en fait je mets ce code dans une boucle et donc j'ai un nombre de ligne variable, donc je change mon code en mettant
Code:
1
2
3
4
| Sheets("Feuil2").Select
Range("H2").Select
Selection.FormulaArray = _
"=INDEX('R1'!R1C4:R & DerniereLigneC4,MIN(IF('R1'!R3C10:R & DerniereLigneC10=RC7,IF(COUNTIF(RC1:RC7,'R1'!R3C4:R & DerniereLigneC4)=0,ROW('R1'!R3C10:R & DerniereLigneC10)))))&""""" |
DerniereLigne étant la derniere ligne de la feuille 'R1'
Et j'ai le message d'erreur :
Citation:
Impossible de définir la propriété FormulaArray de la classe Range
et je ne comprends pas....
Une idée ?
Merci,
A+
