Discussion :

[abouhossam]

bjr tous le monde
j'ai trouvé cette macro dans le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select Case Cells(1, 10)
Case Is < 30
Cells(1, 11) = "message 1"
Case 30 To 49
Cells(1, 11) = "message 2"
Case Else
Cells(1, 11) = "message 3"
End Select

ma question est : comment je peux executer cette macro en utilisant Private Sub Worksheet_Change et precisement sur la cells(1,10).
merci à tous

[fring]

b'jour,

Comme ceci

Code à insérer dans l'objet feuille :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$1" Then
    Select Case Target.Value
    Case Is < 30
    Cells(1, 11) = "message 1"
    Case 30 To 49
    Cells(1, 11) = "message 2"
    Case Else
    Cells(1, 11) = "message 3"
    End Select
End If
End Sub

[abouhossam]

bjr
merci bcp.
ça marche