Adresse de la dernière cellule d'un tableau

[Magic_Doctor]

Bonsoir,

J'ai un tableau avec x colonnes et y lignes. Toutes les cellules du tableau sont évidemment encadrées.
Je connais l'adresse de la 1ère cellule du tableau.
Je voudrais connaître l'adresse de la dernière cellule du tableau, que celle-ci soit vide ou pas.

Merci pour tout conseil.

 

[vgendron]

Re : Adresse de la dernière cellule d'un tableau

Bonsoir
Je suppose qu'on parle de VBA...?

si ton tableau s'appelle "Tablo"

derligne=range("Tablo").rows.count
et bien sur
dercol=range("Tablo").columns.count

 

[Magic_Doctor]

Re : Adresse de la dernière cellule d'un tableau

Bonsoir vgendron,

Bien sûr nous parlons de VBA.
En fait le problème, tout bête, est nettement plus compliqué.
J'ai au départ un tableau que je nomme "Zaza". Connaître ses coordonnées n'est pas bien compliqué avec les formules que tu m'as envoyées.
Seulement, voilà, je veux modifier les dimensions de mon tableau, en l'occurrence rajouter des lignes. Toutes les nouvelles cellules étant évidemment encadrées.
La 1ère cellule du tableau est toujours la même, son adresse étant : [Zaza].Cells(1).Address
Comment connaître automatiquement l'adresse de la dernière cellule (en bas à droite) du tableau ?

 

[vgendron]

Re : Adresse de la dernière cellule d'un tableau

ok,
alors. va voir ici, ma solution mixée avec la macro événementielle de doublezero
ca peut etre une piste

https://www.excel-downloads.com/thr...-plusieurs-tableaux-dune-meme-feuille.200438/

sinon, il faudrait un petit fichier exemple pour nous faire une idée plus précise de ton souci

 

[Magic_Doctor]

Re : Adresse de la dernière cellule d'un tableau

Merci pour ta réponse,

Je vais étudier ce que me donne le lien que tu as posté.
Mais mon problème en fait est très simple, même si le résoudre est plus compliqué. Il tient en une seule phrase : connaissant l'adresse de la 1ère cellule d'un tableau, comment peut-on connaître l'adresse de sa dernière cellule, que celle-ci soit vide ou pas ?

 

[david84]

Re : Adresse de la dernière cellule d'un tableau

Bonsoir,
possibilité d'utiliser CurrentRegion.
A+

 

[Magic_Doctor]

Re : Adresse de la dernière cellule d'un tableau

Bonsoir david,

J'ai essayé et... ça ne marche pas très fort.
Par exemple si j'écris, après avoir modifié la taille du tableau "Zaza" : [Zaza].CurrentRegion.Select
seule la 1ère cellule de "Zaza" est sélectionnée.
Je pense qu'il faut passer en revue (au moyen d'une boucle) toutes les cellules du tableau en tenant compte du fait qu'elles doivent être encadrées, et non pas si elles contiennent quelque chose, puisqu'elles peuvent être vides.

 

[Pierrot93]

Re : Adresse de la dernière cellule d'un tableau

Bonjour,

peut être ainsi :

Dim c As Range
Set c = Range("zaza")
MsgBox Split(c.Address, ":")(1)

bonne journée
@+

 

[Magic_Doctor]

Re : Adresse de la dernière cellule d'un tableau

Bonjour Pierrot,

Avec ta solution je retrouve, d'une autre manière, l'adresse de la dernière cellule du tableau nommé "Zaza".
Mais apparemment personne ne comprend exactement ce que je veux. C'est pourtant simple.
Oublions définitivement que le tableau soit nommé.
Reprenons le problème.
En, supposons, A356 nous avons la 1ère cellule du tableau.
On dresse le tableau comme tout tableau, c'est-à-dire en encadrant des cellules.
Pour simplifier, disons que toutes les cellules sont vides ; autrement dit le tableau est vierge.
Bon, jusque là aucune question particulière à se poser.
Je rappelle que nous ne connaissons au départ avec certitude que l'adresse de la 1ère cellule.
Il y aurait-il un moyen de connaître l'adresse de la dernière cellule du tableau ?
En d'autres termes, je reprends la phrase d'un post précédent : connaissant l'adresse de la 1ère cellule d'un tableau, comment peut-on connaître l'adresse de sa dernière cellule, que celle-ci soit vide ou pas ?

 

[DoubleZero]

Re : Adresse de la dernière cellule d'un tableau

Bonjour à toutes et à tous,

Un essai dans le fichier joint.

A bientôt

 

[job75]

Re : Adresse de la dernière cellule d'un tableau

Bonjour Magic_Doctor, le fil, le forum,

On dresse le tableau comme tout tableau, c'est-à-dire en encadrant des cellules.

Pourquoi pas, bien que ce ne soit pas toujours ainsi qu'on dresse un tableau.

Mais si c'est bien le cas alors utiliser cette fonction DERCEL :

Function DERCEL(premcel As Range, Optional r As Boolean)
'si le 2ème argument est VRAI, le Range est renvoyé
Application Volatile
Set DERCEL = DER(DER(premcel, True), False)
If Not r Then DERCEL = DERCEL.Address(0, 0)
End Function

Function DER(c As Range, lig As Boolean) As Range
Dim test As Boolean, i As Byte
test = True
While test
  Set c = IIf(lig, c(2, 1), c(1, 2))
  For i = 7 To 10
    If c.Borders(i).LineStyle = xlNone Then _
      test = False: Exit For
  Next
Wend
Set DER = IIf(lig, c(0, 1), c(1, 0))
End Function

Si le 2ème argument (facultatif) est VRAI, la fonction renvoie le Range de la cellule.

Sinon c'est l'adresse qui est renvoyée.

Fichier joint.

Edit : bonjour DoubleZero pas rafraîchi, bonjour Michel

A+

 

[MJ13]

Re : Adresse de la dernière cellule d'un tableau

Bonjour à tous

Mais apparemment personne ne comprend exactement ce que je veux. C'est pourtant simple.

Sans fichier, on pourra toujours chercher longtemps .

Excel est un tableur. Mais en fonction de ce qu'il contient, cela peut entraîner différentes approches.

Sinon, j'aime bien vos différentes solutions .

 

[job75]

Re : Adresse de la dernière cellule d'un tableau

Re DoubleZero

Si le tableau a un contour différent des bordures intérieures ta solution ne va pas.

En effet sur le contour c.Borders.Value renvoie Null, tu peux tester avec :

MsgBox IsNull(ActiveCell.Borders.Value)

C'est pourquoi ma fonction passe en revue les 4 bordures (7 à 10) des cellules.

Fichier (2).

A+

 

[job75]

Re : Adresse de la dernière cellule d'un tableau

Re,

Ma solution ne fonctionnait pas si la 1ère cellule était par exemple A1.

Dans la fonction DER il ne faut pas utiliser IIf mais If...Then...Else :

If lig Then Set DER = c(0, 1) Else Set DER = c(1, 0)

Function DERCEL(premcel As Range, Optional r As Boolean)
'si le 2ème argument est VRAI, le Range est renvoyé
Application.Volatile
Set DERCEL = DER(DER(premcel, True), False)
If Not r Then DERCEL = DERCEL.Address(0, 0)
End Function

Function DER(c As Range, lig As Boolean) As Range
Dim test As Boolean, i As Byte
test = True
While test
  Set c = IIf(lig, c(2, 1), c(1, 2))
  For i = 7 To 10
    If c.Borders(i).LineStyle = xlNone Then _
      test = False: Exit For
  Next
Wend
If lig Then Set DER = c(0, 1) Else Set DER = c(1, 0)
End Function

Fichier (3).

A+

 

[Efgé]

Re : Adresse de la dernière cellule d'un tableau

Bonjour à tous , z'êtes nombreux au chevet de Magic
Si j'ai bien compris, et si le tableau s'appelle Zaza :

MsgBox [Zaza].Cells([Zaza].Rows.Count, [Zaza].Columns.Count).Address

devrait aller, bordures ou pas...
Cordialement