Condition dans toute une colonne

Bonjour,

j'aimerais appliquer une condition à toute une colonne, lorsque je le fait pour une case ça marche mais dès que le l'applique à toutes la colonne ça ne marche pas.

Et du coup ma 2è question:

Quels codes mettre pour avoir 2 résultats à ma condition?? Ex: Si 0 en colonne A, mettre NA en colonne B, et 0 en colonne C et D

Merci

Bonjour,

Sans fichier, une procédure à tester

Option Explicit
Public Sub JP972_v1()
Dim Ws As Worksheet
Dim Derligne As Long
Dim Plage As Range, c As Range

    Application.ScreenUpdating = False

    Set Ws = ActiveSheet
    Derligne = Ws.Range("A" & Rows.Count).End(xlUp).Row
    Set Plage = Ws.Range("A1:A" & Derligne)
    For Each c In Plage
        If c = 0 Then
            c.Offset(0, 1) = "NA"
            c.Offset(0, 2) = 0
            c.Offset(0, 3) = 0
        End If
    Next

    Set Ws=Nothing:Set Plage = Nothing

End Sub

C'est tout à fait ça!!! j'ai adapté les colonnes à mon tableau

un grand merci

je pensais pas que de passer de case à colonne était si complexe....

Un dernier truc, que rajouter ou enlever pour que les lignes où je ne mets pas l'info reste vide?