Microsoft 365 Boucle avec deux conditions VBA

[alban75000]

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

 

[sylvanu]

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

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

 

[Jacky67]

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

Bonjour,
Sans plus, je dirai....

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

 

[Jacky67]

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

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

Hello Sylvanu
Pourtant, il fait moins chaud