Excel Downloads Forums - Afficher un message

Pierrot93 · 01/10/2006, 20h17

Bonsoir Albatros

Ci dessous ton code modifié (pas testé).

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C23:C46,C71:C94")) Is Nothing Then
TraitementsdevisP1.Show
End If
End Sub

Bonne soirée
@+

01/10/2006, 20h17	#2 (permalink)
Pierrot93 XLDnaute Barbatruc Date d'inscription: août 2006 Messages: 7 503	Re : Petit complément pour ActiveCell, Range Bonsoir Albatros Ci dessous ton code modifié (pas testé). Code: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Application.Intersect(Target, Range("C23:C46,C71:C94")) Is Nothing Then TraitementsdevisP1.Show End If End Sub Bonne soirée @+ __________________ Pierrot On se trouve toujours suffisamment intelligent, vu que c'est avec ce que l'on a qu'on juge !!!