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.
Message édité par: titcoeur, à: 06/07/2005 16:28
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.
Code:
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