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

fabrice123456789 · 21 Novembre 2023

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 :

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 · 21 Novembre 2023

Bonjour @fabrice123456789

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

fabrice123456789 · 21 Novembre 2023

c'est vrai !

Phil69970 · 21 Novembre 2023

Re

Je te propose

VB:

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 · 21 Novembre 2023

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 · 21 Novembre 2023

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

VB:

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 · 21 Novembre 2023

Re

@fabrice123456789

Voir la charte

fabrice123456789 · 21 Novembre 2023

il me manquait un '

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

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

fabrice123456789

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

fabrice123456789

XLDnaute Nouveau

Pièces jointes

Phil69970

XLDnaute Barbatruc

fabrice123456789

XLDnaute Nouveau

fabrice123456789

XLDnaute Nouveau

Phil69970

XLDnaute Barbatruc

fabrice123456789

XLDnaute Nouveau

Discussions similaires