Discussion :

[bonilla]

Bonjour,

J'aimerai effectivement ,sans passer par 26 conditions (

Code :

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

1
2
3
4
5
6
7
8
 
if ActiveCell.column="A" Then
colonne= 1
ElseIf ActiveCell.column="B" Then
colonne=2
....
 
End if

N'y aurait-il pas un moyen plus simple pour mon probleme?

Merci!

[Plateforme3]

Bonjour
La commande ActiveCell.Column te renvoie une valeur numérique
Donc pas de problème normalement
Sinon, la commande Asc te permet de convertir, avec Asc("A")=65, Asc("B")=66, ...
Slts

[kiki29]

Et pour aller au delà
Les limites : A à FXSHRXW | 1 à 2147483647

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
20
21
 
Public Function Lettre2NumCol(ByVal Chaine As String) As Long 
Dim i As Long, ValeurCh As Long, v As Long 
Const ChaineAlpha As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
    For i = 1 To Len(Chaine) 
        ValeurCh = InStr(1, ChaineAlpha, Mid(UCase(Chaine), i, 1)) 
        v = v * 26 + ValeurCh 
    Next 
    Lettre2NumCol = v 
End Function 
 
Public Function NumCol2Lettre(ByVal NumCol As Long) As String 
Dim i As Long, x As Long, s As String 
    For i = 6 To 0 Step -1 
        x = (26 ^ (i + 1) - 1) / 25 - 1 
        If NumCol > x Then 
            s = s & Chr(((NumCol - x - 1) \ 26 ^ i) Mod 26 + 65) 
        End If 
    Next i 
    NumCol2Lettre = s 
End Function

[lucfrfr]

Je suis d'accord avec Plateforme3,
Tu devrais tout bêtement faire

Code :

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

colonne=activecell.columns

[jfontaine]

En effet la solution de Plateforme3 est adapté à ton besoin

Je reviens juste sur l'utilisation des If imbriqués. utilises plutot le select Case

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Select case ActiveCell.column
      case "A"
         colonne= 1
      case "B"
         colonne=2
 
...
 
End select

L'exemple n'est pas terrible vu que ActiveCell.column renvoi deja le numero de colonne

[ouskel'n'or]

Code :

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

1
2
Lettre = "Z"
MsgBox Range(Lettre & 1).Column

Ai pas + simple