Afectation d'une sélection de données avec autofilter à un table
JMichel
-
JMichelC Messages postés 5 Statut Membre -
JMichelC Messages postés 5 Statut Membre -
Bonjour,
J'ai une idée qui me semble possible mais pour le moment je n'ai pas encore trouvé la solution. Je réalise un autofilter sur une selection du style
ActiveSheet.Range("$A$9:$U$293").AutoFilter Field:=3, Criteria1:="11"
et j'aimerais stocker le contenu de cette selection dans un tableau.
le but et d'éviter de faire une boucle et de gagner ainsi du temps sur mon traitement.
Mais je n'arrive pas à stocker l'autofiltre dans un tableau vba.
Avez-vous une idée? en vous remerciant,
cordialement,
J-Michel
J'ai une idée qui me semble possible mais pour le moment je n'ai pas encore trouvé la solution. Je réalise un autofilter sur une selection du style
ActiveSheet.Range("$A$9:$U$293").AutoFilter Field:=3, Criteria1:="11"
et j'aimerais stocker le contenu de cette selection dans un tableau.
le but et d'éviter de faire une boucle et de gagner ainsi du temps sur mon traitement.
Mais je n'arrive pas à stocker l'autofiltre dans un tableau vba.
Avez-vous une idée? en vous remerciant,
cordialement,
J-Michel
A voir également:
- Afectation d'une sélection de données avec autofilter à un table
- Fuite données maif - Guide
- Table ascii - Guide
- Table des matières word - Guide
- Supprimer les données de navigation - Guide
- Trier des données excel - Guide
1 réponse
Bonjour,
Sub Test()
Dim TI,NL,NC
ActiveSheet.Range("$A$9:$U$293").AutoFilter
ActiveSheet.Range("$A$9:$U$293").AutoFilter Field:=3, Criteria1:="11"
TI = ActiveSheet.Range("A9:U293").SpecialCells(xlVisible)
NL = UBound(TI, 1) 'nombre de ligne: ligne1-->titre
NC = UBound(TI, 2) 'nombre de colonne de 1 a 21 (pour U)
'donc TI(NL,NC) est le tableau des donnees filtrees
x = TI(2, 1) 'premiere donnee ligne2, colonne1
xx = TI(2, 2) 'premiere donnee ligne2, colonne2
End Sub
l'idée est super mais à priori ça ne fonctionne pas :/
je n'arrive qu'à stocker les titres et n'arrive pas à afficher la première ligne qui correspond au critère alors que lorsque je déroule le programme en mode débug je vois bien à l'écran la bonne sélection.
Chez moi ca marche, donc mettez votre fichier sans donnees sensibles a dispo
Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDEBTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com
Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
je voulais vous faire un fichier sans données sensibles, j'ai donc simplifier le tout et là ça eu l'air de fonctionner... :/
En fait je transmets le cirteria1 avec une variable (strvariable).
et en refaisant des tests, je viens de remarquer que cela fonctionne que dans un cas, si les lignes sont les premières ligne du tableau si dans mon autofiltre la premiere ligne est la ligne n° 4 ça ne fonctionne pas ça me mets 'l'indice n'appartient pas à la selection'