Bonjour à tous et bon dimanche,

Avec le code ci-dessous qui ne fonctionne plus, je voudrai "CONCATENER" la valeur saisie dans la cellule B et la valeur de la cellule F1 si en cellule C le code "ACHAT" et saisie.

Dans le cas contraire si le code saisie est <>"ACHAT" on assemble toujours la cellule B mais avec la cellule H1

La méthode doit se répéter sur chaque ligne saisie et s'actualiser à chaque modification de code ou de saisie.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Target.Count = 1 And Target.Column <= 2 Then
    Application.EnableEvents = False
    If UCase(Target.Value) = "ACHAT" Then
        Range("D" & Target.Row).Value = Range("F1").Value & Range("B" & Target.Row).Value
    Else
        Range("D" & Target.Row).ClearContents
    End If
    Application.EnableEvents = True
End If
End Sub
Merci pour votre aide.