Modif sur macro liste de validation

[Christian0258]

Bonjour à tout le forum,

Je souhaiterais votre aide pour modifier cette macro (de J.Boisgontier) afin d'affecter les liste de validation uniquement sur la ligne 9 ; soit de G9 à BO9

Par avance merci,
Bien amicalement,
Christian

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 6 And Target.Count = 1 Then
If Target <> "" Then
If IsError(Application.Match(Target.Value, [Liste], 0)) Then
If MsgBox("On ajoute?", vbYesNo) = vbYes Then
[Liste].End(xlDown).Offset(1, 0) = Target.Value
Sheets("Liste").[Liste].Sort key1:=Sheets("Liste").Range("A2")
Else
Application.Undo
End If
End If
End If
End If
End Sub

 

[job75]

Re : Modif sur macro liste de validation

Bonjour,

On peut modifier la 2ème ligne de la macro comme suit :

If Not Intersect(Target, Range("G9:BO9")) Is Nothing And Target.Count = 1 Then

Edit : telle que la macro est écrite, il y a un End If de trop.

JB n'a sûrement pas écrit ça...

A+

 

[Christian0258]

Re : Modif sur macro liste de validation

Re,
Merci, job75, pour ton intervention c'est impec de chez impec.
Bien amicalement,
Christian