Récupérer la valeur d'une colonne avec VBA ? SVP
Résolu
Maxovitch
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
Maxovitch Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Maxovitch Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
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,... voici le code VBA de récupération:
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 !
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,... voici le code VBA de récupération:
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 !
