problème insertion formule via vba

Version imprimable

bonjour à tous,

j'ai une colle pour vous ; je cherche à insérer une formule dans une cellule en vba, car un des champs dépend du contenu d'une autre formule. (ça parait un peu compliqué, mais le code est relativement simple :
Code:

1 2 3 4 5 6 7 8 9 10 Sub Bouton1_Clic() Dim formule, feuille As String n = Worksheets("Feuil1").Range("K4").Value feuille = Worksheets("Feuil1").Range("G2").Value formule = "=IF(H2=" & """tournage""" & ";VLOOKUP(H5;" & feuille & "!B:F;1;FALSE);VLOOKUP(H5;" & feuille & "!I:J;1;FALSE))" For i = 1 To n MsgBox (formule) Worksheets("Feuil1").Range("J" & i + 4).FormulaR1C1 = formule Next i End Sub
en fait, la valeur feuille désigne la feuille de calcul du classeur dans laquelle la fonction recherchev doit aller chercher la valeur.

j'ai essayé de rentrer le code en langage US et FR, avec ou sans le R1C1 (et le local quand le code est en français), mais rien n'y fait, j'ai toujours l'erreur 1004...

je vous remercie d'avance de vos réponses

15/06/2011, 13h28
pgz

Bonjour.

Comme tu as écris la formule en En-US et en notation A1, la propriété à renseigner est Formula.
En étasunien, le séparateur est la virgule et non pas le point-virgule.

Tu corriges cela et si cela ne va toujours pas, tu fais

Code:

Debug.print Formule

Cordialement,

PGZ

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Bouton1_Clic()
Dim Formule As String, Feuille As String
Dim N As Long
 
With Worksheets("Feuil1")
    N = .Range("K4").Value
    Feuille = .Range("G2").Value
    If N > 0 And Feuille <> "" Then
        Formule = "=IF($H$2=" & """tournage""" & ",VLOOKUP(H5,'" & Feuille & "'!B:F,1,FALSE),VLOOKUP(H5,'" & Feuille & "'!I:J,1,FALSE))"
        .Range("J5:J" & N + 4).Formula = Formule
    End If
End With
End Sub

Mais quel est le but si on récupère la première colonne de recherche

PS: J'ai évité la boucle

merci de votre réponse rapide, mais finalement j'ai corrigé le problème en le contournant, voici la solution que j'ai trouvée (par contre je ne comprends toujours pas où était le problème...)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
If machine = "tournage" Then 'si tournage
            table = "B:F"
            If Worksheets("Feuil1").Range("L" & i + 4) = "ébauche" Then 'si tournage ébauche
                colonnevc = 2
                colonneavance = 3
                Else 'sinon (tournage finition)
                colonnevc = 4
                colonneavance = 5
            End If 'fin si (ébauche ou finition)
            formuleavance = "=RECHERCHEV(J" & i + 4 & ";" & feuille & "!" & table & ";" & colonneavance & ";FAUX)*" & coefmatoutilavance
            Else 'sinon (fraisage)
            table = "H:J"
            If Worksheets("Feuil1").Range("L" & i + 4) = "ébauche" Then 'si fraisage ébauche
                colonnevc = 2
                Else 'sinon (fraisage finition)
                colonnevc = 3
            End If 'fin si (ébauche ou finition)
        End If 'fin si (tournage ou fraisage)
        formulevc = "=RECHERCHEV(J" & i + 4 & ";" & feuille & "!" & table & ";" & colonnevc & ";FAUX)*" & coefmatoutilvc
        Worksheets("Feuil1").Range("M" & i + 4).FormulaLocal = formulevc 'écriture formule vitesse de coupe
        If machine = "tournage" Then
            Worksheets("Feuil1").Range("O" & i + 4).FormulaLocal = formuleavance 'écriture formule avance si tournage
            Else 'sinon pas écriture formule avance car fraisage
            End If

(c'est un extrait, le code c'est énormément compliqué au fur et à mesure...)

15/06/2011, 19h40
mercatog

Je vois que tu n'as pas tiré profit en évitant la boucle.

Regarde la formule (la tienne)

Code:

formule = "=IF(H2=" & """tournage""" & ";VLOOKUP(H5;" & feuille & "!B:F;1;FALSE);VLOOKUP(H5;" & feuille & "!I:J;1;FALSE))"

et ce qu'il fallait faire

Code:

Formule = "=IF($H$2=" & """tournage""" & ",VLOOKUP(H5,'" & Feuille & "'!B:F,1,FALSE),VLOOKUP(H5,'" & Feuille & "'!I:J,1,FALSE))"