dérniere collone pleine

[akramenergie]

Bonjour le frums

a partire de la ligne de code suivante: k = Workbooks("Suivi_Obj 2009-2010.xls").Sheets("2010").Range("IV4").End(xlToLeft).Column j'arrive a récupérer la dérniere collone vide mais il m'afiche un chifre.
je voudrais qu'il m'affiche la lettre qui coréspond a ce chiffre si par exemple le chiffre est 6 qu'il m'affiche la lettre "F".

merci pour votre aide

 

[mth]

Re : dérniere collone pleine

Bonjour,

Peut-être en demandant l'adresse?

k = Workbooks("Suivi_Obj 2009-2010.xls").Sheets("2010").Range("IV4").End(xlToLeft).address

@ +

 

[akramenergie]

Re : dérniere collone pleine

Merci pour ta réponse mth.
le resulta afficher est $F$4 parcontre est ce que il y a un moyen de récuperer juste le F tout cours.

 

[mth]

Re : dérniere collone pleine

re 🙂

Je viens de retrouver un code de notre grand Hasco (à qui je fais une grosse bise) répondant à ta question:

k = Split(Workbooks("Suivi_Obj 2009-2010.xls").Sheets("2010").Range("IV4").End(xlToLeft).address, "$")(1)

@ +

mth

Edit: Grosse bise Robert 🙂
Bien contente de te croiser 🙂

 

[Robert]

Re : dérniere collone pleine

Bonjour le fil, bonjour le forum,

Essaie comme ça :

col = Split(Workbooks("Suivi_Obj 2009-2010.xls").Sheets("2010").Range("IV4").End(xlToLeft).Address, "$", -1)(1)

Édition :

Ooops j'ai pris un coup de sax... on s'est croisé Mth

 

[akramenergie]

Re : dérniere collone pleine

merci robet et mth pour votre réponsse.🙂
j'ai une dérniere question a ce sujet je veut remplacer la valeur 163 dans ma ligne de code suivante : r = Workbooks("Suivi_Obj 2009-2010.xls").Sheets("2010").Range("IV163").End(xlToLeft).Column + 1
par la variable "t", j'ai esséyer avec cela mais sa fonctione pas:
r = Workbooks("Suivi_Obj 2009-2010.xls").Sheets("2010").Range("IV" & t ).End(xlToLeft).Column + 1

merci de votre aide

 

[akramenergie]

Re : dérniere collone pleine

c'est bon merci le probléme est résolut juste oublier de mettre une parantése dans ma formule🙂