bonsoir à tous,

on m'a chargé de travailler sur un fichier qui comporte du code VBA car je connais un (petit) peu de VBA
mais là je cale

je dois transformer ceci ==>
Code formule : Sélectionner tout - Visualiser dans une fenêtre à part
=SI(OLDJanvier!F9<>"";(INDEX(congés;EQUIV(OLDJanvier!$F9;Diver!$B$3:$B$23;0);3))+(SI(OLDJanvier!$E9<>"";SI(OLDJanvier!$E9<=Diver!$B$28;Diver!$B$31;)));)

pour l'insérer dans :
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
19
20
21
22
23
24
25
26
27
28
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Dim x As Byte
Dim T As Variant
Dim T1 As Variant
 
For x = 9 To 39
 
    If Application.Intersect(Target, Range("B9:G39")) Is Nothing Then
    Else
        If (Range("D" & x) - Range("C" & x)) <= DIVERS.Range("A6") Then
        T = DIVERS.Range("A5")
        Else
        T = (Range("D" & x) - Range("C" & x)) - DIVERS.Range("A5")
        End If
'        If Range("F" & x) <> "" Then
'       T1 =
'       else
'       end if
 
 
        Range("H" & x) = (Range("E" & x) - Range("B" & x) + Range("G" & x)) - T + T1 'calcul prestation journalière
        Range("I" & x) = Range("H" & x) - DIVERS.Range("A4") 'calcul boni du jour
        Range("J" & x) = Range("I" & x) * -1 'calcul mali du jour
 
        Range("L" & x) = Range("K" & x) * -1 'calcul mali du mois
        Range("M" & x) = Range("K" & x) + Range("C3") - Range("C4") 'calcul boni cumul
        Range("N" & x) = Range("M" & x) * -1 'calcul mali cumul
Merci je bloque grave