Discussion :

[celiaaa]

Bonjour à tous,

je souhaite générer un graphique excel à partir d'une requête contenant un nb de colonne qui n'est pas fixe.Pour cela, je pense qu'il faudrait faire correspondre le nombre de colonne d'une requête avec la lettre de l'alphabet.

par ex avec un tableau tab(0)="A"
...
tab(100)="AZ"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlApp.ActiveChart.SetSourceData Source:=xlApp.Sheets(xlSheet.name).Range("A4:"& tab(i) &"6"), PlotBy:= _

N'y aurait-il pas une façon plus simple d'obtenir la lettre de la colonne excel à partir du nombre de colonne renvoyé par une requête?


Merci

[otgudr]

J'ai réalisé une fonction qui fait exactement cela... Ce n'est pas de la programmation de haut vol, mais... ça marche !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
' Cette fonction renvoie le nom (lettre) de la colonne dont on passe le num
Private Function NomColonne(Num As Byte) As String
' rem : le résultat est sur 2 "digits" au plus
Dim Resultat As String
If Num > 26 Then
    Resultat = Chr(Asc("A") + Int(Num / 26) - 1)
    Resultat = Resultat & Chr(Asc("A") + Num Mod 26 - 1)
Else
    Resultat = Chr(Asc("A") + Num - 1)
End If
NomColonne = Resultat
End Function

Elle fonctionne avec version <= 2003 c'est à dire avec un excel qui a 256 colonnes... Avec la version 2007, il faut l'adapter et généraliser cela... Boucle, tant que le reste de la division par 26 est non nul...

[Asheke]

Mieux vaut tard que jamais :

NomColonne(52) = B@ au lieu de AZ

Le bon code est celui-ci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Function NomColonne(Num As Integer) As String
    ' rem : le résultat est sur 2 "digits" au plus
    Dim Resultat As String
    If Num > 26 Then
        Resultat = Chr(Asc("A") + Int((Num - 1) / 26) - 1)
        Resultat = Resultat & Chr(Asc("A") + (Num - 1) Mod 26)
    Else
        Resultat = Chr(Asc("A") + Num - 1)
    End If
    NomColonne = Resultat
End Function