Faire un calcul à l'intersection d'une ligne/colonne

Bonjour !

J'aurais besoin d'aide pour écrire de manière simple une double boucle dans une macro, de manière à faire un calcul (ici une valeur cible) quand 2 conditions sont réunies ( en jaune dans mon exemple).

Donc en clair, si j'ai un "C" sur la ligne et un "C" en colonne alors il faut faire le calcul sinon non.

ca marche bien en ligne mais je "galère" pour intégrer la boucle sur les colonnes..

L’intérêt serait de pouvoir insérer des lignes et des colonnes sans devoir changer manuellement les paramètres de la valeur cible dans la macro, le fichier original étant bien plus gros que celui de mon exemple.

Pourriez vous m'aider SVP ?

Merci d'avance !

Alci,

bonjour,

une proposition, pour imbriquer les boucles, pas sûr cependant d'avoir compris ce que tu cherches à faire avec le solver.

Private Sub CommandButton1_Click()

    Dim x As Variant, DL As Integer

    DL = ActiveSheet.UsedRange.Rows.Count

    For x = 1 To DL
        If Cells(x, 2).Value = "C" Then
            For y = 3 To 11
                If Cells(1, y) = "C" Then
                    Cells(x, y).GoalSeek Goal:=Cells(4, y).Value, ChangingCell:=Cells(x, y - 1)
                End If
            Next y
        End If
    Next

End Sub

je l'ai adapté et cela marche nickel !

merci !

bon WE

Alci