Discussion :

[sam01]

Bonjour à tous,

j'ai quatre colonne : a b c et d

ma première colonne est vide

J'aimerais lui affecter une valeur en fonction des valeurs des colonnes B, C et D et ce sur toutes les lignes (jusqu'à ce que la cellule D soit vide).

Mes conditions sont les suivantes :

Si val(D) est différent de -1 alors A=3

si val(D)=-1 et val (C) est vide et val(B) est vide alors val(A)=0

si val(D)=-1 et val(C) est vide et que val(B) est non vide alors val(A)=1

si val(D)=-1 et que val(B) est non vide alors val(A)=2

Si la cellule D est vide alors j'arrête ma macro.

Merci d'avance pour votre aide.

[Daniel.C]

Bonjour,

Je n'ai pas testé mais ça doit ressembler à ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test()
    Dim c As Range
    For Each c In Range("D1", Cells(Rows.Count, 4).End(xlUp))
        If c.Value = "" Then Exit Sub
        If c.Value <> -1 Then
            c.Offset(, -3) = 3
        ElseIf c.Offset(, -1) = "" And c.Offset(, -2) = "" Then
            c.Offset(, -3) = 0
        ElseIf c.Offset(, -1) = "" And c.Offset(, -2) <> "" Then
            c.Offset(, -3) = 1
        ElseIf c.Offset(, -2) <> "" Then
            c.Offset(, -3) = 2
        End If
    Next c
End Sub

[sam01]

Bonjour Daniel.C,

désolé pour le retard.

Ca fonctionne parfaitement.

Merci.