XL 2010 Une fonction qui n'apprécie pas les boucles

[Magic_Doctor]

Bonsoir,

Une fonction me permet d'obtenir l'adresse de la dernière cellule d'un tableau, que celle-ci soit vide ou pas.
La fonction marche bien quand elle est utilisée isolément : elle renvoie, comme souhaité, le nom de la colonne et le numéro de ligne (par ex. "P54").
Quand j'utilise cette même fonction dans une boucle, curieusement elle ne me renvoie que le numéro de ligne.
Comment forcer la fonction à bien renvoyer ce que l'on attend quand elle est traitée dans une boucle ?
Sur la PJ, c'est nettement plus explicite.

 

[Magic_Doctor]

J'ai réglé le problème intuitivement, mais j'avoue ne pas l'avoir tout à fait compris...
En d'autres terme : ça plante, je vois où, logiquement je modifie un truc, mais sans trop savoir pourquoi ça plantait.

D'abord, je me suis dit que c'était peut-être la fonction. J'en rédige une autre à la brut de décoffrage :

Function LastCelAddressTable$(tableau As Range)
'*************************************************************************************
'Renvoie l'adresse de la dernière cellule d'un tableau que celle-ci soit vide ou pas.
'Magic_Doctor
'*************************************************************************************
'- tableau : un tableau d'une ou plusieurs colonnes

    Dim posFirstCol%, posFirstRow%, nbCol As Byte, lastCol As Range, nbRow%, nameCol$

    posFirstCol = tableau.Column
    posFirstRow = tableau.Row
    nbCol = tableau.Columns.Count
    nbRow = tableau.Rows.Count
    Set lastCol = tableau.Columns(nbCol)
    nameCol = NomCol(posFirstCol + nbCol - 1)
  
    LastCelAddressTable = nameCol & nbRow + posFirstRow - 1
End Function

Ma foi, elle marche. Je la substitue à la prédédente. Ça plante toujours !
Voici la modification que j'ai faite :

    For i = 1 To 3
        adresseLastCel(i) = CStr(DERCEL(Evaluate("ListeItems" & i)))
        col(i) = NomCol(Evaluate("ListeItems" & i).Column)
        lgn(i) = ExtractNumber(adresseLastCel(i)) 'si mis en REM ça marche (en M3 : colonne & ligne, sinon uniquement la ligne...)
        adresseFirstCel(i) = col(i) & lgn(i)
    Next

    For i = 1 To 3
        adresseLastCel(i) = CStr(DERCEL(Evaluate("ListeItems" & i)))
        col(i) = NomCol(Evaluate("ListeItems" & i).Column)
        lgn(i) = ExtractNumber(adresseLastCel(i)) 'si mis en REM ça marche (en M3 : colonne & ligne, sinon uniquement la ligne...)
        adresseLastCel(i) = CStr(DERCEL(Evaluate("ListeItems" & i)))
        adresseFirstCel(i) = col(i) & lgn(i)
    Next

Bon, l'essentiel c'est que ça marche.

 

[patricktoulon]

Bonjour @Magic_Doctor
je n'ai pas très bien pigé ce que tu cherche a faire avec ta fonction ??

 

[job75]

Bonjour Magic_Doctor,

Tu utilises un code inutilement compliqué pour ce que tu veux faire, prends celui-ci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [L3]) Is Nothing Then Exit Sub
Dim c As Range, P As Range
Set c = Cells.Find("?*" & CStr([L3]), , xlValues, xlWhole)
If c Is Nothing Or CStr([L3]) = "" Then [M3] = "": Exit Sub
Set P = c.MergeArea
Do
    Set c = c(2)
Loop While c.Borders(1).LineStyle <> xlNone
[M3] = Range(P, c(0)).Address(0, 0)
End Sub

Salut patricktoulon.

A+

 

[patricktoulon]

re
Bonjour @job75
je me demande bien dans quel contexte on peut avoir besoins d'une telle fonction

 

[job75]

Comme Magic_Doctor aime bien les fonctions :

Function Adresse_tableau(ref As Range) As String
Dim c As Range, P As Range
Set c = ref.Parent.Cells.Find("?*" & CStr(ref), , xlValues, xlWhole)
If c Is Nothing Or CStr(ref) = "" Then Adresse_tableau = "": Exit Function
Set P = c.MergeArea
Do
    Set c = c(2)
Loop While c.Borders(1).LineStyle <> xlNone
Adresse_tableau = ref.Parent.Range(P, c(0)).Address(0, 0)
End Function

 

[Magic_Doctor]

Bonjour job,

Merci pour cette fonction qui pourra m'être utile.
En fait, ce que je veux récupérer, ce sont les coordonnées de la dernière ligne de chaque tableau.

 

[job75]

Bonsoir Magic_Doctor,

En fait, ce que je veux récupérer, ce sont les coordonnées de la dernière ligne de chaque tableau.

Tu sais forcément adapter la fonction du post #6 :

Adresse_tableau = c(0).Address(0, 0)

ou :

Adresse_tableau = c(0).Row

A+