Probleme avec Worksheet_Change

Bonjour à tous,

1ere question pourquoi ce code ne fonctionne pas?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Private Sub Worksheet_Change(ByVal Target As Range) If Sheets("C1").Range("K2").Value = 1 Then Sheets("C1").Range("L2").Value = "ARRIVEE NORMALE" Sheets("C1").Range("K4").Value = "1er" Sheets("C1").Range("L4").Value = "2ème" Sheets("C1").Range("M4").Value = "3ème"   ElseIf Sheets("C1").Range("K2").Value = 2 Then Sheets("C1").Range("L2").Value = "DH 1" Sheets("C1").Range("K4").Value = "1er" Sheets("C1").Range("L4").Value = "1er" Sheets("C1").Range("M4").Value = "3ème" end if

---

2ème question :

J'ai quatre cellules disons A1 à A4.
Dans chaque cellule il y a un nombre et dans la cellule A5, je voudrais
récupérer toutes les valeurs de ces 4 cellules en les séparant par un trait.
exemple : 8 - 15 - 1 - 9
Peux t'on le faire en VBA, si oui comment?

Merci par avance.

Cordialement

Norbert

1- Dès que tu affectes une nouvelle valeur à une cellule de la feuille, l'évenement Change se déclanche à nouveau... Poue empêcher cela, il faut mettre tout ton code modifiant des Values de cellules entre:

Code:

---

1 2 3

Application.EnableEvents = False ... Application.EnableEvents = True

---

2- C'est moins facile qu'avec une fonction Excel comme =CONCATENER(A1;"-";A2;"-";A3;"-";A4) dans la cellule A5, mais tu peux faire:

Code:

---

Range(A5) = Range("A1") & "-" & Range("A2") & "-" & Range("A3") & "-" & Range("A4")

---

Encore une fois un grand MERCI

Très cordialement

Norbert:king: