cellule d'un bloc

[fredl]

Bonjour à tous,
comment puis je faire pour vérifier si une cellule selectionnée par un utilisateur est comprise dans un bloc de cellules (prédéfini)?

ex : cellule B1 selectionnée
Bloc A1:L56
->la cellule appartient au bloc

ex : cellule M57 selectionnée
Bloc A1:L56
->la cellule n'appartient pas au bloc

Merci d'avance à tous pour vos réponses.
Bonne journée
Cdt
frédéric

 

[ziopizza]

Bonjour fredl,
Essaye ce code,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sel As Range
'pour une plage
Set Sel = Range('m156') ' plages

If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
MsgBox 'La cellule n'appartient pas au bloc a1:a56)'
Else
MsgBox 'La cellule appartient au bloc a1:a56)'
End If

End Sub
Salut
Yves

Message édité par: ziopizza, à: 13/04/2006 14:22

 

[fredl]

Yves, tu es trop fort!......
tu n'imagines pas combien cela va me dépanner!..
je me suis permis de 'rectifir'(c'est un bien gd mot) ton code pour les eventuels interessés (juste des erreurs de frappes).
VRAIMENT MERCI, T'ES UN CHEF!

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Sel As Range
'pour une plage
Set Sel = Range('A1:A56') ' plage

If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
MsgBox 'La cellule appartient au bloc A1:A56 '
Else
MsgBox 'La cellule n'appartient pas au bloc A1:A56'
End If
End Sub