Re, Bonjour, le forum, vgendron
Je reste sur ce fil, pour une autre question ;
comment faire cohabiter ces deux macros ? .
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B17:B26 ")) Is Nothing Then
If Target <> "" Then
If IsError(Application.Match(Target.Value, [ListePrest], 0)) Then
[ListePrest].End(xlDown).Offset(1, 0) = Target.Value
Sheets("Prestations").[ListePrest].Sort key1:=Sheets("Prestations").Range("A2")
Else
Application.Undo
End If
End If
End If
If Not Intersect(Target, Range("B31:B40 ")) Is Nothing Then
If Target <> "" Then
If IsError(Application.Match(Target.Value, [ListeMat], 0)) Then
[ListeMat].End(xlDown).Offset(1, 0) = Target.Value
Sheets("Matériaux").[ListeMat].Sort key1:=Sheets("Matériaux").Range("A2")
Else
Application.Undo
End If
End If
End If
End Sub
Merci pour votre aide si précieuse.
Bien à vous,
Christian