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

ABOMIA · 11 Septembre 2020

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 · 11 Septembre 2020

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 :

VB:

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

sylvanu · 11 Septembre 2020

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 :

VB:

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 · 11 Septembre 2020

sylvanu à dit:

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 :

VB:

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

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

ABOMIA

XLDnaute Nouveau

Pièces jointes

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

ABOMIA

XLDnaute Nouveau

Discussions similaires