Microsoft 365 Evènement worksheet_change

[Francky79]

Bonjour le forum,

Je ne c'est pas comment faire pour que les deux parties de code fonctionnent dans un worksheet_change.
Un part un cela marche mais les deux ?

Private Sub worksheet_change(ByVal Target As Range)
  ' validation date de livraison
Dim H, iSct As Range
    Set iSct = Intersect(Target, Range("L:L"))
    If iSct Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each H In iSct.Cells
    If IsEmpty(H) Then
    H.Offset(0, 8) = ""
    Else
    H.Offset(0, 8) = Format(Now, "mm/dd/yy")
    ActiveCell.Offset(0, 4).Activate
 ActiveCell.Value = "Val AR"
    End If
    Next
 Application.EnableEvents = True
 
    ' vérification présence des fichiers
If Not Intersect(Target, Range("F6:F600")) Is Nothing Then
Cancel = True
Call Recherche_fichiers_data
End If
    
    
End Sub

Merci pour votre aide

 

[sylvanu]

Bonjour Franky,
Je pense que c'est du à votre Exit Sub, qui si il est rencontré sort de la macro sans continuer.
Peut être en inversant si cela n'a pas d'impact sur la macro Recherche_fichiers_data :

Private Sub worksheet_change(ByVal Target As Range)
  ' validation date de livraison
Dim H, iSct As Range
    ' vérification présence des fichiers
    If Not Intersect(Target, Range("F6:F600")) Is Nothing Then
        Cancel = True
        Call Recherche_fichiers_data
    End If
    Set iSct = Intersect(Target, Range("L:L"))
    If iSct Is Nothing Then Exit Sub
    Application.EnableEvents = False
    For Each H In iSct.Cells
    If IsEmpty(H) Then
    H.Offset(0, 8) = ""
    Else
    H.Offset(0, 8) = Format(Now, "mm/dd/yy")
    ActiveCell.Offset(0, 4).Activate
    ActiveCell.Value = "Val AR"
    End If
    Next
    End If
    Application.EnableEvents = True
End Sub

ou encore en inversant le nothing avec "If Not iSct Is Nothing Then"

Private Sub worksheet_change(ByVal Target As Range)
  ' validation date de livraison
Dim H, iSct As Range
    Set iSct = Intersect(Target, Range("L:L"))
    If Not iSct Is Nothing Then
        Application.EnableEvents = False
        For Each H In iSct.Cells
            If IsEmpty(H) Then
                H.Offset(0, 8) = ""
            Else
                H.Offset(0, 8) = Format(Now, "mm/dd/yy")
                ActiveCell.Offset(0, 4).Activate
                ActiveCell.Value = "Val AR"
            End If
        Next
    End If
 Application.EnableEvents = True
    ' vérification présence des fichiers
If Not Intersect(Target, Range("F6:F600")) Is Nothing Then
Cancel = True
Call Recherche_fichiers_data
End If

 

[Francky79]

Bonjour Sylvanu,

Merci pour tes solutions.