concatener inverse

[ericlui]

Bonjour à tous
j'ai un soucis avec la fonction concatener, cette fonction me permet de recopier plusieurs cellules dont une variable, et de "construire" ma formule, celle-ci fonctionne avec le bidouillage: copier, collage spécial, click dans la barre de formule, valider. mais j'aimerai que cela se face plus facilement ( une centaine de recopies... oups)
voici ma formule
=CONCATENER("=INDEX('Mis en forme'!$";I$12;"$3:$";I$12;"10000;EQUIV($A3;'Mis en forme'!$A$3:$A$10000;0))")
merci de me donner un début de solution

 

[ericlui]

Re : concatener inverse

bonjour, cela n'est possible que par macro.. j'ai eu cette soluce sur un autre site, et je vous en fait profiter.. cool

Public Sub Resultat()

Dim strFormule As String
On Error GoTo fin
strFormule = "=INDEX('données'!$" + Range("I12") + "$3:$" + Range("I12") + "$10000;EQUIV($A3;'données'!$A$3:$A$10000;0))"
ActiveSheet.Range("I3").FormulaLocal = strFormule
Type:=xlFillDefault
fin: