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

ABOMIA

XLDnaute Nouveau
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.
 

Pièces jointes

  • Sauvegarde.xlsm
    14.3 KB · Affichages: 12
Solution
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

XLDnaute Barbatruc
Supporter XLD
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
 

Pièces jointes

  • TEST_Incrémentation 3.xlsm
    14 KB · Affichages: 4

ABOMIA

XLDnaute Nouveau
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 :)
 

Discussions similaires