Re: Calcul coefficient automatique avec évènement WorkSheet_Change
Bonjour Pyrof, Eric et le Forum
Ben oui, tu m'ouvres les yeux !!! (l'apéro du Dimanche aprèm => Pas Bon ! lol)
Tu as parfaitement raison, faut empécher Excel de recalculer sur l'évènement Change.... Par Conséquent voici la solution !!
Il faire comme ceci, c'est simple comme bonjour, fallait juste y penser !
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Coef As Currency
On Error GoTo fin
Coef = Range("a1").Value
If Range("a1") = "" Then Exit Sub
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
Application.EnableEvents = False
Target = Target.Value * Coef
End If
Application.EnableEvents = True
fin:
End Sub
Merci de ta participation, tu m'as mis la Puce à l'oreille !!!
Bonne Journée
@+Thierry