XL 2019 Colonne et formule sous VBA

[Acher12]

Bonjour à vous tous,
je souhaite avoir votre aide sur une problématique depuis hier:

J'ai ce code qui a pour but de chercher à partir d'une colonne des valeur et applique une formule (-) à partir d'une autre colonne:
**********
Sub val_nég()

For Each cell In Range("A7:A10000")
If cell.Value = Dep Or cell.Value = Dep1 Then
cell.Offset(0, 3).Value = cell.Offset(0, 2).Value * -1
Else
cell.Offset(0, 3.Value = cell.Offset(0, 2).Value
End If
Next cell

End Sub
**************
je veux amiliorer ma macro pour que si ma colonne [ Produit]=Range("A7:A10000") et ma colonne [ PRIX] =cell.Offset(0, 2) change de position ,j'applique la formule dans une colonne déja prédifini.
Je vous joins un fichier type.
D'avance merci si vous pouvez m'apporter votre aide.

 

[sylvanu]

Bonjour Archre,
En PJ un essai, en utilisant non les colonnes mais l'intitulé des colonne du tableau structuré.
Ainsi quelque soit la place de la colonne Prix, la colonne Prix restera la colonne Prix.
Avec :

Sub Calcul()
    NLignes = [Tableau1].Rows.Count
    For N = 1 To NLignes
        Valeur = LCase([Tableau1[Produit]].Item(N))
        If Valeur = "dep" Or Valeur = "dep1" Then
            Mult = -1
        Else
            Mult = 1
        End If
        Cells(N + 1, "K") = Mult * [Tableau1[Prix]].Item(N)
    Next N
End Sub

 

[Acher12]

Merci Sylvanu pour votre support