Insertion texte fin tableau

[DJARNAUD]

Bonjour,

je cherhce une macro qui me permettrait d'insérer un texte à la fin d'un tableau excel. J'arrive à insérer des ligne et du texte via une macro, mais je ne sais pas comment préciser la fin du tableau. En effet, ce n'est jamais une ligne fixe car je télécharge un fichier quotidiennement.

D'avance merci

arnaud

 

[MJ13]

Re : Insertion texte fin tableau

Bonjour DJarnaud

ActiveCell.SpecialCells(xlLastCell).Select

L'enregistreur de macros donne ce code. Donc tu pourrais écrire:

AdrDerC=[A1].SpecialCells(xlLastCell).address

 

[DJARNAUD]

Re : Insertion texte fin tableau

Bonjour Michel,

Merci pour votre aide, cependant je viens d'essayer les deux code,
Le premier me renvoit en M1008 et le seconde n'a aucun effet.

Merci d'avance

Arnaud

 

[MJ13]

Re : Insertion texte fin tableau

Re

Ok, mais si tu rajoutes au second code

msgbox AdrDerC

, que se passe t'il?

 

[camarchepas]

Re : Insertion texte fin tableau

Bonjour Michel, Arnaud ,

Autre solution,
alors , il faut ce baser sur une colonne toujours pleine
On supporesra que c'est la colonne B
donc
LigneFin = range("B" & rows.count).end(xlup).row +1

ensuite

range("A" & lignefin) = import .

Bon sans fichier exemple , je ne peux préciser import qui est soit un tableau soit une zone , une cellule , autre chose ....

 

[DJARNAUD]

Re : Insertion texte fin tableau

Une msgbox apparait en affichant $M$2016
:s

 

[DJARNAUD]

Re : Insertion texte fin tableau

merci Nono! ça fonctionne trés bien!!