Bonjour Worm, le Forum
En imaginant que ta colonne vecteur de lancement soit la "A" (Column 1)
Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Value = "ok" Then
MsgBox "La ligne : " & Target.Row & " est ok"
End If
End If
End Sub
Mettre le Calcul à la place du message ...
Exemple :
Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Lig As Integer
On Error Resume Next
If Target.Column = 1 Then
If Target.Value = "ok" Then
Lig = Target.Row
Cells(Lig, 3) = Cells(Lig, 2) * 10
End If
End If
End Sub
Cette macro fera la multiplication par deux de la valeur de "B" en "C" ou "A" contiendra "OK"...
Bonne Journée
@+Thierry