If dans Selection change

La question étnat à peu près...la réponse est à peu près....

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

AV

"RIRI" <Sriri@wanadoo.fr> a écrit dans le message news:
BB2CCA56.6D2F%Sriri@wanadoo.fr...

Bonjours à tous,

Dans mon classeur A avec un SelectionChange de la feuille 2 (Je pense):
Quand la cellule X de la colonne H est égale à 0, alors dans le classeur B
recherche la ligne où se trouve la valeur de la colonne C du classeur A et
entre "P" dans la colonne E.

Je ne sais pas si je suis bien clair.

Merci d'avance

Bonjour Alain,

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
recliquer sur la cellule.

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


Merci, merci




Soit ta procédure :

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