Discussion :

[mouaa]

Bonjour, voilà mon problème:

j'ai un formulaire sur Access qui permet de faire des importations de fichiers Excel.
Pour cela, je demande à l'utilisateur quelles lignes et colonnes du fichier excel doivent être importées.

le souci, c'est que je ne peux pas demander à l'utilisateur le n° de colonne, mais la lettre...

or, pour faire l'importation, j'ai besoin d'avoir le n° de la colonne.

existe-t-il des fonctions intégrées qui permettent, à partir d'une lettre, de retrouver le n° lui correspondant ?

[Jean-Philippe André]

bonjour, exemple de fonction :

Code :

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

1
2
3
Function RetourColonneEnChiffre(input as string) as integer
RetourColonneEnChiffre = Asc(LCase(input))-96
End Function

[mouaa]

Merci chef !

[Invité]

Bonjour

bonjour, exemple de fonction :

Code :

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

1
2
3
Function RetourColonneEnChiffre(input as string) as integer
RetourColonneEnChiffre = Asc(LCase(input))-96
End Function

Ne fonctionne plus à partir de la colonne AA

Starec

[Jean-Philippe André]

arg, tu m'as tuer

[mouaa]

j'ai vu qu'à partir de la colonne AA il revient à 1, mais dans mon cas, ça n'est pas grave.

[Jean-Philippe André]

oki, mais pour être complet, on va quand même faire une fonction "générique" :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function RetourColonneEnChiffre(strInput As String) As Integer
Dim i As Integer
RetourColonneEnChiffre = 0
RetourColonneEnChiffre = IIf(Len(strInput) > 1, 26 * (Asc(LCase(Mid(strInput, 1, 1))) - 96), Asc(LCase(Mid(strInput, 1, 1))) - 96)
For i = 2 To Len(strInput)
    RetourColonneEnChiffre = RetourColonneEnChiffre + Asc(LCase(Mid(strInput, i, 1))) - 96
Next i
    'RetourColonneEnChiffre = 26 * (Len(strInput) - 1) + RetourColonneEnChiffre
End Function
 
Sub test()
MsgBox RetourColonneEnChiffre("E")
MsgBox RetourColonneEnChiffre("IV")
End Sub