macro lancée lors de update cellule

[titcoeur]

Bonjour à tous,


Grâce à une question sur ce forum, j'ai appris comment lancer une macro automatiquement lors du changement de la valeur d'une cellule (dans mon exemple, D9).

Mon but est que, dès que la valeur de D9 change, ou dès qu'on sort de la case D9, la macro se lance.


Malheureusement , le code ci-dessous marche, mais pas tout à fait comme je l'èspérais : la macro se lance dès que j'accède à D9. Je n'ai donc pas le temps de modifier son contenu que 'hop' ...

Help!
Quelqu'un peut-il m'aider à corriger mon code ?

Merci d'avance.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

If Not Application.Intersect(Target, Range('D9')) Is Nothing Then

test = Range('D9').Value

    If test > 0 And test < 5 Then
        Select Case test
            Case 1
            Range('P_CD_option1').Select
            Case 2
            Range('P_CD_option2').Select
            Case 3
            Range('P_CD_option3').Select
            Case 4
            Range('P_CD_option4').Select
        End Select
        Selection.Copy
        Range('D69:d71').Select
        Selection.PasteSpecial Paste:=xlValues
        Application.CutCopyMode = False
        Calculate
    End If
        
    End If

End Sub

Message édité par: titcoeur, à: 06/07/2005 16:28

 

[michel_m]

Bonjour,

essaies avec

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

au lieu de
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

 

[titcoeur]

Super michel,

ça marche.
je n'ai pas bien compris la subtilité mais ça marche.

Merci