Récupérer les lettres des colonnes en vb

thierry · 29 Août 2005

Bonjour,

Dans du code vb, je souhaiterais récupérer simplement les lettres identifiant la colonne d'une cellule. Exemple A,B,AE etc.

Existe-t-il une fonction vb pour faire cela simplement ? Sinon pourrais-je avoir un bout de code pour le faire ?

De plus, comment récupérer simplement la dernière cellule ayant quelque chose dedans sans parcourir l'ensemble des 65000 lignes et 256 colonnes ?

Merci à tous

Thierry

2passage · 29 Août 2005

Bonjour,

Voici un bout de code pour récupérer les lettres de colonne

Code:

For i = 2 To Len(Selection.Address)
    If Mid(Selection.Address, i, 1) = '$' Then
        colonne = Mid(Selection.Address, 2, i - 2)
        MsgBox colonne
    End If
Next i

mais est-ce vraiment utile ? si c'est pour de la cosmétique, la propriété .address convient, je pense. Sinon, .row et .column permettent de sélectionner (cells(row,column))

sinon pour 'aller au bout' de la zone utilisée :

range('A65536').end(xlup) pour faire référence a la dernière ligne utilisée
range('A65536').end(xlup).offset(1,0) pour faire référence a la première ligne vide
range('IV1').end(xltoleft) pour faire référence a la dernière colonne utilisée (.offset(0,1) pour la première vide)

A+

_Thierry · 29 Août 2005

Bonjour Thierry, 2Passage

A l'époque on a déjà eu ce genres de question par exemple ici : Lien supprimé

Voici une autre approche :

Sub TheLetterOfTheColumn()
Dim Cell As Range
Dim ColLetter As String
Dim LigNumber As Long
Dim ColNumber As Integer

ColNumber = Cells(1, 256).End(xlToLeft).Column
LigNumber = Cells(65536, ColNumber).End(xlUp).Row

Set Cell = Cells(LigNumber, ColNumber)

ColLetter = Left(Cell.Address(False, False), (Cell.Column < 27) + 2)

MsgBox 'La Dernière Cellule de ce tableau est ' & ColLetter & LigNumber, , 'La Colonne est ' & ColLetter

'Ou encore
MsgBox 'La Dernière Cellule de ce tableau est ' & Cell.Address(0, 0)

End Sub

Bon Appétit
[ol]@+Thierry[/ol]

Récupérer les lettres des colonnes en vb

thierry

Guest

2passage

XLDnaute Impliqué

_Thierry

XLDnaute Barbatruc

Discussions similaires