Discussion :

[bendesarts]

Bonjour,

Est-ce que vous sauriez s'il n'existe pas une fonction permettant de transformer un numéro codé en lettres en chiffre.

Voici ce que j'aimerais que ma fonction me fasse :

FONCTION_SOUHAITE(B)=2
FONCTION_SOUHAITE(E)=5
FONCTION_SOUHAITE(AA)=27
...

J'ai vu qu'il existe des macros pour celà. Mais depuis que Excel existe, j'imagine qu'il doit y avoir une fonction toute faite pour faire cette manip.

Merci pour votre aide et vos idées.

[kiki29]

Salut, une parmi une kyrielle, à utiliser sous forme de fonction personnalisée.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Option Explicit
 
Function Lettre2NumCol(sChaine As String) As Long
Dim i As Long, ValeurCh As Long, v As Long
Const sChaineAlpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
    For i = 1 To Len(sChaine)
        ValeurCh = InStr(1, sChaineAlpha, Mid$(UCase$(sChaine), i, 1))
        v = v * 26 + ValeurCh
    Next i
    Lettre2NumCol = v
End Function
 
Sub Tst()
    MsgBox Lettre2NumCol("a")
    MsgBox Lettre2NumCol("xFd")
 
    Feuil1.Range("A1") = "AzertY"
    MsgBox Lettre2NumCol(Feuil1.Range("A1"))
End Sub

Ce qui pour XFD donne 16384 et pour FXSHRXW : 2147483647.

[78chris]

Bonjour

Sauf erreur je comprends que tu veux la correspondance des colonnes Excel : COLONNE(B1) ou COLONNE(B:B)

[Menhir]

Autre proposition de fonction :

Code :

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

1
2
3
Function Lettre2NumCol(sChaine As String) As Long
   Lettre2NumCol=Range(sChaine&"1").Column
End Function