XL 2016 Copier et coller la valeur d'une cellule dans une autre cellule

[ABOMIA]

Bonjour à tous,

Je voudrais copier la valeur d'une cellule (B1) et l'afficher dans la cellule voisine (C1) tant que la valeur de la cellule (B1) est supérieur à zéro.
De plus, si la valeur de la cellule (B1) passe à zero, il faudra que la cellule (C1) garde afficher la dernière valeur antérieure de la cellule (B1) avant sa remise à zero.

Merci encore pour l'aide apportée sur le forum.

 

[sylvanu]

Bonjour Abomia,
Comme j'ai supposé que ce post était lié à votre dernier post, je suis reparti du précédent pour y ajouter la nouvelle demande :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
        If Target = "OK" Then
            Range("D" & Target.Row) = Range("C" & Target.Row)
            Range("C" & Target.Row) = 0
        End If
        If Target = "NOK" Then
            Range("D" & Target.Row) = Range("C" & Target.Row)
            Range("C" & Target.Row) = Range("C" & Target.Row) + 1
        End If
    End If
End Sub

 

[ABOMIA]

Bonjour Abomia,
Comme j'ai supposé que ce post était lié à votre dernier post, je suis reparti du précédent pour y ajouter la nouvelle demande :

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("B2:B1000")) Is Nothing Then
        If Target = "OK" Then
            Range("D" & Target.Row) = Range("C" & Target.Row)
            Range("C" & Target.Row) = 0
        End If
        If Target = "NOK" Then
            Range("D" & Target.Row) = Range("C" & Target.Row)
            Range("C" & Target.Row) = Range("C" & Target.Row) + 1
        End If
    End If
End Sub

Merci encore à toi Sylvanu, tu es un AS de l'Excel