Référence relative mal exprimée

Bonjour à tous,

Je souhaite vérifier 2 conditions :

If Not Intersect(Target, Range("e2:e25000")) Is Nothing Then
If ActiveCell.Value <> "" And ActiveCell.Offset(0, 21).Value > 95 Then
ActiveCell.Value = "Prélevé"
Else
ActiveCell.Value = "Trié"
End If

Que la cellule active et celle qui se trouve 21 colonnes à droite remplissent des conditions pour faire 2 actions.

Mais ça ne fonctionne pas. Il doit y avoir certainement un abus de langage dans mon code ! Que je ne résous pas.

Quelqu'un aurait une petite idée ?

Grand grand merci d'avance à mon sauveur !

Bonjour,

Tu pourrais tester ...

If Not Intersect(Target, Range("e2:e25000")) Is Nothing Then
If Target.Value <> "" And Target.Offset(0, 21).Value > 95 Then
Target.Value = "Prélevé"
Else
Target.Value = "Trié"
End If

Salut,

Avec le bout de code que tu nous montres, on ne peut pas savoir quel évènement déclenche ton code : Worksheet_Change ? Worksheet_SelectionChange ?

Ensuite je présume que l’utilisation de ActiveCell n’est pas optimale ; probablement qu’il faudrait utiliser Target à la place. Mais difficile de t’en dire plus sans fichier afin de mieux comprendre ce que tu tentes de réaliser

Cordialement.

EDIT : Salut James, je n'avais pas vu que tu avais déjà répondu

Salut a tous,

Un test de Pierrot avec un double-clic

Amicalement

Merci pour vos réponses !

L'évènement est

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Merci Pierrot c'est OK