Transformer un .column en lettre pour utiliser dans un range ?

[Crepy]

Salut all,

J'ai ce code :

Dim Saut2 As integer
Saut1 = Feuil1.Range("C12").End(xlToRight).Column

Cette fonction me retourne bien la bonne valeur (7), ce qui correspond bien à la fin de ma ligne en colonne G (7eme lettre de l'alphabet).

mais comment convertir ce 7 en lettre pour que je puisse l'utiliser dans un graph sous la forme :

.SeriesCollection.xlValues = Sheets("AGE-NF").Range("c12:" & Saut1 & "12")

Merci d'avance

Creepy

 

[vincent]

Bonsoir

Utilise la fonction chr(nbre) sachant que A est égale à chr(65).

Bonne soirée

Vincent

 

[Jean-Marie]

Bonjour

L'utilisation du chr() est possible dans le cas ou la colonne est située à gauche de la colonne AA.
Une routine pour décomposer la valeur, je ne saurais faire, alors une solution

Dim Saut1 As Byte
Saut1 = Feuil1.Range("C12").End(xlToRight).Column-1
.SeriesCollection.xlValues = Sheets("AGE-NF").Range("c12", Range("A2").offset(0,Saut1-1).address)

j'espère ne pas dire trop de conneries, je débute en VBA.

Bonne journée

@+Jean-Marie

 

[Jean-Marie]

Re...

Oups!

Dim Saut1 As Byte
Saut1 = Feuil1.Range("C12").End(xlToRight).Column-1
.SeriesCollection.xlValues = Sheets("AGE-NF").Range("c12", Range("A2").offset(0,Saut1).address)

le -1 dans la dernière ligne est de trop

@+Jean-Marie