XL 2021 insérer une formule dans la cellule D2 via VBA

[fabrice123456789]

Bonjour à tous,

Je dois rentrer une formule dans ma cellule D2 comme celle ci :

=INDEX('211123-Brut'!$E:$E; EQUIV($A2&D$1; '211123-Brut'!$A:$A&'211123-Brut'!$B:$B; 0)) & " - " & INDEX('211123-Brut'!$H:$H; EQUIV($A2&D$1; '211123-Brut'!$A:$A&'211123-Brut'!$B:$B; 0))

j'utilise ce code :

Sub AppliquerFormule()

    Dim formule As String

    formule = "=INDEX('211123-Brut'!$E:$E, EQUIV($A2&D$1, '211123-Brut'!$A:$A&'211123-Brut'!$B:$B, 0)) & "" - "" & INDEX('211123-Brut'!$H:$H, EQUIV($A2&D$1, '211123-Brut'!$A:$A&'211123-Brut'!$B:$B, 0))"

 

    ' Appliquer la formule à la cellule D2

    Range("D2").Formula = formule

End Sub

Ca fonctionne mais ca me mets de @ :

=INDEX('211123-Brut'!$E:$E; EQUIV($A2&D$1;@ '211123-Brut'!$A:$A&@'211123-Brut'!$B:$B; 0)) & " - " & INDEX('211123-Brut'!$H:$H; EQUIV($A2&D$1;@ '211123-Brut'!$A:$A&@'211123-Brut'!$B:$B; 0))

du coup la formule ne fonctionne pas.

Quelqu'un a une idée ?

par avance merci pour votre aide

 

[Phil69970]

Bonjour @fabrice123456789

Avec un fichier c'est plus facile pour tester ....

 

[fabrice123456789]

c'est vrai !

 

[Phil69970]

Re

Je te propose

Sub AppliquerFormule()
Dim formule As String

'Sheets("21112023-Result").Range("D2").Select  '<== ne sert à rien

formule = "=INDEX('211123-Brut'!$E:$E, MATCH($A2&D$1, '211123-Brut'!$A:$A&'211123-Brut'!$B:$B, 0)) & "" - "" & INDEX('211123-Brut'!$H:$H, MATCH($A2&D$1, '211123-Brut'!$A:$A&'211123-Brut'!$B:$B, 0))"
Sheets("21112023-Result").Range("D2").FormulaArray = formule

End Sub

Merci de ton retour

 

[fabrice123456789]

Merci Phil, ca fonctionne parfaitement !

il ne me reste plus qu'a remplacer 211123-Brut par une variable qui est NomFeuille

j'y travail mais ca n'a pas l'air simple

 

[fabrice123456789]

la variable nomOnglet est définie plus tot dans la procédure et du coup je souhaite l'intégrer à mon code mais j'ai une erreur

formule = "=INDEX('" & NomOnglet & "'!$E:$E, MATCH($A2&D$1, '" & NomOnglet & "'!$A:$A&" & NomOnglet & "'!$B:$B, 0)) & "" - "" & INDEX('" & NomOnglet & "'!$H:$H, MATCH($A2&D$1, '" & NomOnglet & "'!$A:$A&'" & NomOnglet & "'!$B:$B, 0))"

ca ressemble a une erreur de frappe mais je ne vois pas ou...

 

[Phil69970]

Re

@fabrice123456789

Voir la charte

 

[fabrice123456789]

il me manquait un '

Merci encore Phil pour le coup de main
Bonne journée