Discussion :

[MamaB]

Bonjour,

J’ai une feuille « Marge », avec X colonnes exemple « Tx1, Tx2 etc. »
Dans une variable, j’ai le nom d’une colonne qui peut changer à tout moment.

Je voudrais savoir comment en VBA, on peut récupérer la lettre de la colonne en fonction de ma variable ?

Bien cordialement.

MamaB

[BENNASR]

bonjour
pas claire du tout au moins pour moi
à reformuler ta demande et si nécessaire un capture écran des données de départ et un capture écran du résultat souhaité
entre temps si vous aurez une réponse je n'ai que te souhaite la bonne journée

[MamaB]

Je m’explique, j’ai une feuille qui s’appelle « Marge », cette feuille contient X colonne, chaque colonne porte un nom :
Exemple Colonne A contient en ligne 1 le nom TX1
Colonne B contient en ligne 1 le nom TX2
Etc.,

Je voudrais mettre en place une macro qui en fonction du nom de la colonne en ligne 1(via une variable), me ramène la lettre de la colonne concernée pour d’autres traitement.

[BENNASR]

Bonjour
Si les titres de colonnes en ligne 1 pour récupérer le nom des colonnes :

Code :

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

1
2
3
4
5
6
7
8
9
Sub récupNomCol()
 
Dim dercol As Long
dercol = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
For i = 1 To dercol
A = Cells(1, i)
MsgBox A
Next i
End Sub

[Menhir]

Je voudrais mettre en place une macro qui en fonction du nom de la colonne en ligne 1(via une variable), me ramène la lettre de la colonne concernée pour d’autres traitement.

Es-tu sûr que pour ces "autres traitements", le NUMERO de colonne ne suffirait pas ? Je demande ça parce qu'alors le problème serait beaucoup plus simple.

Si tu persistes, tu peux essayer ça :
En supposant que MaCellule est une variable de type Range :

Code :

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

MaLettre = Split(MaCellule.Address, "$")(1)

[Philippe Tulliez]

Bonjour,
Je suis du même avis que Menhir. Le numéro de la colonne devrait être suffisant.
Voici une fonction qui renvoie le numéro de l'étiquette de colonne. La gestion des erreurs n'est pas incluse (Si l'étiquette n'est pas présente)

Code :

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

1
2
3
4
5
Function LabelColumnNumber(LabelName As String, rngSource As Range) As Integer
  Dim fx As WorksheetFunction
  Set fx = Application.WorksheetFunction
  LabelColumnNumber = fx.Match(LabelName, rngSource.Rows(1), 0)
End Function

Exemple d'utilisation shtData est le CodeName de la feuille où se trouve la table nommée tblProject

Code :

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

1
2
3
4
5
Sub TestLabelColumnNumber()
  Dim rng As Range
  Set rng = shtData.ListObjects("tblProject").Range
  MsgBox "Numéro de la colonne = " & LabelColumnNumber("Projet", rng)
End Sub

[RyuAutodidacte]

Bonjour à tous,

Dans le cas où tu veux absolument la lettre voilà une autre méthode :

Code :

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

1
2
3
4
5
6
7
8
9
Sub LettreColonne()
Dim MaVarCol As String, AdrCol As Range, Col As String
    MaVarCol = "TX1" ' à tester : "TXT1"
    Set AdrCol = Sheets("Marge").Range("A1:M1").Find(What:=MaVarCol, LookIn:=XlValues, LookAt:=XlWhole)
    If Not AdrCol Is Nothing Then Col = Split(AdrCol.Address, "$")(1) _
            Else MsgBox "Valeur de la variable MaVarCol (Nom : " & MaVarCol & ")  non valide": Exit Sub
    MsgBox Col
    Set AdrCol = Nothing
End Sub

[patricktoulon]

re

Bonjour,

J’ai une feuille « Marge », avec X colonnes exemple « Tx1, Tx2 etc. »
Dans une variable, j’ai le nom d’une colonne qui peut changer à tout moment.

Je voudrais savoir comment en VBA, on peut récupérer la lettre de la colonne en fonction de ma variable ?

Bien cordialement.

MamaB

perso j'ai rien pigé a la demande

1. on est sur quoi un tableau structuré ou un range
2. on parle de quoi de la ligne 1 ou des entetes colonne d'un sheets
3. tu veux quoi les lettres de la ligne 1 ou celle des entetes colonne du sheets

la facon dont tu a fait ta demande est ambigues sur ces points et se sont ces memes points qui vont determiner la marche a suivre

[RyuAutodidacte]

bonsoir,

Afin que cela soit prolifique pour tout le monde il serait bien d'expliquer les -1.
Et si une solution est plus appropriée, merci de nous la faire partager

Merci

[Menhir]

Afin que cela soit prolifique pour tout le monde il serait bien d'expliquer les -1.

Sans trop m'avancer, je dirais qu'à mon avis, le demandeur n'a pas bien compris la finalité de ces votes.

Pour info (et pour que ce soit profitable à d'autres), on n'appuie pas sur pour une solution non retenue mais pour une intervention ayant eu un effet négatif sur le sujet ou pour montrer une forte désapprobation.

Comme ce n'est pas le cas des interventions qui ont été fustigées ici et qu'il serait dommage que des réels efforts soient pénalisés, je plusois pour compenser.

[Theze]

Bonjour,

Une piste avec recherche de la variable dans la ligne 1 et si trouvée, retour du numéro de colonne et de la ou des lettres de cette dernière :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim MaVar As String
 
    MaVar = "Tx8"
 
    With ActiveSheet: Set Plage = .Range(.Cells(1, 1), .Cells(1, .Columns.Count).End(xlToLeft)): End With
 
    Set Cel = Plage.Find(MaVar, , xlValues, xlWhole)
 
    If Not Cel Is Nothing Then
 
        MsgBox "Numéro de colonne : " & Cel.Column _
               & vbCrLf & _
               "Lettre(s) de la colonne : " & Split(Cel.Address, "$")(1)
 
    End If
 
End Sub