[VBA Excell] : cellule dans un RANGE

Résolu
Fenrhill -  
Fenrhill Messages postés 3 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour à tous,

Je débute dans le monde des forums ... également en VBA pour excell.

Comment puis-je faire pour savoir si une cellule que le sélectionne fait partie d'un range ?

Merci d'avance de votre aide.

2 réponses

Utilisateur anonyme
 
Bonjour,

Ce code est a placer derrière la feuille de travail :

//Menu / Outils / Macro / Visual Basic Editor

Double clic sur l'objet feuille dans la fenêtre de gauche [ Projet - VBAProjet ]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Plage As Range, Intersection As Range

    ' Définir ici votre plage, il n'est pas obligatoire que les cellule soit contigu    
    Set Plage = Range("B2:B10")
    ' Set Plage = Range("B2:B4","F2:F4")
    
    Set Intersection = Intersect(Target, Plage)
    
    If Not (Intersection Is Nothing) Then
        MsgBox "La cellule visé est dans la plage."
    End If

End Sub
'

Lupin
1
Fenrhill Messages postés 3 Date d'inscription   Statut Membre Dernière intervention  
 
Lupin,

Merci pour ton aide, le code dans cet événement fonctionne à merveille;

Merci encore pour ton aide


Fenrhill
0