[VBA Excell] : cellule dans un RANGE Résolu

Question

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.

Utilisateur anonyme · Answer

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

Fenrhill · Answer

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

[VBA Excell] : cellule dans un RANGE

2 réponses

Discussions similaires

Newsletters