Discussion :

[ted the Ors]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PCLDate Target.row

[ted the Ors]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

PCLDate Target.row

fait planter le bouzin!

[ouskel'n'or]

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

[ted the Ors]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Public PCLLigne As Integer

puis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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!