Traduction Excel / VBA inopérante

Citation:

---

Envoyé par Henri1830

... et j'ai trouvé encore autre chose de pas mal non plus :

Code:

---

MsgBox Cells.SpecialCells(xlCellTypeLastCell).Row ' donne le n° de la dernière ligne occupée de la colonne la plus longue

---

---

Attention à cette syntaxe qui renvoie la dernière ligne dont contenu et mise en forme ne sont pas vierges.
Sont pris en compte, entre autres, les formules (mêmes renvoyant du vide) et les bordures (parfois, même après suppression).

Ok, Alain, merci pour le renseignement.

Je viens de tester, tu as raison.
Mon tableau faisait plus de 100.000 lignes. J'ai effacé une série de données qui ne m'intéressaient pas.
Après coup, il me reste 35.000 lignes, cette fonction continue à me renseigner plus de 100.000 lignes.
Donc, on revient à :

Code:

---

1 2	Range("A1048576").End(xlUp).Select nDernLigneANT = ActiveCell.Row

---

ce qui permet ce genre de formule:

Code:

---

1 2	ActiveSheet.Range(Cells(2, 1), Cells(nDernLigneANT, 1)).Formula = "=D2&F2"

---

Dommage...