Selection lignes issues d'un autofilter vba

Résolu/Fermé

noona0310 Messages postés 28 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 10 octobre 2010 - 27 août 2009 à 11:49
noona0310 Messages postés 28 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 10 octobre 2010 - 5 sept. 2009 à 13:13

Bonjour,

Je suis débutante en vba et je souhaite trouver le moyen d'accéder aux lignes issues d'un autofilter que j'ai mis dans ma macro. En fait j'aimerai vérifier des champs sur ces lignes , or le seul moyen que je connais pour y accéder et l'indice de la ligne. Sachant que le document (de 5000 lignes)a été soumis à un autofiltre cela revient à reparcourir les lignes une à une donc en gros l'autofiltre ne sert plus à rien.Cela est-il possible d'accéder à ces lignes ? Sachant que l'objectif de la mise en place de mon autofilter est de gagner du temps, quelle est la solution la plus économique en temps selon vous?
Aidez moi s'il vous plaît
Merci

A voir également:

Vba autofilter
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Autofill vba ✓ - Forum Excel
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Vba range avec variable ✓ - Forum VB / VBA

3 réponses

Réponse 1 / 3

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 759
27 août 2009 à 12:11

Salut,
En faisant un copier / coller. Du style :

Dim numlign As Integer
numlign = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Range(Cells(1, 1), Cells(numlign, 10)).Copy Sheets("Feuil2").Range("A1")

Ca ne colle que les cellules filtrées de A1 à la dernière ligne....... filtrée

Réponse 2 / 3

noona0310 Messages postés 28 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 10 octobre 2010
27 août 2009 à 12:17

Bonjour
Merci de m'avoir répondu
Je dispose de 31 onglet de 5000 lignes et je dois effectuer le filtre automatique pour 120 valeurs je te laisse imaginer le nombre de copier coller à faire. Serait-il possible de passer outre ce copier coller ?
merci d'avance

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 759
27 août 2009 à 12:19

je ne sais pas... désolé

Réponse 3 / 3

noona0310 Messages postés 28 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 10 octobre 2010
5 sept. 2009 à 13:13

Bonjour
Merci quand même je ferai sans

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

appliquer une pause dans une macro vba excel

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0