Parcourir un tableau et transférer certaines lignes de données.

**Niagala** · 27/01/2021, 17h19

Bonjour à tous.
J’ai besoin de votre aide pour solution en VBA.
Je renseigne un tableau de 15 colonnes ( A : O ) sur la feuille « Sortie » à partir d’un UserForm.
Je souhaite filtrer ce tableau en fonction de la colonne 11 ( K ) en choisissant le critère dans la Combobox1 et transférer le résultat sur la feuille « Etats »

Autrement dit : Je souhaite parcourir la colonne K de mon tableau. Chaque fois que la valeur d’une cellule correspond au critère choisi dans la combobox1 , Copier toute la ligne pour mettre dans le second tableau sur la feuille « Etats », Faire cette opération jusqu’à la fin du tableau.

Merci d’avance.

**anasecu** · 27/01/2021, 18h14

Bonjour,

Tu devrais regarder le filtre élaboré qui fait cela très bien, éventuellement avec une ligne VBA au changement de ta sélection.

**Niagala** · 28/01/2021, 10h18

Bonjour anasecu et merci pour ta réponse.

Je vais voir ce que je pourrai faire et je te reviendrai.
Bonne journée.

**Niagala** · 28/01/2021, 18h11

Bonjour à tous.

Après plusieurs lectures sur les discussions entre la comparaison d'une boucle et d'un filtre élaboré, j'ai fini par choisir le filtre élaboré.
Le filtre élaboré me convient, j'arrive à gérer étant donné qu'ici l'utilisateur n'a pas accès aux différentes feuilles. Les données sont affichées dans une listebox qui charge le résultat du filtre pour éviter une mauvaise surprise. Merci anasecu

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Private Sub CboC_IdClient_Change()
 
Dim RgSortie As Range
Dim Critere
Dim RgDestination As Range
Dim DL 'La dernière ligne de mon tableau puisqu'elle est variable
 
DL = Feuil7.Range("A100000").End(xlUp).Row 
 
'Mon critère est selectionné dans la combobox1 de l'UserForm. _
Il doit aussi être sur la feuille source des données pour que le filtre puisse se faire
 
 
Feuil7.Range("P2") = Me.CboC_IdClient.Value 'Pour renseigner la plage critère
Set Critere = Feuil7.Range("P1:P2") ' Affectation
 
'Affectation des variables
Set RgSortie = Feuil7.Range("A1:O" & DL)
Set Critere = Feuil7.Range("P1:P2")
Set RgDestination = Feuil8.Range("A1")
 
'On efface l'ancienne exportation
Feuil8.Cells.ClearContents
 
'On lance l'outils FiltreAvancé
RgSortie.AdvancedFilter xlFilterCopy, Critere, RgDestination
 
End Sub