XL 2021 Macro en vba

[Hugues1976]

Bonjour à toutes et à tous.

Je galère avec une macro.

Je veux intégrer une formule d'index dans une macro.

La formule s'applique dans un range. Dans la colonne A de la ligne 4 à 200.

Voici mon code qui évidement ne fonctionne pas.

Merci de votre indéfectible support

Sub ajout_correspondace()

Worksheets("billing_summary").Activate 'Définition de la feuille active

Dim k As Byte

For k = 4 To 200 'pour les lignes 4 à 200
   ' If Cells(k, 1).Value = "" Then GoTo Passe
    'si entete vide, on saute la recherche

Cell.FormulaLocal = "=SIERREUR(INDEX(Table_correspondance!$A$1:$B$999;EQUIV($C4;Table_correspondance!$A$1:$A$999;0);2);"""")"
Next k

End Sub

 

[fanfan38]

Il est tres mal vu de poser la question sur 2 forum...
A+ François

 

[Compte Supprimé 979]

Bonjour Hugues1976 ou devrais-je dire La_Baie_1976

Les vieilles habitudes ont la vie dure

J'ai remarqué que vous avez posté votre message sur un autre forum Excel.

La pratique du cross posting est très mal perçue sur Internet car les membres qui vont passer du temps sur votre problème risquent de le faire pour rien si vous obtenez une réponse par ailleurs dont ils n'ont pas connaissance.

Merci de choisir un forum pour votre question et de supprimer votre message dans un des forums concernés.
Profitez en pour relire la charte dans laquelle il est expliqué que cette pratique n'est pas admise sur XLD.

Du coup je vous avais donné une réponse que j'ai supprimé, à bon entendeur

Bonne journée

 

[Hugues1976]

Je prends bonne note de l'avertsieement

 

[Lolote83]

Bonjour,
Essaye avec ceci

xResult = Application.Index(Sheets("Table_correspondance").Range("$A$1:$B$999"), Application.Match(Range("$C4"), Sheets("Table_correspondance").Range("$A$1:$A$999"), 0))
Cell.FormulaLocal = xResult

@+ Lolote83