modification d'une colonne entrainant Vlookup.

[AQSE]

Bonjour,

voici mon code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
ActiveCell.Offset(0, 1) = Application.WorksheetFunction.VLookup(Range("A7"), Range("A1:B5"), 2, False) 'offset(0,1): 1 cellule à droite sur la même ligne que la cellule active

End If
End Sub

Alors ma question est la suivante : ce bout la : "If Target.Column = 1" fait que il lance la recherchev lorsque l'on touche à n'importe quelle cellule de la colonne 1(soit colonne A). Je voudrais que ma recherchev se lance seulement si on modifie quelques cellules de la colonne (exemple : A7 à A11).

Voila, je suppose que c'est trés simple mais aprés moult essais je suis encore sur ma faim ...!
dc meerci d'avance !

 

[Catrice]

Re : modification d'une colonne entrainant Vlookup.

Bonjour,

tu peux faire comme ceci :

If Not Intersect(Target, Range("A7:A11")) Is Nothing Then .....

 

[AQSE]

Re : modification d'une colonne entrainant Vlookup.

merci , c'est super : exactement ce que je voulais !🙂😉