Discussion :

[RéviAT]

Bonjour à chacun,
Voici une question sûrement basique pour beaucoup.
Dans un programme VBA sous Excel, j’ai besoin d’avoir la lettre code de la colonne sélectionnée pour faire un tri. Or je connais la propriété Column qui me permet d’avoir le numéro de la colonne (par exemple : noCol = ActiveCell.Column), mais je ne sais pas trouver la lettre code (par exemple A pour la colonne 1, E pour la colonne 5, AA pour la colonne 27, …) pour la mettre dans la variable « Colonne » de type String.
Voici le tri que je voudrais faire sur la colonne d’une cellule sélectionnée par Range :

Range(Colonne & iDébut & ":" & Colonne & iFin).Select
Selection.Sort Key1:=Range(Colonne & iDébut), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom

Merci par avance.
RéviAT

[Gorfael]

Salut RéviAT et le forum
Au moins un qui a compris qu'en expliquant le but, les solutions arrivaient plus vite

Ta solution n'est pas une codification numéro de colonne/lettres, mais un changement de syntaxe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range(Colonne & iDébut & ":" & Colonne & iFin).Select
Selection.Sort Key1:=Range(Colonne & iDébut), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range(Cells(iDébut,Colonne), cells(iFin,Colonne)).Sort Key1:=Cells(iDébut,Colonne), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=True, Orientation:=xlTopToBottom

Em passant, j'ai supprimé le select, par contre j'ai pas testé

La syntaxe est différente, mais elles pointent toutes la même plage A1:A10 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Range("A1:A10")
[A1:A10]
range(Range("A1"), Range("A10"))
range([A1], [A10])
range(Cells(1,"A"), Cells(10,"A"))
range(Cells(1,1), Cells(10,1))

A+

[RéviAT]

Merci Gorfael. J’apprécie l’amélioration de la syntaxe, mais je ne m’étais pas bien expliquer.
J’arrive bien à faire le tri, mais par contre je n’arrive à remplir le code de la colonne dans la variable « Colonne ».
Je ne sais pas passer du code d’une colonne à code de la colonne. Je trouve le numéro de la colonne en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

« noCol = ActiveCell.Column »

mais ensuite je ne sais pas trouver sa lettre/code.
Est-ce j’arrive mieux à poser mon problème ?
Merci.
RéviAT

[RéviAT]

En exploitant bien la réponse de Gorfael, j'ai résulu ma difficulté.
Merci et à bientôt.
RéviAT.

[Gorfael]

Salut RéviAT

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim Nom_Col As String
'traitement avant
Nom_Col = IIf(Len(Cells(1, ActiveCell.Column).Address(0, 0)) = 2, _
            Left(Cells(1, ActiveCell.Column).Address(0, 0), 1), _
            Left(Cells(1, ActiveCell.Column).Address(0, 0), 2))

Mais, à part pour l'afficher, pour le traitement, le numéro de colonne suffit
A+
EDIT : trop lent pour te répondre