If dans Selection change

Bonjour à tous,

J'ai beau chercher avec Google dans les vieux messages, je n'ai rien trouve
pour résoudre mon probleme.


La procédure fonctionne mais seulement lorsque je clique dans la cellule H (
la cellule est un calcul). Mais en testant sans calcul, il faut quand meme
recliquer sur la cellule et lorsque je fais Enter dans une des colonnes qui
fait partie du calcul, le P s'affiche sur la ligne d'en dessous..

De plus (J'abuse), si j'annule le 0 en H puis-je supprimer le P dans mon
classeurB??


Merci, merci




Soit la procédure de AV :

Dans le module de Feuil2 de ClasseurA :

Private Sub Worksheet_SelectionChange(ByVal zz As Range)
lg1 = zz.Row
If Cells(zz.Row, "H") = 0 Then
laVar = Cells(lg1, "C")
On Error Resume Next
With Workbooks("ClasseurB.xls").Sheets("Feuil1")
lg2 = .[A:A].Find(laVar).Row
.Range("E" & lg2) = "P"
End With
End If
End Sub

Bonjour à tous,

Voilà les procédures :

Dans le ClasseurA

Private Sub Workbook_Open()
Application.MoveAfterReturnDirection = xlToRight

End Sub

''' Pour forcer l'appli à sélectionner la cellule de droite pour rester sur
la même ligne pour que la procédure suivante fonctionne.



Private Sub Worksheet_SelectionChange(ByVal zz As Range)
lg1 = zz.Row

If Cells(zz.Row, "Q") <= 0 Then

laVar = Cells(lg1, "F")

On Error Resume Next

With Workbooks("ClasseurB.xls").Sheets("Feuil1")
lg2 = .[H:H].Find(laVar).Row
.Range("J" & lg2) = "P"
End With
End If

If Cells(zz.Row, "Q") > 0 Then

laVar = Cells(lg1, "F")

On Error Resume Next

With Workbooks("ClasseurB.xls").Sheets("Feuil1")
lg2 = .[H:H].Find(laVar).Row
.Range("J" & lg2) = " "
End With
End If

End Sub