Discussion :

[pilounet54]

"Bonsoir"
Je souhaite parcourir deux colonnes si "inférieur" et "cotisation" donc sur la même ligne then voila le debut du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 Application.EnableEvents = False
    For Each C In Worksheets("Bilan").Range("plagevaleur")
        If C.Value = "inférieur" Then
            C.EntireRow.Copy
             .Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues '''''''''''ok
             .Range("A" & NewLig).PasteSpecial Paste:=xlFormats

"Merci"

[mercatog]

Si on cherche inférieur dans la colonne plagevaleur et cotisation dans le colonne juste à droite (dapate l'offset en fonction):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Application.EnableEvents = False
For Each c In Worksheets("Bilan").Range("plagevaleur")
    If c.Value = "inférieur" And c.Offset(0, 1).Value = "cotisation" Then
        c.EntireRow.Copy
        .Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues    '''''''''''ok
        .Range("A" & NewLig).PasteSpecial Paste:=xlFormats