Evolution de la valeur d'une cellule

[bernardrustrel]

Bonsoir
Je sollicite votre aide car j'aimerais réaliser une fonction qui me permettrait en fonction de la valeur initiale de "245" saisie en C2 obtenir dans cette même cellule la concaténation de A2, B2 et C2 initialement saisie soit en valeur finale dans C2: Toto_Tata_245
Je vous en remercie par avance
Cordialement
BernardRustrel

 

[xhudi69]

Re : Evolution de la valeur d'une cellule

Bonsoir bernardrustrel, le Forum,

En PJ ton fichier, si cela convient.

@+ 😎

EDIT Bonsoir Staple1600 🙂 la macro est belle ce soir 😎

 

[Staple1600]

Re : Evolution de la valeur d'une cellule

Bonsoir à tous


A mettre dans le code de la feuille
Code vba:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim l&, V
l = Target.Row
Application.EnableEvents = False
If Target.Column = 3 Then
V = Cells(l, "A") & "_" & Cells(l, "B") & "_" & Target.Value
Target = V
End If
Application.EnableEvents = True
End Sub

EDITION: Bonsoir xhudi69 😉 , pas rafraichi à temps

EDITION II: Bonsoir 00

 

[DoubleZero]

Re : Evolution de la valeur d'une cellule

Bonjour, bernardrustrel, xhudi69 🙂, Staple1600 🙂, le Forum,

Ou, peut-être, ainsi :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("c2:c" & Range("c65536").End(xlUp).Row)) Is Nothing Then
Application.EnableEvents = False
Target.Value = Target.Offset(, -2) & "_" & Target.Offset(, -1) & "_" & Target.Value
Application.EnableEvents = True
End If
End Sub

A bientôt 🙂🙂

 

[bernardrustrel]

Re : Evolution de la valeur d'une cellule

Merci beaucoup pour cette réponse je vais tacher d'en faire bon usage
Bernardrustrel

 

[bernardrustrel]

Re : Evolution de la valeur d'une cellule

merci beaucoup cela me va bien
Cordailement
BernardRustrel