Alimentation d'un SpreadSheets depuis une ListBox

Version imprimable

Bonjour le Forum,

J'ai une petite question à vous soumettre. Je suis en pleine programmation d'une application qui permet - en gros - de faire un suivi de "Fiches Anomalie".
Je bloque sur la partie affichage du tableau de données.

Pour exposer mon souci voici quelques infos:
ma feuille "Données" contient les données
mon UserForm MultiPage contient un onglet "Visualisation"

l'utilisateur peut faire un choix sur les informations qu'il souhaite visualiser:
soit:
- les RefPiece (Listebox à choix multiple) = MultiPage.ListeRefPiece
- La ligne le production = Multipage.Ligne
- la machine de production = Multipage.Machine

En fonction des choix de l'utilisateur je souhaite remplir ma SpreadSheets avec les lignes correspondentes de ma feuille "Données". Tout les choix ne sont pas obligatoirement selectionnés. Je commence juste par programmer le code dans le cas suivant:
l'utilisateur souhaite voir les anomalies pour certaines références de pièces, sans indiquer de Ligne ni de Machine.

Tout d'abords est ce que cela est possible?
J'ai commencer mon code ainsi:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Dim Table As Variant Dim x As String 'adresses des cellules du tableau Dim Cellules As Range 'cellules utilisées Worksheets("Données").Activate With UserForm.MultiPage 'si pas de paramètre séléctionné: message d'erreur If .ListeRefPiece = "" And .Ligne = "" And .Machine = "" Then MsgBox "Faire un choix dans les paramètres d'affichages." Exit Sub End If 'selection de ref piece uniquement If .ListeRefPiece <> "" And .Ligne = "" And .Machine = "" Then
J'ai trouvé sur le site les info suivantes:
Code:

1 2 3 4 5 6 7 8 9 10 '¤¤¤¤¤¤¤¤¤¤¤¤¤ affichage de la table complète: ' Dim Table As Variant ' Dim x As String ' Worksheets("Données").Activate ' ' x = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address ' ' Table = Range("A1:" & x) ' Tableau.ActiveSheet.Range("A1:" & x) = Table
Et je souhaiterais la modifier pour ne selectionner comme plage que les lignes correpsondant au choix de l'utilisateur.
Comment puis je mettre dans la variable "x" la plage de données voulu?
La Boucle For Each peut elle etre utilisée ainsi?

Code:

For Each .ListeRefPiece.Value In .ListeRefPiece

Merci beaucoup pour votre aide!

J'ai un peu avancé dans ma maco et après avoir essayé toutes les méthodes qui me sont passées par la tête.... voici ce que j'ai réussi a faire:
Code:

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 L = Sheets("Données").Range("A65536").End(xlUp).Row + 1 Dim Plage As Range 'boucle de test 1 If ListeRefPiece.ListIndex = -1 And Ligne = "" And Machine = "" Then msgbox "Merci d'indiquer des paramètres de recherche." Exit Sub End If If ListeRefPiece.ListIndex <> -1 And Ligne = "" And Machine = "" Then For i = 0 To ListeRefPiece.ListCount - 1 If ListeRefPiece.Selected(i) = True Then For j = 1 To L If Sheets("Données").Cells(j, 3).Value = ListeRefPiece.List(i) Then Sheets("Données").Cells(j, 3).EntireRow.Select Plage = Application.Union(Plage, Range("C:" & j).EntireRow) End If Next End If '.... je ne suis pas encore allé jusqu'à affecter ma plage à mon tableau.... et je dois doire que j'en suis encore très loin! Next
Voilà pour la dernière version la moins mauvaise que j'ai réussi à faire (en fait c'est la seule qui ne bug pas dès la première ligne....)

J'ai un souci sur la Plage séléctionnée et je ne sais pas trop pourquoi.
Par la suite, il faudra que j'affecte ma Plage à Mon Tableau (de type SpreadSheet)

Et il semble que mes boucles ne soient pas au top: si je ne selectionne rien dans ma listbox LitesRefPiece je ne rentre pas dans la boucle de test 1...

J'espère avoir aider à comprendre mon souci.... un petit coup de pouce pour me faire avancer n'est pas de refus!!

Merci pour le partage de vos petits neurones!!!:mrgreen:

Alors pour lesquelques uns qui seront interessé, j'ai trouvé une parade à mon problème.... un fois les lignes correspondant à mes critères de recherches trouvées je les implémente sur une nouvelle feuille.
Et j'affiche ma nouvelle feuille dans mon SpreadSheet...

voici le code

Code:

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
29
30
31
32
33
34
For i = 1 To ListeRefPiece.ListCount - 1
    If ListeRefPiece.Selected(i) = False Then
    If Ligne = "" And Machine = "" Then
 
 
        If ListeRefPiece.Selected(i) = True Then
            For j = 1 To L
                If Sheets("Données").Cells(j, 3).Value = ListeRefPiece.List(i) Then
 
                    Sheets("Feuille1").Rows(k + 1).Value = Sheets("Données").Rows(j).Value
                    k = k + 1
 
                End If
            Next
        End If
 
 
      Dim Table As Variant
        Dim x As String
 
         Worksheets("Feuille1").Activate
 
        x = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
 
        Table = Range("A1:" & x)
        Tableau.ActiveSheet.Range("A1:" & x) = Table
 
    End If
    End If
Next
 
Sheets("Feuille1").Range("A2:M" & L2).Value = ""
 
Tableau.Visible = True