Nom de la colonne

M

michel

Guest

• 13 Juillet 2004

• #2

bonjour Robby

tu peux essayer

Sub LettresNumeroColonne()
Dim NumeroDeLaColonne As Integer
Dim Valeur As Integer, Z As Integer

NumeroDeLaColonne = ActiveCell.Column
If NumeroDeLaColonne <= 26 Then
MsgBox Chr(NumeroDeLaColonne + 64)
Else
Valeur = Application.RoundDown(NumeroDeLaColonne / 26, 0)
If Valeur = NumeroDeLaColonne / 26 Then Valeur = Valeur - 1
Z = (NumeroDeLaColonne - (26 * Valeur)) + 64
MsgBox Chr(Valeur + 64) & Chr(Z)
End If
End Sub


bonne soirée
MichelXld

 

Vote positif 0 Vote négatif

R

robby

Guest

• 13 Juillet 2004

• #3

Super ca marche bien.
Je parcours mon bouquin "Excel & VBA" pour comprendre la démarche de ce que tu me présente. En attendant c'est super.
Merci

 

Vote positif 0 Vote négatif

J

Jean-Marie

Guest

• 13 Juillet 2004

• #4

Bonjour

En utilisant la propriete .address d'Une cellule

MsgBox Mid(ActiveCell.Address, 2, IIf(Mid(ActiveCell.Address, 3, 1) = "$", 1, 2))

@+Jean-Marie

 

Vote positif 0 Vote négatif

R

robby

Guest

• 14 Juillet 2004

• #5

encore mieux !
MERCI.

 

Vote positif 0 Vote négatif

T

Ti

Guest

• 14 Juillet 2004

• #6

sur ce fil, d'autres réponses ont été apportées récemment à cette question.

<http://www.excel-downloads.com/html/French/forum/read.php?f=1&i=100808&t=100726>

 

Vote positif 0 Vote négatif