XL 2013 comment Identifier le type Rows où columns

[patricktoulon]

bonjour à tous
comment peut on identifier le type Rows ou Columns avec un argument rows ou columns
j'explique
j'ai une fonction dans la quelle j'injecte un argument rng.rows ou rng .columns
je voudrais identifier le type d'object et non "Range"

Sub test()
Dim rng As Range

Set rng = [A1:A20]
mafiontion rng, rng.Rows

Set rng = [A1:H10]
mafiontion rng, rng.Columns
End Sub

Function mafonction(r As Range, RowColumns)
MsgBox TypeName(RowColumns)
End Function

 

[Dranreb]

Eh bien c'est ce que faisait ma fonction du poste 14: il répondait LMax * CMax & " cells" pour les indiscernables Rng tout court, Rng.Rows d'une seuls colonne et Rng.Columns d'une seule ligne.

 

[patricktoulon]

oui mais elle n'avait pas tout juste dans les autres cas

un truc un peu téléphoné
mais ça m'oblige à avoir 2 arguments

Sub test()
    Dim rng As Range
    Set rng = [A1:A10]
    MsgBox GetTypeRange(rng)
    '-----------------------------------------
    Set rng = [A1:A10]
    MsgBox GetTypeRange(rng, rng.Rows)

    Set rng = [A1:A10]
    MsgBox GetTypeRange(rng, rng.Columns)
    '-----------------------------------------
    Set rng = [A1:J1]
    MsgBox GetTypeRange(rng, rng.Rows)

    Set rng = [A1:J1]
    MsgBox GetTypeRange(rng, rng.Columns)
    '-----------------------------------------
    Set rng = [A1:J10]
    MsgBox GetTypeRange(rng, rng.Rows)

    Set rng = [A1:J10]
    MsgBox GetTypeRange(rng, rng.Columns)
End Sub

Function GetTypeRange(rng As Range, Optional Rowcolumns As Range)
    Dim X As Long
    If Rowcolumns Is Nothing Then GetTypeRange = "Range": Exit Function
    X = Abs(Rowcolumns(1).Address = Rowcolumns.Rows(1).Address)
    GetTypeRange = Array("column", "Row", "Range")(X)
End Function