Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
F

fabrice123456789

XLDnaute Nouveau
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
 
Trier par date Trier par votes
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
 
Vote positif 0 Vote négatif
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...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Remplacement #REF! par 0 dans une formule SIERREUR
Réponses
5
Affichages
92
vgendron
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
92
Pierreavecunp
P
M
  • Question Question
Microsoft 365 Fonction Index ( sélectionner la Matrice en fonction de cellule
Réponses
3
Affichages
45
manuZ51
M
S
  • Résolu(e)
Microsoft 365 Problème de référence à une Feuil de calcul avec .FormulaLocal
Réponses
6
Affichages
111
sylvanu
F
  • Résolu(e)
XL 2021 Formule avec ListObjects
Réponses
4
Affichages
53
Fourmi Gourmande
F
H
  • Résolu(e)
XL 2016 Remplacer la formule si.conditions
Réponses
2
Affichages
161
hutch57
H
G
  • Question Question
Microsoft 365 Choix et export de données (Résolu)
Réponses
4
Affichages
670
GClaire
G
C
  • Question Question
XL 2013 rechercher la dernière date
Réponses
4
Affichages
168
candido57
C
G
  • Question Question
XL 2019 SOMMEPROD et MOIS
Réponses
2
Affichages
220
Goo69
G
C
  • Résolu(e)
XL 2013 RechercheX
Réponses
5
Affichages
216
candido57
C
EXCEL :: Cases à cocher - Connaître les détails d'un regroupement issu d'un GROUPER.PAR
Réponses
0
Affichages
53
oguruma
  • Question Question
Microsoft 365 Recherche incomplète planning (problème de dates)
Réponses
13
Affichages
252
p56
E
  • Résolu(e)
XL 2019 Formule matricielle et référence structurée
Réponses
7
Affichages
508
chris
C
  • Résolu(e)
XL 2019 Macro pour créer une formule dans une colonne différente selon une donnée d'une autre colonne
Réponses
7
Affichages
677
cedric82
C
  • Question Question
Microsoft 365 Méthode Evaluate pour se dispenser d'une boucle imbriquée
Réponses
14
Affichages
396
patricktoulon
M
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
387
Maxou69
M
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
334
Gestionnaire_rh
G
U
  • Question Question
Autres Modifier dans Format cellule personnalisé ou dans formule?
Réponses
2
Affichages
325
un internaute
U
I
  • Résolu(e)
Microsoft 365 formule =SOMME.SI(A2:A17;A1;D2:D17) Flexible en VBA
Réponses
3
Affichages
465
iliess
I
J
  • Question Question
Microsoft 365 VBA transformer une formule au format texte en formule dans excel
Réponses
2
Affichages
63
jujulili
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…