Discussion :

[cannard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.print Formule

Cordialement,

PGZ

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cannard]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[mercatog]

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

Regarde la formule (la tienne)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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