Addition de texte sans formule

Voir le document joint svp pour ma question

Merci beaucoup,

Nicolas

Bonjour

Un copier/collage spécial ---> Valeurs

Ou macro a mettre dans le code de la feuille

Clic droit sur le nom de l'onglet ----> Visualiser le code

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Columns("A:B"), Target) Is Nothing And Target.Count = 1 Then
    Range("C" & Target.Row) = Trim(Range("A" & Target.Row) & " " & Range("B" & Target.Row))
  End If
End Sub

Banzai64 a écrit :

Clic droit sur le nom de l'onglet ----> Visualiser le code

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Columns("A:B"), Target) Is Nothing And Target.Count = 1 Then
    Range("C" & Target.Row) = Trim(Range("A" & Target.Row) & " " & Range("B" & Target.Row))
  End If
End Sub

Merci ça fonctionne avec la macro, mais comment je peux le rendre spécifique à la cellule et non à la colonne complète

Merci,

Nicolas

Bonjour

pour seulement A1 et B1

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("A1:B1"), Target) Is Nothing And Target.Count = 1 Then
    Range("C1") = Trim(Range("A1") & " " & Range("B1"))
  End If
End Sub

ok et maintenant comment je l.ajoute à une macro existante. J'ai copié comme ça et j'obtiens une erreur:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("c4"), Target) Is Nothing And Target.Count = 1 Then

If UCase(Target) = "N1" Then Target = "#" & Format(Now, "ddmmyyhhmmss")

End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Range("e5:c4:C4"), Target) Is Nothing And Target.Count = 1 Then

Range("b2") = Trim(Range("e5") & " " & Range("c4") & " " & Range("b5"))

End If

End Sub

Bonjour (quel mot sympathique non ?)

A tester

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Range("C4"), Target) Is Nothing And Target.Count = 1 Then
    If UCase(Target) = "N1" Then Target = "#" & Format(Now, "ddmmyyhhmmss")
  End If
  If Not Intersect(Range("E5:C4"), Target) Is Nothing And Target.Count = 1 Then
    Range("B2") = Trim(Range("E5") & " " & Range("C4") & " " & Range("B5"))
  End If
End Sub