Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

letrre de la de colonne

6 réponses
Avatar
Michel (pen ar bed)
Bonjour,

De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à la
place du numéro la lettre correspondante (1 =A).

Je ne trouve pas dans l'aide

Merci
M.

6 réponses

Avatar
Misange
Bonjour,

De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à la
place du numéro la lettre correspondante (1 =A).
bonjour

Regarde ici
http://www.excelabo.net/excel/adresses.php#lettrecolonne
;-)
Misange

Avatar
Jean-François Aubert
Salut Michel,
adapté de av-Evaluate-v2.xls

Sub Lettre_Col()
laVar = ActiveSheet.UsedRange.Columns.Count
MsgBox Evaluate("left(address(1," & laVar & ",2),find(""$"",address(1," &
laVar & ",2))-1)")
End Sub


--
Amicalement

Jean-François Aubert
{Vaudois de la Côte Lémanique}


"Michel (pen ar bed)" a écrit dans le message de news:

Bonjour,

De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à la
place du numéro la lettre correspondante (1 =A).

Je ne trouve pas dans l'aide

Merci
M.




Avatar
MichDenis
Si tu veux avoir la dernière colonne occupée, tu devrais utiliser ceci au lieu
de la composante UsedRange

La fonction "Split" requiert la version excel 2000 ou plus récent.

'---------------------------------
Sub test()
Dim x As String
With Worksheets("Feuil1")
x = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Address(1, 1)
End With
MsgBox Split(x, "$")(1)
End Sub
'---------------------------------



"Michel (pen ar bed)" a écrit dans le message de news:

Bonjour,

De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à la
place du numéro la lettre correspondante (1 =A).

Je ne trouve pas dans l'aide

Merci
M.
Avatar
Michel (pen ar bed)
Jean-François Aubert a utilisé son clavier pour écrire :

Merci à vous deux c'est parfait
Avatar
JB
Bonjour,

Col(
ColLettre = Replace(Replace(Cells(1, col).Address, "$", ""), "1", "")

Chercher la lettre de la colonne est souvent un faux pb:

Il suffit d'utiliser Cells(ligne,colonne) pour référencer les
cellules.

JB

On 24 mar, 11:42, Michel (pen ar bed) wrote:
Bonjour,

De la même manière que
"DerniereColonne = ActiveSheet.UsedRange.Columns.Count"
renvoie le numéro de la dernière colonne est il possible d'avoir à l a
place du numéro la lettre correspondante (1 =A).

Je ne trouve pas dans l'aide

Merci
M.


Avatar
Michel (pen ar bed)
Il se trouve que JB a formulé :

Merci à Tous

M.