Affectation macro à colonne entière

[Worm]

Hello everybody,

je suis en mode calcul sur ordre et je voudrais que le calcul se lance lorsque le mot "OK" est saisi dans une colonne dédié à la validation.
Je veux pas utiliser de bouton du formulaire (ça je sais faire). je voudrais affecter en fait une macro à une colonne.

Merci d'avance

 

[@+Thierry]

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

 

[@+Thierry]

C'est re-moi...

PS j'ai oublié de préciser que cette macro évènementielle est à placer dans le Private Module de la Feuille en Question (CLick droit sur l'Onglet de la FEuille puis "Visualiser le Code" dans le menu contextuel)

Bonne Journée
@+Thierry

 

[Worm]

thanks. It works!