Discussion :

[AgriPhilou]

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.

[jfontaine]

Bonjour,

Ta condition fonctionne que si colonnes A ou B de modfiié.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Count = 1 And Target.Column <= 2

pour tester la colonne C

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Target.Count = 1 And Target.Column = 3

[AgriPhilou]

Merci,

ça ne fonctionne pas je fais des essais et rien ne va.

Si je saisie ACHAT en D en E rien ne s'écrit.
Je ne suis pas sortie de l'auberge pour lui faire associer la cellule B et H1 dans le cas ou le code serait différent de "ACHAT".

Encore merci.

[jfontaine]

Il faudrait savoir ce que tu veux

1er post

si en cellule C le code "ACHAT" et saisie

2eme post

Si je saisie ACHAT en D en E rien ne s'écrit.