Discussion :

[illight]

Bonjour,

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

R : Cette fonction le permet :

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
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.

[AlainTech]

Hum, hum...

Que penses-tu de ceci?

Code :

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

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

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

[RLX]

Salut,

oui ça marche même parfaitement comme ça

Code :

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

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

[ThierryAIM]

et ça :

Code :

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

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 :

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

Dim reste As Long, quotient As Long

[AlainTech]

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

Code :

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

  MsgBox Val(Mid(Columns("AF").Address(ReferenceStyle:=xlR1C1), 2))

[ouskel'n'or]

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

Code :

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

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

Juste pour les ceusses qui refusent le changement

[SfJ5Rpw8]

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

[AlainTech]

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

+ 1

[Pierre Fauconnier]

Puisque le post est remonté...

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

A créer facilement en VBA une formule à placer dans une cellule sans devoir se farcir un formulaR1C1, entre autres, ...