OVH Cloud OVH Cloud

Cellule incluse dans une plage

5 réponses
Avatar
Droopy191
Bonjour,

Soit une plage "B1: F12",
je voudrais tester si la cellule active est incluse ou non dans cette plage.

Comment faire ?

Merci de vos conseils

DR

5 réponses

Avatar
AV
Sub zz()
On Error Resume Next
x = Application.Intersect(ActiveCell, Range("B1:F12"))
If Err.Number = 0 Then MsgBox "La cellule active est dans la plage B1:B10"
End Sub

AV
Avatar
AntoineL \(MS\)
Bonjour,

Tu peux essayer quelque chose comme ci-dessous

Function ActiveCellInNamedRange(NameOfRange As String) As Boolean
On Error Resume Next
ActiveCellInNamedRange = (Application.Intersect(ActiveCell,
Range(NameOfRange)).Cells.Count > 0)
End Function

Cdt,


"Droopy191" a écrit dans le message de news:
426e6ffe$0$7838$
Bonjour,

Soit une plage "B1: F12",
je voudrais tester si la cellule active est incluse ou non dans cette
plage.

Comment faire ?

Merci de vos conseils

DR


Avatar
Droopy191
Bonjour,

Tu peux essayer quelque chose comme ci-dessous

Function ActiveCellInNamedRange(NameOfRange As String) As Boolean
On Error Resume Next
ActiveCellInNamedRange = (Application.Intersect(ActiveCell,
Range(NameOfRange)).Cells.Count > 0)
End Function

Cdt,


"Droopy191" a écrit dans le message de news:
426e6ffe$0$7838$

Bonjour,

Soit une plage "B1: F12",
je voudrais tester si la cellule active est incluse ou non dans cette
plage.

Comment faire ?

Merci de vos conseils

DR






Merci,
la fonction intersect semble correspondre à ce que je cherche.
Je vais essayer.

DR


Avatar
Alain
Soit une plage "B1: F12",
je voudrais tester si la cellule active est incluse ou non dans
cette plage.

Bonsoir,



Je ne comprends pas ce qu'est la cellule active mais, si tu parles de la selection, il faut penser qu'elle peut représenter un range de plusieurs cellules.

Si tu souhaite tester la première cellule de la selection, utilises :

Selection.Cells(1, 1).Row
Selection.Cells(1, 1).Column


Balain


Avatar
Droopy191
Soit une plage "B1: F12",
je voudrais tester si la cellule active est incluse ou non dans
cette plage.




Bonsoir,

Je ne comprends pas ce qu'est la cellule active mais, si tu parles de la selection, il faut penser qu'elle peut représenter un range de plusieurs cellules.

Si tu souhaite tester la première cellule de la selection, utilises :

Selection.Cells(1, 1).Row
Selection.Cells(1, 1).Column


Balain


Salut,

Je pensais bien à sélection.

Dans le détail, il s'agit d'appliquer une procédure sur un événement
Workbook_SheetChange si la cellule qui change est bien dans le range valide.

L'événement Workbook_SheetChange réagit bien sur la saisie/modification
de données dans une cellule ? A quelles occasions pourrait'il me
renvoyer un range > 1 cellule ?

En tous cas merci pour ta remarque, je vais creuser de ce coté

DR