Range (cells dans une formule

Bonjour à tous,

J'ai un petit soucis dans une formule vba. J'essayer d'implanter la formule ci dessous dans toutes les colonnes dont l'intitulé est : "Suggested order quantities".

La formule est bien implanté mais pas correctement. C'est à dire que quelque soit la colonne d'implantation de la formule, le "H3" de ma formule ne bouge pas. J'ai besoin que le H3 soit toujours en fonction de la colonne après celle de ma formule.

Par exemple:

Implantation de ma formule en colonne J. Ma formule devrait être comme suit:

=IFERROR(K3/$F3*VLOOKUP($A3,'[Macro_Ajustement_Manuel v1.1.xlsb]Base de travail'!$A$2:$O$" & DerligMAF & ",15,0),0)"

Ci dessous, la partie de code qui pose problème

For i = 1 To 200
    If ManualAdjustementFile.Worksheets(1).Cells(2, i).Value = "Suggested Order Qties" Then

    ManualAdjustementFile.Worksheets(1).Range(Cells(3, i), Cells(DerligMAF, i)).Formula = "=IFERROR(H3/$F3*VLOOKUP($A3,'[Macro_Ajustement_Manuel v1.1.xlsb]Base de travail'!$A$2:$O$" & DerligMAF & ",15,0),0)"

    End If
Next i

Merci d'avance et bonne journée

Erwan

bonjour,

essaie ceci

With ManualAdjustementFile.Worksheets(1)
For i = 1 To 200
    If .Cells(2, i).Value = "Suggested Order Qties" Then
    .Cells(3, i).Formula = "'IFERROR(H3/$F3*VLOOKUP($A3,'[Macro_Ajustement_Manuel v1.1.xlsb]Base de travail'!$A$2:$O$" & derligmaf & ",15,0),0)"
   .Cells(3, i).Copy .Range(.Cells(4, i), .Cells(derligmaf, i))
   End If
Next i
End With

Hello h2so4,

Merci de te pencher sur le sujet. Malheureusement, j'arrive au même résultat

re-bonjour,

j'ai mal compris la demande.

    With ManualAdjustementFile.Worksheets(1)
        For i = 1 To 200
            If .Cells(2, i).Value = "Suggested Order Qties" Then
                .Cells(3, i).Formula = "=IFERROR(" & Range("A3").Cells(1, i + 1).Address & "/$F3*VLOOKUP($A3,'[Macro_Ajustement_Manuel v1.1.xlsb]Base de travail'!$A$2:$O$" & derligmaf & ",15,0),0)"
                .Cells(3, i).Copy .Range(.Cells(4, i), .Cells(derligmaf, i))
            End If
        Next i
    End With

Parfait c'est exactement ce qu'il me fallait à un détail près :

J'ai remplacé address par address (0,0).

Un grand merci et bonne journée !