recup données d'une colonne

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : recup données d'une colonne

hnkmic

Bonjour

Nouvel inscrit et nouveau sur VB

j'aimerais recuperer dans une colonne toutes les données possibles d'une colonne,
Pour etre plus clair je voudrais recuperer la meme liste que je vois lorsque je clique sur la petite flêche d'un filtre

a ce jour je passais par un Tableau croisé dynamique mais la il me faut les recuprées dans une macro .

Merci d'avance de votre collaboration

Michel

Publicité

hnkmic

HELP !!!

j'suis peu etre pas assez claire,

j'ai 55765 lignes , 18 ou 20(variable)valeurs differentes sont utilisées dans la meme colonne , j'aimerais pourvoir extraitre les 18 ou 20 valeurs differentes...

c'a doit bien pour voir se faire par une fonction ou une macro puisque "le filtre" est capable de n'affichée quelles dans sa liste de choix ?

j'suis bloquer la dessus et je ne peux avancer

Merci d'avance

pc75

Bonjour,

A la fin de la colonne (dans la première cellule vide) tu fais Alt + Flèche bas

hnkmic

Merci Pc75
je ne conaissais pas ,mais ca ne me donne pas plus que de cliquer sur fitre puis sur le fléche .

comment puis -je recupere les donées pour les reecrires ailleure ?

PS Alt +F_bas ne fonctionne pas avec le numerique ??

pc75

Re,

Peut-être du côté de la propriété Filter, sinon, je ne vois pas.

Bon courage.

galopin01

bonjour,
ce n'est peut-être pas la solution la plus brillante, il reste à dimensionner v éventuellement
Cette macro fonctionne sur une sélection mais il est aisé de l'adapter à une plage :

Code :

Sub Test()
Dim i%, k%, o As Range, Y As Boolean, Tablo()
ReDim Tablo(0)
For Each o In Selection
v = o.Value
For i = 1 To UBound(Tablo)
If v = Tablo(i) Then
Y = True: Exit For
End If
Next
If Not Y Then
ReDim Preserve Tablo(UBound(Tablo) + 1)
Tablo(UBound(Tablo)) = v
End If
Y = False
Next
For k = 1 To UBound(Tablo)
MsgBox Tablo(k)
Next
End Sub

Nota :
on gagnerait surement en temps d'éxécution si on remplacait la 1ère boucle for each par :
For x = NoPremL to 55765 'en remplaçant NoPremL par le N° de la première ligne
v = Cells(x, NumCol).Value ' en remplaçant NumCol par le N° de colonne à tester...
... le reste sans changement
Bien sur dans ce cas les adresses étant définies "en dur" pas besoin de sélection au départ.
A+

Message édité par galopin01 le 08-09-2005 à 08:53:55

hnkmic

merci je test ...
A+

hnkmic

Geniale !!
Exactement ce que je voulais avec mes adaptation dans 10 minutes ca sera bon .

je crois avoir compris tous se qui se passe dans les cmd
Le novice que je suis, vient de decouvrir quelques cmd qui vont m' eviter quelques ligne de saissie

Merci Monsieur Galopin01.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

recup données d'une colonne

Sujets relatifs
Datagrid et recup d'objet	[BESOIN D'AIDE] phpmyadmin, données et jeux de caractères...
La page que vous tentez de voir contient des données POSTDATA ... ???	Suppression d'anciennes données
Demande d'aide VBA : tableau dynamique et importation de données	Base de données et php
Interface avec frames à partir de données XML	[CODAGE] Extraire le message d'un bloc de données
[VBA ACCESS] Boucles + insertion de données dans tableau	détecter les extensions aux bases de données
Plus de sujets relatifs à : recup données d'une colonne

Page générée en 0.047 secondes