Discussion :

[Cyrano2022]

Bonjour,



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 :

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
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 !

[Qwazerty]

Salut

Non testé

Code :

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

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