Création colonne + écriture

Bonjour,

Veuillez trouver ci-joint mon fichier excel pour lequel j'aimerais effectuer quelques opérations.

1 - J'aimerais créer une nouvelle colonne tout à gauche (cela semble fonctionner)

2 - J'aimerais ensuite parcourir la colonne QtéIT et Qté IU et, lorsque QtéIT < 2 et QtéIU < 4 on écrive dans la cellule A correspondante, le chiffre 0. Si QtéIT >=2 ou QtéIU >= 4, on écrit 1.

Merci beaucoup!

Bonsoir,

Je verrai plutôt <=2 et <=4 ---> 0

Cdlt

Option Explicit
Public Sub Consolidation()
Dim Ws As Worksheet
Dim Derligne As Long, i As Long
    Application.ScreenUpdating = False
    Set Ws = Worksheets("Feuil1")
    With Ws
        .Columns(1).Insert
        Derligne = .Range("B" & Rows.Count).End(xlUp).Row
        For i = 2 To Derligne
            If .Cells(i, 9) < 2 And .Cells(i, 10) < 4 Then .Cells(i, 1) = 0
            If .Cells(i, 9) >= 2 Or .Cells(i, 10) >= 4 Then .Cells(i, 1) = 1
        Next
    End With
    Set Ws = Nothing
End Sub

Merci beaucoup cela m'a bien aidé!

Re,

Penses à clore le sujet si tu es satisfait.

Cdlt

Merci à toi !