Bonjour à tous,

1ere question pourquoi ce code ne fonctionne pas?

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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