Discussion :

[Le POlonais]

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

[Singular]

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 :

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

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 :

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

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

[Le POlonais]

Encore une fois un grand MERCI

Très cordialement

Norbert