letrre de la de colonne

Le
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.
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Misange
Le #5330731
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

Jean-François Aubert
Le #5330721
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)"
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.




MichDenis
Le #5330691
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)"
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.
Michel (pen ar bed)
Le #5330681
Jean-François Aubert a utilisé son clavier pour écrire :

Merci à vous deux c'est parfait
JB
Le #5330671
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)
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.


Michel (pen ar bed)
Le #5330631
Il se trouve que JB a formulé :

Merci à Tous

M.
Publicité
Poster une réponse
Anonyme