critères dans textbox pour récupérer tableau

[cathodique]

Bonsoir,

Afin d'imprimer des formulaires de travail. Je voudrai sur la feuille2 récupérer un tableau à partir de la feuille1 pour les critères saisies dans textbox (ActiveX sur la feuille).

Mes soucis sont:

1 - comment faire pour que les textboxs n'acceptent que les données colonne C pour textbox1 et colonne D pour Textbox2

2 - comment déclencher la macro juste avec des événements des textboxs.

En espérant avoir bien posé mon problème. je vous remercie par avance.

 

[BOISGONTIER]

Re : critères dans textbox pour récupérer tableau

Bonsoir,

Exemple de filtre automatique piloté avec 2 comboboxs intuitifs au lieu de textboxs ( avantage: la liste des noms commençant par les lettres frappées apparaît dans le combobox)

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormIntuitifFiltreAutoNomVille.xls

JB

 

[cathodique]

Re : critères dans textbox pour récupérer tableau

Merci beaucoup, ton fichier avec Userform est impeccable.

Je voulais m'initier aux ActiveX sur la feuille, c'est pour cela que j'avais mis des textboxs sur mon fichier.

J'avais commencé à mettre 2 comboboxs, j'ai codé la première sans parvenir à faire apparaitre les données dans celle-ci.

Ensuite, j'ai effectué un aperçu avant impression et je me suis aperçu que la toupie apparaissait. c'est ce que je veux éviter à l'impression. Et c'est aussi pour cette raison que j'ai opté pour des textboxs.

Voici le code que j'ai mis dans la première textbox, mais j'ai en permanence le message (msgbox)

Private Sub TextBox1_Change()
Dim DerLig As Long, Dico
DerLig = Range("C" & Rows.Count).End(xlUp).Row

Set Dico = CreateObject("Scripting.Dictionary")
  For Each c In Range("C8:C" & DerLig)
     Dico(c.Value) = "" ' on ajoute l'élément de la famille au dictionnaire
  Next c
   
   k = Dico.keys
If TextBox1 <> k(n) Then
MsgBox "N'appartient pas à la famille"
Else

End If
End Sub

Encore merci.
Cordialement,