impression liste fonction valeur textbox ou combobox

[gilles37]

Bonjour,
J'ai d'un cote un tableau contenant des noms dans la colonne A et des lieux dans les colonnes suivantes
J'ai un userform dans lequel j'ai un textbox et un commandbutton ( rechercher) qui permet de taper un lieu afin de connaitre les noms des personnes qui y sont autorisées.
Maintenant je souhaiterai imprimer la totalité des personnes qui sont autorisées pour le lieu choisi dans un combobox, mais comment faire
Merci pour votre aide😕

 

[job75]

Re : impression liste fonction valeur textbox ou combobox

Bonjour Gilles,

Dans le code du CommandButton, vous codez les opérations suivantes :

- création du filtre automatique sur le tableau

- pour chaque colonne de lieux (faire une boucle), filtrage du tableau par le texte de la TextBox, copie des noms obtenus en 1ère colonne dans une feuille annexe (cette feuille doit être vidée de son contenu avant la 1ère copie, elle pourra être masquée)

- quand les opérations de filtrage sont terminées, remplissage de la Combobox avec les données de la feuille annexe.

Tout dépend de votre niveau en VBA. Si vous désirez de l'aide, mettez une copie de votre fichier.

A+

Nota : le terme "impression" est mal choisi, puisqu'il s'agit de remplir une ComboBox...

 

[gilles37]

Re : impression liste fonction valeur textbox ou combobox

Bonjour,


Merci pour la réponse.
Ci-joint le fichier qui me semble plus explicite.

Merci pour aide

 

[job75]

Re : impression liste fonction valeur textbox ou combobox

Re,

Ci-joint le fichier qui me semble plus explicite

Malheureusement non, et ce n'est pas ce que je pensais. Pourriez-vous donner un exemple de liste que vous voulez obtenir ? A+

 

[gilles37]

Re : impression liste fonction valeur textbox ou combobox

Fait modification et explication supplémentaire.
J'espère que c'est clair.
Merci encore pour votre aide😕

 

[job75]

Re : impression liste fonction valeur textbox ou combobox

Bonsoir Gilles,

Vous trouverez ci-joint le fichier où j'ai renommé les 2 feuilles "Autorisations" et "Liste".

La macro qui se trouve dans le code de la ComboBox1 :

Private Sub ComboBox1_Change()
Dim col As Byte
Sheets("Liste").Range("A2:A1000").Clear [COLOR="Red"]'liste supposée de 1000 lignes maximum[/COLOR]
With Sheets("Autorisations")
For col = 2 To 200 Step 2
If Application.CountA(.Range(.Cells(8, col), .Cells(1000, col))) = 0 Then Exit For
.Cells(7, col).AutoFilter
.Cells(7, col).AutoFilter Field:=col, Criteria1:=ComboBox1
.Range("A8:A1000").Copy
With Sheets("Liste").Range("A1000").End(xlUp).Offset(1)
.PasteSpecial Paste:=xlPasteValues
.Borders(xlEdgeTop).LineStyle = xlDouble
End With
Next
.AutoFilterMode = False
End With
Application.CutCopyMode = False
With Sheets("Liste")
.Range("A1") = ComboBox1
ListBox1.RowSource = "Liste!A2:A" & .Range("A1000").End(xlUp).Row
End With
End Sub

Quant à l'impression, utilisez l'enregistreur de macro pour obtenir le code d'impression de la colonne A de la feuille Liste (j'ai défini la zone d'impression).

Bonne nuit et A+

 

[gilles37]

Re : impression liste fonction valeur textbox ou combobox

Job75
Cela correspond tout a fait
Merci pour l'aide apporté.

🙂

 

[job75]

Re : impression liste fonction valeur textbox ou combobox

Bonjour Gilles, le forum,

J'ai regardé la question de l'impression. Pas si évident que ça. Voici ce que j'ai écrit pour le CommandButton1 de l'USF6 :

Private Sub CommandButton1_Click()
Dim Cb As String
Cb = UserForm1.ComboBox1.Value
Application.ScreenUpdating = False
Unload UserForm6
Unload UserForm1
With Sheets("Liste")
.Visible = True
.PageSetup.PrintArea = "$A:$A"
.PrintPreview
End With
Sheets("Autorisations").Activate
Load UserForm1
With UserForm1
.ComboBox1.Value = Cb
.Show
End With
Application.ScreenUpdating = True
End Sub

Fichier modifié joint.

A+