Discussion :

[texas2607]

Bonjour,
J'ai plusieurs tableau sur une feuille, je sais comment récupérer le nom de chaque tableau en VBA mais j'aurais besoin de récupérer une adresse d'une cellule particulière

Si je fais la formule :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets("Numéros").ListObjects(1).DataBodyRange.Address

Dans mon cas cela me donne : $B$4:$E$53 (tableau sans prendre en compte les entetes) c'est OK

Mais je tourne en rond pour arriver à extraire uniquement le E53 (1ère ligne / dernière colonne de mon tableau)

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Sauf erreur de ma part et selon ton exemple E53, c'est l'adresse de la cellule se trouvant en dernière ligne, dernière colonne du tableau

Dans l'exemple ci-dessous, le programme affiche la valeur de la cellule se trouvant à la dernière ligne, dernière colonne du tableau structuré nommé tableau1. Il te suffit de remplacer la propriété Value par Address

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub t1()
  '
  Dim oList As ListObject
  Dim NumberOfRows As Long
  Dim NumberOfColumns As Integer
  Set oList = Range("tableau1").ListObject 
  ' 
  With oList
    NumberOfRows = .ListRows.Count: NumberOfColumns = .ListColumns.Count
    With .DataBodyRange
     MsgBox .Cells(NumberOfRows, NumberOfColumns).Value
    End With
  End With
End Sub

[texas2607]

Bonjour et merci de intéresser à mon souci
Sur mon tableau B4:E53 alors E53 est bien la cellule de la dernière ligne / dernière colonne.

En fait je me suis mis dedans en faisant ma demande,

Mais je tourne en rond pour arriver à extraire uniquement le E53 (1ère ligne / dernière colonne de mon tableau)

C'est pas E53 mais E4. j'ai besoin de trouver l'adresse de la cellule de la 1ere ligne / dernière colonne sans tenir compte des entetes (E4 dans l'exemple)

Mais j'ai besoin de sortir 3 choses :
- La colonne (E dans l'exemple)
- La ligne (4 dans l'exemple)
- L'adresse (E4 dans l'exemple)

Sachant que je vais adapter ce code pour d'autres tableaux qui n'ont pas du tout les même nombres de lignes/colonnes mais sur lesquels je dois ressortir les mêmes choses.

Merci

[Philippe Tulliez]

Bonjour,
L'exemple que je t'ai donné n'était pas suffisant ?

Dans l'exemple ci-dessous oList est une variable objet ListObject et on affiche donc l'adresse de la cellule se trouvant en ligne 4, colonne 3 du tableau structuré représenté par la variable objet oList

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox oList.DataBodyRange.Cells(4, 3).Address

[texas2607]

et on affiche donc l'adresse de la cellule se trouvant en ligne 4, colonne 3 du tableau structuré représenté par la variable objet oList

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox oList.DataBodyRange.Cells(4, 3).Address

Oui mais si je comprend bien c'est dans le cas où je connais le nombre de colonnes du tableau.
J'ai des tableaux avec 3, 4, 5, 8 colonnes et +, et sur chacun je veux extraire la cellule de la 1ere ligne/ dernière colonne.
Je pensais possible d'avoir une formule qui vient me chercher cette cellule quelque soit la taille su tableau.
je regardai du coté de DataBodyRange.Offset mais j'ai un peu de mal a trouver la bonne syntaxe générique.

[Philippe Tulliez]

Bonjour,
Dans ma première réponse, je t'ai montré comment connaître la dernière ligne d'un tableau et sa dernière colonne.
Que faire de plus.

[texas2607]

Bonjour,
Dans ma première réponse, je t'ai montré comment connaître la dernière ligne d'un tableau et sa dernière colonne.
Que faire de plus.

C'est la 1ere ligne / dernière colonne que je cherche


Edit :
J'ai modifié en

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oList.DataBodyRange.Cells(1, NumberOfColumns).Address

Et ça fonctionne.


Juste une chose, comment sortir la lettre de la dernière colonne ?
La formule ci-dessus me sort par exemple $E$4 et je dois sortir le E tout seul.

Merci

[Philippe Tulliez]

Bonjour,

La formule ci-dessus me sort par exemple $E$4 et je dois sortir le E tout seul.

J'avoue ne pas comprendre l'intérêt d'obtenir la lettre de la colonne d'une cellule (son numéro n'est-il pas suffisant ?)

Bref, il te suffit de définir l'argument ColumnAbsolute de la propriété Address à False et à l'aide des fonctions Instr et left tu pourras extraire la lettre ou encore la fonction Split qui te construira une table qui te permettra de prendre le premier élément de celle-ci.

Exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim txt As String
txt = Range("AF50").Address(Columnabsolute:=False)
MsgBox Left(txt, InStr(txt, "$") - 1)

[Patrice740]

Bonjour le fil,

j'ai besoin de sortir 3 choses :
- La colonne (E dans l'exemple)
- La ligne (4 dans l'exemple)
- L'adresse (E4 dans l'exemple)

Comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Option Explicit
Sub test()
Dim oLO As ListObject
Dim adr As String
Dim col As String
Dim lig As Long
  Set oLO = Range("tableau1").ListObject
  With oLO.DataBodyRange
    adr = Split(.Address(0, 0), ":")(0)
    col = Split(Split(.Address, ":")(0), "$")(1)
    lig = Split(Split(.Address, ":")(0), "$")(2)
  End With
End Sub