Résolu 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.
 
Ce fil a été résolu! Aller à la solution…

Fichiers joints

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
 
Ce message a été identifié comme étant une solution!

Fichiers joints

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas