Insertion texte fin tableau

MJ13

XLDnaute Barbatruc

• 10 Novembre 2014

• #2

Re : Insertion texte fin tableau

Bonjour DJarnaud

Code:

ActiveCell.SpecialCells(xlLastCell).Select

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

Code:

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

 

Vote positif 0 Vote négatif

D

DJARNAUD

XLDnaute Occasionnel

• 10 Novembre 2014

• #3

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 10 Novembre 2014

• #4

Re : Insertion texte fin tableau

Re

Ok, mais si tu rajoutes au second code

Code:

msgbox AdrDerC

, que se passe t'il?

 

Vote positif 0 Vote négatif

camarchepas

XLDnaute Barbatruc

• 10 Novembre 2014

• #5

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 ....

 

Vote positif 0 Vote négatif

D

DJARNAUD

XLDnaute Occasionnel

• 10 Novembre 2014

• #6

Re : Insertion texte fin tableau

Une msgbox apparait en affichant $M$2016
:s

 

Vote positif 0 Vote négatif

D

DJARNAUD

XLDnaute Occasionnel

• 10 Novembre 2014

• #7

Re : Insertion texte fin tableau

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

 

Vote positif 0 Vote négatif