Bonjour, je voudrais que sur la présence du chiffre 1 dans la cellule A16, additionner le contenu de la cellule K16 dans ma variable F0600 et afficher ma variable F0600 dans ma cellule J7. J'ai écrit le code suivant, mais il n'y a rien qui se passe dans mon fichier. J'aurais besoin d'un peu d'aide.

Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
 
Dim F0600 As Long
 
Range("J7:J10").ClearContents
 
'PROJET B12F0600
If Target.Address = "$A$16" And Target.Count = 1 Then
 
Select Case Target.Value
        Case "1"
        F0600 = Range("K16").Value
        Range("J7") = F0600
End Select
 
End If
 
End Sub