[VBA-E]Connaitre la lettre de la colonne en fonction du numero

Version imprimable

Bonjour,

Q : COmment retrouver l'intitulé alphabétique d'une colonne en fonction de son numéro ?

R : Cette fonction le permet :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Function LettreColonne(NumCol As Long) As String
Dim reste, quotient As Long
quotient = Int(NumCol / 26)
reste = NumCol Mod 26
If quotient = 0 And reste = 0 Then
    Exit Function
End If
If quotient = 0 Then
    LettreColonne = Chr(64 + reste)
Else
    If reste = 0 Then
        quotient = quotient - 1
        If quotient = 0 Then
            LettreColonne = Chr(64 + 26)
        Else
            LettreColonne = Chr(64 + quotient) & Chr(64 + 26)
        End If
    Else
        LettreColonne = Chr(64 + quotient) & Chr(64 + reste)
    End If
End If
End Function

Cordialement. :)

23/10/2006, 15h54
AlainTech

Hum, hum...

Que penses-tu de ceci?

Code:

MsgBox Split(Columns(32).Address(ColumnAbsolute:=False), ":")(1)

Me semble légèrement plus court et plus simple...

Salut,

oui ça marche même parfaitement comme ça

Code:

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
MsgBox Split(Columns(Target.Column).Address(ColumnAbsolute:=False), ":")(1)
End Sub

23/10/2006, 16h06
ThierryAIM

et ça :

Code:

Dim reste, quotient As Long

VBA, c'est pas du Pascal ou du Delphi !!!
On type TOUTES les variables explicitement, sinon, c'est un variant !!

Code:

Dim reste As Long, quotient As Long
23/10/2006, 16h43
AlainTech

Et, tant qu'on y est, la fonction inverse:

Code:

MsgBox Val(Mid(Columns("AF").Address(ReferenceStyle:=xlR1C1), 2))
24/10/2006, 10h49
ouskel'n'or

Et sous VBA97 qui n'a pas split, on fait comment ?

Code:

MsgBox left(Columns(32).Address, instr(Columns(32).Address, ":") - 1)

Juste pour les ceusses qui refusent le changement ;)
24/10/2006, 18h50
SfJ5Rpw8

eu .... si on reviens au début à quoi cela sert de connaitre " l'intitulé alphabétique d'une colonne" ..??:aie:
25/10/2006, 05h41
AlainTech

Citation:

Envoyé par bbil

à quoi cela sert de connaitre " l'intitulé alphabétique d'une colonne" ..??

+ 1
26/10/2006, 10h25
Jaggana

Super merci :)
07/01/2008, 10h10
DjSkeud

Merki

Ah ah, que de réponses pour ce poste, on peut dire que les modérateurs ne choment pas ici ;)
Merci pour les bouts de codes, juste ce que je recherchai.

DjSkeud.
07/01/2008, 12h31
Pierre Fauconnier

Puisque le post est remonté...

Citation:

Envoyé par bbil

eu .... si on reviens au début à quoi cela sert de connaitre " l'intitulé alphabétique d'une colonne" ..??:aie:

A créer facilement en VBA une formule à placer dans une cellule sans devoir se farcir un formulaR1C1, entre autres, ... ;)
07/01/2008, 12h32
Eric93

Bonjour,

En lisant ce post je me pose la même question que bbil, ca sert à quoi ?