Référence à une colonne par sa lettre

[Unusual]

Dans une macro, comment fait-on référence à une colonne par son texte (sa lettre en général)...ou y a-t-il une conversion du nom de colonne en sa valeur indicée ?

Ex : référence à une colonne "K" (sauf qu'on ne sait pas la valeur à l'avance)

worksheets("toto").cells(1, ValeurColonne("K")).Value = ...

 

[pierrejean]

Re : Référence à une colonne par sa lettre

bonjour unusual

voici une fonction qui determine le numero de la colonne a partir de son appelation litterale

Function numcol(lettre As String)
lettre = UCase(lettre)
If Len(lettre) = 1 Then
numcol = Asc(lettre) - 64
Else
numcol = (Asc(Left(lettre, 1)) - 64) * 26 + Asc(Right(lettre, 1)) - 64
End If
End Function

ensuite le numero de colonne s'ecrit
numcol(salettre)
salettre etant le string contenant la lettre

 

[ziopizza]

Re : Référence à une colonne par sa lettre

Bonjour Unusual,pierrejean,

Ou comme ça,si j'ai compris.

Lettre = Chr(64 + ActiveCell.Column)

salut Yves

 

[Hervé]

Re : Référence à une colonne par sa lettre

bonjour tout le monde

attention, yves, ton code ne fonctionne que pour les 26 premieres colonnes.

sinon, on peut faire comme ceci :

lettre = Split(ActiveCell.Address, "$")(1)

salut

 

[pierrejean]

Re : Référence à une colonne par sa lettre

re

Si hervé ne m'avait pas magistralement court-circuité , j'aurais proposé la fonction suivante:

Function lettrecol(num As Integer)
Dim x as Integer
If num < 27 Then
lettrecol = Chr(num + 64)
Else
x = num Mod 26
lettrecol = Chr(Int(num / 26) + 64) & Chr(x + 64)
End If
End Function

 

[Hervé]

Re : Référence à une colonne par sa lettre

re

une autre syntaxe compatible excel 97 :

lettre = Left(ActiveCell.Address(0, 0), (ActiveCell.Column < 27) + 2)

salut

 

[ziopizza]

Re : Référence à une colonne par sa lettre

Merci Pierrejean,Hervé,

Oups effectivement j'aurais dû un peu plus creuser le problème.

Bonne journée.
Yves

 

[Unusual]

[RESOLU] Référence à une colonne par sa lettre

Merci à tous pour vos réponses.

 

[pierrejean]

Re : Référence à une colonne par sa lettre

Merci a Hervé pour m'avoir fait decouvrir la formulation:
ActiveCell.Address(0,0) qui élimine ces $ si ch...agrinants