Discussion :

[ericdev67]

Bonjour,

voilà, j'ai le code

Code :

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

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 :

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

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 :

Impossible de définir la propriété FormulaArray de la classe Range

et je ne comprends pas....

Une idée ?

Merci,
A+

[Pierre Fauconnier]

Salut

Tu dois concaténer ta variable avec le reste de ta formule
Le début est

Code :

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

1
2
Selection.FormulaArray = _
        "=INDEX('R1'!R1C4:R" & DerniereLigne & "C4,MIN(IF('R1'!R3C10:R" & DerniereLigne & "C10=RC7,IF(COUNTIF(RC1:RC7,'R1'!R3C4:R" & DerniereLigne & "C4)=0,...

A toi d'adapter par la suite

[ericdev67]

Merci Pierre,

Une fois de plus, j'ai mal mis et combiné mes ".......Mais je commence à comprendre le principe....

Merci pour ton aide

A+ pour de futures aventures....