Christian0258
XLDnaute Accro
Bonjour à tout le forum,
Je souhaiterais votre aide afin de modifier cette partie de la macro afin de faire référence à une zone et non à la colonne entière…
If Target.Column = 2 And Target.Count = 1 Then
zone souhaitée B17:B23
la macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
If IsError(Application.Match(Target.Value, [ListePrest], 0)) Then
If MsgBox("On ajoute?", vbYesNo) = vbYes 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
End If
End Sub
Merci pour votre aide si précieuse,
Bien à vous,
Christian
Je souhaiterais votre aide afin de modifier cette partie de la macro afin de faire référence à une zone et non à la colonne entière…
If Target.Column = 2 And Target.Count = 1 Then
zone souhaitée B17:B23
la macro:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 And Target.Count = 1 Then
If Target <> "" Then
If IsError(Application.Match(Target.Value, [ListePrest], 0)) Then
If MsgBox("On ajoute?", vbYesNo) = vbYes 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
End If
End Sub
Merci pour votre aide si précieuse,
Bien à vous,
Christian