Connaître l'adresse d'une cellule qui est en dehors d'une plage nommée

[Magic_Doctor]

Bonsoir,

J'ai, sur une feuille, une plage de cellules nommée.
Je voudrais tout simplement connaître, via VBA, l'adresse d'une cellule en dehors de cette plage nommée.

Merci pour toute aide.

 

[TempusFugit]

Re : Connaître l'adresse d'une cellule qui est en dehors d'une plage nommée

Bonjour


Si j'ai bien compris

Sub test()
Range("B3:H23").Name = "toto"
If Intersect(ActiveCell, [toto]) Is Nothing Then
MsgBox ActiveCell.Address
End If
End Sub

Selectionne une cellule hors du carré jaune et lance la macro
Selectionne une cellule dans le carré jaune et lance la macro

Tu verras une différence.

 

[tototiti2008]

Re : Connaître l'adresse d'une cellule qui est en dehors d'une plage nommée

Bonjour Magic, Bonjour Tempus,

peut-être

Sub Rouge()
    With Range("Zone")
        .Range("A1").Offset(.Rows.Count - 1, .Columns.Count).Select
    End With
End Sub

 

[Magic_Doctor]

Re : Connaître l'adresse d'une cellule qui est en dehors d'une plage nommée

Merci TempusFugit & tototiti2008,

J'ai retenu la solution de tototiti qui me donne directement l'adresse d'une cellule en dehors de la plage "Zone", en l'occurrence une cellule adjacente à ladite plage nommée (comme on pouvait le comprendre dans ma requête), mais en fait n'importe quelle cellule en dehors de cette plage aurait pu faire l'affaire.

 

[TempusFugit]

Re : Connaître l'adresse d'une cellule qui est en dehors d'une plage nommée

Bonjour

Dans ce cas, il y a plus simple, s'il s'agit de sélectionner la cellule adjacente à la dernière cellule d'une plage nommée (ce qui est le cas de ton fichier exemple, et que fait le code de Tototiti208)

Range("Zone").SpecialCells(xlCellTypeLastCell).Offset(, 1).Select