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

Bonsoir,

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 AD,... je voudrais avoir ets1... dans la colonne des concurrents 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 !

Salut Christophe,

bienvenue à toi!

... rien compris à ce que tu veux! et ton code ne doit pas te servir à grand chose...

Tu recommences sans t'énerver et tu joins un fichier qu'on puisse comprendre ton souci!

A+

Bonsoir je m'excuse de ne pas avoir été assez claire :

Voilà l’état actuel et le résultat que j'aimerai atteindre:

Le fichier excel :

Le code VBA que j'ai publié me permet de récupérer les colonnes ou la valeur est != du vide.

Merci.

Bonjour Christophe_b, le forum,

je te propose ce fichier Excel :

Alt F11 pour voir le code VBA, puis revenir sur Excel

Edit : Christophe_b a bien téléchargé mon fichier initial, mais ensuite, j'ai modifié mon fichier.

dhany

@Christophe_b

je te laisse d'abord lire mon post précédent (clique sur le lien vert) :

https://forum.excel-pratique.com/viewtopic.php?p=679760#p679760

(après, n'oublie pas de revenir ici)

je te retourne ton fichier modifié :

si besoin, tu peux demander une adaptation.

merci de me dire si ça te convient.

le bouton est près du bouton (regarde dans le coin haut droit du post qui a résolu ton exo)

dhany

@Christophe_b : merci d'avoir téléchargé mon 2ème fichier, mais tu devrais aussi télécharger le 1er fichier !

Merci pour votre réponse je suis novice sur Excel.

ah, j'viens d'voir que t'as aussi téléchargé mon 1er fichier !

dans le 2ème fichier, j'ai copié/collé le code VBA de la fonction GetConcurrents() du 1er fichier ; ensuite, j'ai seulement modifié la colonne initiale de la boucle For : 2 au lieu de 16 : For col = 2 To dcol

si t'as besoin d'infos, n'hésite pas à demander !

dhany

C'est bon je l'ai adapté à mon fichier final le résultat est parfait !

Mille mercis et longue vie à ce forum

parfait ! j'ai fait ce que tu m'as demandé en MP ; je vais t'envoyer un MP pour d'autres infos.

relis mon post de 00:39 : https://forum.excel-pratique.com/viewtopic.php?p=679760#p679760

dhany

@Christophe_b

ça y'est ! j'ai été très long car j'viens d't'envoyer un très long MP (et j'tape pas aussi vite qu'une secrétaire professionnelle) !

ATTENTION : tu verras qu'il y a des infos très importantes dont tu dois absolument tenir compte ! donc lis bien tout le MP !

j'suis ravi d'avoir pu t'aider, et merci d'avoir passé le sujet en résolu !

bonne continuation, et à la prochaine !

dhany