Formule Excel en code VBA

Je n'arrive pas à transformer une formule Excel en un code VBA qui fonctionne.

Dans ma formule je recherche dans un tableau une valeur en fonction de 2 critères

Voici la formule en question: =DECALER(Feuil1!B4;EQUIV($E3;Feuil1!C4:AM4;0);EQUIV($E2;Feuil1!B5:B41;0))

Merci d'avance

Hello,

Activecell.FormulaLocal = "=DECALER(Feuil1!B4;EQUIV($E3;Feuil1!C4:AM4;0);EQUIV($E2;Feuil1!B5:B41;0))"

Salut,

Merci pour la réponse.

J'ai une autre question, si je veux remplacer les cellules par des textbox c'est possible.

En gros, j'aimerais créer une userform avec 2 combobox, une textbox et et aller chercher des infos dans un tableau.

Je joins le fichier c'est peut être plus simple

Hello,

Je vois pas bien ce que tu souhaites faire, mais je te déconseille d'avoir 50 textbox (qui représentent des cellules) dans un formulaire ...

Ne pars pas dans cette usine à gaz. Je pense qu'une listbox avec plusieurs colonnes conviendrait mieux ...

Bonjour,

J'aimerai récupérer les infos dans 2 textbox, trouver la valeur correspondante dans un tableau et l'affichée dans une autre textbox.

Merci pour les infos

Hello,

Quelles infos dans tes 2 texbox et quelle infos à afficher dans la 3eme ?

Bonjour,

J'aimerai retrouver le "Temps de reconf" correspondant au "code produit 1" (Textbox 1) et "code produit 2" (Textbox 2) et l'afficher dans "Temps de reconf" (Textbox 3).

Hello,

Ajoute un bouton calcul "temp de reconf" et ajoute ce code dedans :

    Dim strFormat1$, strFormat2$, strCode$
    Dim i&, j&, lngFormat1&

    strFormat1$ = Combobox1.Text
    strFormat2$ = ComboBox2.Text

    lngFormat1& = 2
    Do While Cells(lngFormat1&, "A") <> strFormat1$
       lngFormat1& = lngFormat1& + 1
    Loop
    i = 2
    Do While Cells(i, "A") <> strFormat2$
       i = i + 1
    Loop
    strCode$ = Cells(i, "B").Value
    i = 3
    Do While Cells(1, i) <> strCode$
       i = i + 1
    Loop
    Textbox3.Value = Cells(lngFormat1&, i)

Il faudra peut-être adapter les colonnes

Bonjour,

Merci pour ton aide, le code fonctionne après quelques ajustements.