Lister et imprimer des données suivant condition

[G'Claire]

Bonsoir le forum

J'ai un tableau avec une ligne de titres en Ligne 7

Mes données débutent en Colonne A8 et ce jusqu'en colonne S8.

Dans ma colonne O, j'ai comme données soit "Sertir" Soit "Soudées" qui sert de référence dans ma recherche.

J'aimerai pouvoir afficher dans une ListBoX ou autres control, les données des colonnes "A-E-F-P-Q-R-S" suivant le choix demandé : "Sertir" Soit "Soudées"

Et une fois établie cette liste pouvoir l'imprimer.

Je vous remercie beaucoup, G'Claire

 

[Bernard]

Bonjour G'Claire

L'exemple joins donne ma compréhension de la description que tu as faite de ton problème;

Dans le cas contraire, pourrait tu mettre un petit fichier zippé sur le forum.


Salut

Bernard

 

[G'Claire]

Bernard, le forum bonsoir

Bernard, merci de ta réponse. En faite je ne peu pas mettre le fichier sur le forum, car il fait plus de 50 Ko (Il y a pas mal de UserForm, Module).

Mais je mets une idée du UserForm et du résultat que je recherche

En faite ce tableau est déja rempli est c'est une fonctionnalité que je voudrai rajouter.

Lors d'un clique sur un bouton je préfèrerai ne pas a avoir de choix mais que cela m'affiche les données comme dans l'userForm pour tous les cas ou le mot "Sertir" ( Qui est le plus important pour moi) est présent dans cette colonne O

voila, j'espère que le fichier joint sera plus parlant.

Je vous remerci toutes et tous, G'Claire

 

[G'Claire]

Bernard le forum,

It's good, ne cherché plus j'ai trouvé, en modifiant le code du précédant post :

Private Sub UserForm_Initialize()

Dim i As Integer

With Worksheets("Feuil1")

If .Range("O8") = "" Then Exit Sub 'aucune saisie en Feuil1
For i = 1 To .Range("A65536").End(xlUp).Row - 7

If (.Range("O8").Cells(i, 1)) = "Sorti" Then
ListBox1.AddItem .Range("A8").Cells(i, 1)

End If
Next i
End With
End Sub

Comment avec ce résultat pourrais-je imprimer cette liste avec ces même données ?

Je vous remercie encore, G'Claire