Récupérer la valeur d'une colonne avec VBA

Bonjour,

Pièce jointe 403565

Au-lieu de récupérer la colonne des alphabets je voudrais celle où il y a le nom des magasins (ligne en bleu) par exemple au-lieu d'avoir P,... je voudrais avoir PAVILLON SERVICES,... dans la colonne concurrents voici le code VBA de récupération:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Function SelectedColumns(R As Range) As String Dim i As Long, n As Long, count As Long Dim cols As Variant   n = R.Columns.count ReDim cols(1 To n) For i = 1 To n If R.Cells(1, i).Value <> "" Then count = count + 1 cols(count) = Split(R.Cells(1, i).Address, "$")(1) End If Next i If count > 0 Then ReDim Preserve cols(1 To count) SelectedColumns = Join(cols, ",") End If End Function

---

Merci !

Salut

Non testé

Code:

---

1 2 3 4 5 6 7 8 9

Function NameColumns(R As Range) As String   For i = 1 To R.Columns.count If R.Value <> "" Then If NameColumns <> "" Then NameColumns = NameColumns & ", " NameColumns = NameColumns & R.Cells(1, i).Value End If Next i End Function

---

++
Qwaz