Peux tu svp m'indiquer ou je colle ton code sachant que sur l'onglet "RESPONSABLE" j'ai déjà un code
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nom, Periode As String
Dim Hs_Norm, HS_Ferie, HS_Nuit, Total As Single
Dim DrLigne, A As Integer
Dim Test As Boolean
If Not Application.Intersect(Target, Range("A3")) Is Nothing Then
For i = 32 To 35
If format(ThisWorkbook.Worksheets("RESPONSABLE").Cells(i, 2), "dd") > 20 Then
ThisWorkbook.Worksheets("RESPONSABLE").Rows(i + 10).Hidden = True
ThisWorkbook.Worksheets("RESPONSABLE").Cells(i, 5) = ""
ThisWorkbook.Worksheets("RESPONSABLE").Cells(i, 6) = ""
ThisWorkbook.Worksheets("RESPONSABLE").Cells(i, 7) = ""
Else
ThisWorkbook.Worksheets("RESPONSABLE").Rows(i + 10).Hidden = False
ThisWorkbook.Worksheets("RESPONSABLE").Cells(i, 5).FormulaLocal = "=SI(ESTERREUR(TROUVE(""|"";$D" & i & ";1));SIERREUR(RECHERCHEV($D" & i & ";'[Planning Agents VIEUX NICE.xlsm]RESPONSABLE'!$K:$K;1;FAUX);"""");GAUCHE($D" & i & ";TROUVE(""|"";$D" & i & ";1)-2))"
ThisWorkbook.Worksheets("RESPONSABLE").Cells(i, 6).FormulaLocal = "=SI(ESTERREUR(TROUVE(""|"";$D" & i & ";1));SIERREUR(RECHERCHEV($D" & i & ";'[Planning Agents VIEUX NICE.xlsm]RESPONSABLE'!$K:$K;1;FAUX);$D" & i & ");GAUCHE($D" & i & ";TROUVE(""|"";$D" & i & ";1)-2))"
ThisWorkbook.Worksheets("RESPONSABLE").Cells(i, 7).FormulaLocal = "=SI(ESTERREUR(TROUVE(""|"";D" & i & ";1));SIERREUR(RECHERCHEV($D" & i & ";'[Planning Agents VIEUX NICE.xlsm]RESPONSABLE'!$K:$N;4;FAUX);"""");STXT(D" & i & ";TROUVE(""|"";D" & i & ";1)+2;999))"
End If
Next
Sheets("RESPONSABLE").Calculate
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
UserFResp.Show
End If
End Sub