XL 2010 [RESOLU] Test activecell appartient à une plage

[cp4]

Bonjour🙂,

C'est peut-être évident pour certains. Mais là, je suis à sec.
Je voudrais tester que la cellule active appartient à une plage en vba.
J'ai commencé ainsi mon code. Merci pour votre aide.

Sub test()
Dim ws As Worksheet, plg As Range
Set ws = ThisWorkbook.Worksheets("maFeuille")
Set plg = ws.Range("C1:C" & ws.Range("C" & Rows.Count).End(xlUp).Row)

'if activecell in plg then  'plante

End Sub

 

[Phil69970]

Bonjour @cp4

Je ferais comme cela

Sub test()
If Not Application.Intersect(ActiveCell, Range("Maplage")) Is Nothing Then '<== A adapter
    MsgBox "OK"
Else
    MsgBox "PAS OK"
End If
End Sub

*Merci de ton retour

@Phil69970

 

[Staple1600]

Bonjour

Un truc du genre ferait l'affaire ?

Sub test()
Dim ws As Worksheet, plg As Range
Set ws = ThisWorkbook.Worksheets("maFeuille")
Set plg = ws.Range("C1:C" & ws.Range("C" & Rows.Count).End(xlUp).Row)
If Not Intersect(ActiveCell, plg) Is Nothing Then MsgBox ActiveCell.Address
End Sub

EDITION: Houps, désolé. Pas rafraichi.
Bonjour Phil69970

Il n'y a pas que moi qui n'est pas frais 😉
Bonjour Hasco.

 

[Hasco]

Bonjour,

If Not Intersect(ActiveCell, plg) Is Nothing Then MsgBox "En plein dedans"

cordialement

[Edit]@Staple1600 Hey l'ami, très heureux de te croiser.
Bonjour chacun, chacune que j'ai loupé.
[/Edit]

 

[Phil69970]

Bonjour à tous

Belle rafale..... d'intersect 🤣

@Phil69970

 

[cp4]

🤣🤣🤣🤣 et 😎😎😎😎 à la fois.

Merci beaucoup, vous me sauvez. Toutes vos propositions fonctionnent parfaitement.
Mais sur ce coup, je vais utiliser celle de @Hasco .
Toute ma gratitude.
Bonne soirée.

 

[mapomme]

Bonsoir à @cp4 🙂,@Hasco 🙂, @Phil69970 🙂
Bonsoir @Staple1600 🙂

Rien que pour montrer que l'intersect n'est pas une fatalité, voici une version avec Union (contradiction quand tu nous tiens...)

Et surtout pour saluer 🙂 les récentes réapparitions de @Staple1600 après sa cure à 9 mois de zéro XLD ( ou bien le temps d'une grossesse l'agrafe ? Le papa se porte-t-il bien 😜)

Sub Essai()
Dim plg As Range
   With ThisWorkbook.Worksheets("maFeuille")
      Set plg = .Range("C1:C" & .Range("C" & Rows.Count).End(xlUp).Row)
      If plg.Count = Union(plg, ActiveCell).Count Then
         MsgBox "Cellule active INCLUSE dans plg.", vbInformation
         'suite du code
      Else
         MsgBox "Cellule active ABSENTE de plg.", vbExclamation
         'suite du code
      End If
   End With
End Sub

 

[cp4]

Bonsoir à tous,

Rien que pour montrer que l'intersect n'est pas une fatalité, voici une version avec Union (contradiction quand tu nous tient...)

Et surtout pour saluer les récentes réapparitions de @Staple1600 après sa cure à 9 mois de zéro XLD ( ou bien le temps d'une grossesse l'agrafe ? Le papa se porte-t-il bien 😜)

Sub Essai()
Dim plg As Range
   With ThisWorkbook.Worksheets("maFeuille")
      Set plg = .Range("C1:C" & .Range("C" & Rows.Count).End(xlUp).Row)
      If plg.Count = Union(plg, ActiveCell).Count Then
         MsgBox "Cellule active INCLUSE dans plg.", vbInformation
         'suite du code
      Else
         MsgBox "Cellule active ABSENTE dans plg.", vbExclamation
         'suite du code
      End If
   End With
End Sub

Bonsoir Mapomme,

Merci beaucoup. c'est parfait pour moi.

Bonne soirée.

 

[Staple1600]

Bonsoir mapomme

Je me porte pas très bien
La preuve par le code 😉

Private Sub Worksheet_SelectionChange(ByVal r As Range)
On Error Resume Next
Select Case Intersect(r, Columns(3))
Case "Bazinga!"
'
Case Else
MsgBox "https://www.youtube.com/watch?v=Lbb5AkLWDzQ"
End Select
End Sub