Récupérer la valeur d'une colonne avec VBA ? SVP [Résolu/Fermé]

Signaler
Messages postés
2
Date d'inscription
lundi 13 août 2018
Statut
Membre
Dernière intervention
14 août 2018
-
Maxovitch
Messages postés
2
Date d'inscription
lundi 13 août 2018
Statut
Membre
Dernière intervention
14 août 2018
-
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 !

1 réponse

Messages postés
11962
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
3 avril 2020
1 754
Bonsoir

Il suffit de remplacer dans la macro la ligne
cols(count) = Split(R.Cells(1, i).Address, "$")(1)
par
cols(count) = R.Cells(1, i)

Cdlmnt
Via
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 75072 internautes nous ont dit merci ce mois-ci

Maxovitch
Messages postés
2
Date d'inscription
lundi 13 août 2018
Statut
Membre
Dernière intervention
14 août 2018

Merci ça marche parfaitement !