Microsoft 365 Boucle avec deux conditions VBA

alban75000 à dit:

Bonjour ,
j'ai deux colonnes que je veux passer en revue et si les conditions match ça modifié la cellule concerné .

Dim c As Range
For Each c In Range("A1:A100")
If c.Value <> "" Then c.Value = c.Value + Range("F1")

En plus de la première conditions j'aimerais en rajouter une c'est que dans la colonne B la cellule soit = à A

Ci-joint un fichier test

Merci d'avance

Cliquez pour agrandir...

If c.Value <> "" And c.Offset(, 1) = "A" Then c.Value = c.Value + Range("F1")

sylvanu à dit:

Bonjour Alban, et bienvenu sur XLD,
Un essai en PJ avec :

VB:

Sub calcul()
    Dim c As Range
    For Each c In Range("A1:A100")
        If c.Value <> "" And Cells(c.Row, "B") = "A" Then c.Value = c.Value + Range("F1")
    Next c
End Sub

Cliquez pour agrandir...