[XL-2007] Problème Worksheet SelectionChange [Résolu]

[XceSs]

Bonjour, j'aimerais savoir s'il est possible d'appliquer cette macro sur toute la colonne C mais qu'à partir de C5

Code :

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("C5:??")) Is Nothing Then
   Heures.Show
 End If
End Sub

merci de votre aide

[Theze]

Bonjour,

Une possibilité :

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Intersect(Target, Range(Cells(5, 3), Cells(Rows.Count, 3))) Is Nothing Then
 
        Heures.Show
 
    End If
 
End Sub

Hervé.

[mercatog]

Code :

1
2
3
4
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Target.Column = 3 And Target.Row >= 5 Then Heures.Show
End Sub

[XceSs]

Merci c parfait

bonne soirée