Vérification sélection dans zone

Bonjour,

Mon titre n'est pas très évocateur mais ma demande est très simple :

Je souhaite appliquer un format à la cellule sélectionnée seulement si elle est dans une zone précise.

Pour l'application du format, c'est bon, je maîtrise, mais la ligne que je cherche c'est celle qui me traduit :

Si l'ActiveCell est comprise entre A2 et A10 alors ...

Merci pour votre aide !

Azkaet

Bonjour,

a mettre dans un onglet

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Set plage = Range("A2:A10")
If Application.Intersect(Target, plage) Is Nothing Then
Else

'mets ton code ici

End If
End Sub

Bonjour,

Un exemple :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.CountLarge = 1 And Not Intersect(Target, Me.Range("A2:A10")) Is Nothing Then
        With Target
            .NumberFormat = "General"
            .Interior.Color = vbRed
        End With
    End If
End Sub

Ah super, merci beaucoup Jean-Eric !

Du premier coup !