Workbook_SheetChange et Target.Row

Bonjour,

J'utilise Workbook_SheetChange pour detecter les changements de cellule pour la colonne K (11ème colonne), selon:

Code:

---

1 2 3 4 5 6 7

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)   If Target.Row > 3 And Target.Row < 1500 And Target.Column = 11 Then Select Case (Sh.Name) Case "PCL": PCLDate Target End Select End If

---

Comment récupérer la ligne de la cellule modifié (qui correspond à Target.Row) afin de s'en reservir dans PCLDate!
J'ai essayer de définir une variable pour y copier la valeur de Target.Row, mais rien n'y fait!

D'avance merci

@+

ted

Je ne comprends pas ta question. Ta variable NoLigne correspond à Target.Row. Quel est le problème ?

Code:

---

PCLDate Target.row

---

Le problème c'est que quand je débranche vers PCLDate, Target.Row n'a plus de sens! J'ai une erreur de compil "Variable non définie"...

[EDIT] en plus

Code:

---

PCLDate Target.row

---

fait planter le bouzin! :aie:

D'où la question subsidiaire : Où se trouve PCLDate ? Et PCLDate, c'est quoi ? ;)

PCLDate est une procédure (Sub[...]End Sub)...Désolé, je pensais que c'était implicite...

Anyway, j'ai la solution

Il faut déclarer une variable dans la zone Public

Code:

---

Public PCLLigne As Integer

---

puis

Code:

---

1 2 3 4 5 6

If Target.Row > 3 And Target.Row < 1500 And Target.Column = 11 Then PCLLigne = Target.Row Select Case (Sh.Name) Case "PCL de chaines": PCLDate Target End Select End If

---

Merci quand même pour tout...Excellente fin d'après-midi!