concatener deux cellules par macro

[GHISLAIN]

bonjour a tous ,

j essaie de réunir le résultat de deux cellules par macro

le code que j utilise est

If Application.Intersect(Target, Range("C1:iv2")) Is Nothing Then


Target.Offset(4, 0) = Target & Target.Offset(2, 0)
end if


ce que je souhaite est lorsque je change la valeur d une des cellules soit sur la ligne 1 ou la ligne 2 que le résultat en ligne 4 soit la concaténation de la cellule activée de la ligne 1 et la ligne 2


merci de votre aide

cordialement

ghislain

 

[GHISLAIN]

Re : concatener deux cellules par macro

re

je crois avoir trouvé mais je ne sais pas si c est la bonne solution
If Not Application.Intersect(Target, Range("c1:iv1")) Is Nothing Then
Target.Offset(4, 0) = Target & Target.Offset(1, 0)
End If

If Not Application.Intersect(Target, Range("c2:iv2")) Is Nothing Then
Target.Offset(3, 0) = Target.Offset(-1, 0) & Target
End If


cordialement

ghislain

 

[néné06]

Re : concatener deux cellules par macro

Bonsoir Ghislain

Regardes si j'ai bien compris ?


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 2 Then Exit Sub
Cells(4, Target.Column) = Cells(1, Target.Column) & " " & Cells(2, Target.Column)
End Sub


A+

 

[GHISLAIN]

Re : concatener deux cellules par macro

bonsoir néné06,
merci d’être passé sur mon fil , et ton code répond a ma demande

le mien est nettement plus long que le tien , je vais donc utiliser ta proposition

cordialement

ghislain