rech par critère ds usf

[Gix]

Bonsoir le fourum,

J'ai eu une idée pour me facilter mes recherches archivées car dans
mon classeur original je possède environ 25 000 lignes( ce n'
est pas évident de faire une recherche rapidement )

Je joins un fichier pour plus d'explications.

Vous remerciant tous d'avance.

Gix.

 

[Gix]

je ne comprends pas pourquoi le fichier ne passe pas pourtant il est zipé, il fait moins de 50 ko et il n'y a pas d'espace

j'essaye. [file name=RechercheParCritere.zip size=26445]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RechercheParCritere.zip[/file]

 

[Gix]

Bonsoir le forum,

J'ai fais des recherches par rapport à mon idée mais je n'ai rien trouvé.
Peut-on me dire si mon idée est réalisable?

Vous remerciant de votre compréhension et veuillez excuser ma perspicacité .

Bonsoir , Gix.

 

[Robert]

Bonsoir Gix, bonsoir le forum,

En pièce jointe ton fichier modifié. Je me suis permis de l'adapter à ma manière de travailler. J'ai remplacé la TextBox ou tu éditais le nom à rechercher par une ComboBox qui se remplit sans doublons. Du coup si tu as plusieurs facture à la même date et que tu as lancé une recherche par date, clique sur le bouton Recherche et celui-ci se transforme en Suivant. Chaque clic sur Suivant actualise les données. Quand il n'y a plus de suivants le bouton se bloque. Une nouvelle Recherche ou un nouveau critère réactive le bouton.

J'espère que ça te conviendra.
[file name=RechercheParCritere_V2.zip size=26806]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RechercheParCritere_V2.zip[/file]

Message édité par: Robert, à: 05/07/2005 23:44

 

[Gix]

Bonsoir le forum,et Robert

:woohoo: :woohoo: :woohoo:

Merci, ce n'est pas que ça me convient mais c'est beaucoups plus de ce que j'attendais,
Ton travail est remarquable autant que tes explications.
Je ne sais comment te remercier de m'avoir aidé dans mon projet qui grâce à toi a avancé et me rend pleinement satisfait.
Cela aurait été avec joie de pouvoir t'offrir un apéro.

Merci encore de ton aide qui m'a été trés précieuse, à+ Gix.

 

[Gix]

Bonjour le forum, Robert

Désolé de t'embêter à nouveau ,j'ai beau mettre toute la volonté mais je n'arrive pas à faire fonctionner la commande bouton 3 c'est-à-dire à imprimer les résultats trouvés.

Te remerciant par avance de ton aide;

Gix.

Ps: Pour l'appéro c'est quand tu veux, je meurs de soif !!!

 

[Robert]

Bonjour Gix, bonjour le forum,

Vraiment désolé Gix. Je n'avais pas vu ton problème mais surtout je suis impardonnable car je ne t'avais pas prévenu que j'avais redonné le nom original aux textbox (TextBox1, TextBox2, etc...). Du coup le code du bouton Imp résultat ne fonctionne plus pluisqu'il fait référence aux anciens noms.
Voici le code pour que ça fonctionne :

Private Sub CommandButton3_Click()
With Sheets('Imprime Archi Fac')
.Range('B11') = TextBox2.Value 'Société
.Range('H11') = Textbox1.Value 'Nº de facture
.Range('B16') = TextBox3.Value 'Montant Facture HT
.Range('E16') = TextBox4.Value 'Montant Facture TVA
.Range('H16') = TextBox5.Value 'Montant Facture TTC
.Range('B21') = TextBox6.Value 'Date Facture
.Range('E21') = TextBox7.Value 'Date Facture Paiement
.Range('B26') = TextBox8.Value 'Chantier
.PrintOut Copies:=1, Collate:=True
.Range('B11') = ''
.Range('H11') = ''
.Range('B16') = ''
.Range('E16') = ''
.Range('H16') = ''
.Range('B21') = ''
.Range('E21') = ''
.Range('B26') = ''
End With
End Sub

Encore une fois je suis sincèrement désolé d'avoir oublié de te signaler ce changement aussi importatnt.
Mais, pour en revenir au nom des controles, au début je faisais comme toi. Pour mieux comprendre de quoi je parlais, je changeais le nom du TextBox1 en «Nom» (par exemple). Puis un jour j'ai vu un code qui bouclait sur plus de 10 TextBox et depuis je garde toujours le nom original. Dans ton cas regarde ce bout de code du bouton RECHERCHE :

'affiche les données dans les TextBox
For x = 0 To 7
Me.Controls('TextBox' & x + 1).Value = O1.Cells(R.Row, 1).Offset(0, x).Value
Next x

En gardant les anciens noms cela donnait :

For x = 0 To 7
N°FacBox.Value = O1.Cells(R.Row, 1).Offset(0, x).Value
SociétéeBox.Value = O1.Cells(R.Row, 1).Offset(0, x).Value
MontantFacHtBox.Value = O1.Cells(R.Row, 1).Offset(0, x).Value
MontantFacTvaBox.Value = O1.Cells(R.Row, 1).Offset(0, x).Value
MontantFacTtcBox.Value = O1.Cells(R.Row, 1).Offset(0, x).Value
DateFacBox.Value = O1.Cells(R.Row, 1).Offset(0, x).Value
DateFacPaiementBox.Value = O1.Cells(R.Row, 1).Offset(0, x).Value
ChantierFacBox.Value = O1.Cells(R.Row, 1).Offset(0, x).Value
next x

Message édité par: Robert, à: 09/07/2005 11:36

 

[Gix]

Salut tout le monde et Robert,

Ce n'est pas grave Robert , car cela m'a permis de cogiter mes neurones ce qui m'a permis d'ecrire ça

[Private Sub CommandButton3_Click()
Sheets('Imprime Archi Fac').Unprotect Password:='gix'
Sheets('Imprime Archi Fac').Range('H11') = Textbox1.Value
Sheets('Imprime Archi Fac').Range('B11') = TextBox2.Value
Sheets('Imprime Archi Fac').Range('B16') = TextBox3.Value
Sheets('Imprime Archi Fac').Range('E16') = TextBox4.Value
Sheets('Imprime Archi Fac').Range('H16') = TextBox5.Value
Sheets('Imprime Archi Fac').Range('B21') = CDate(TextBox6.Value)
Sheets('Imprime Archi Fac').Range('E21') = CDate(TextBox7.Value)
Sheets('Imprime Archi Fac').Range('B26') = TextBox8.Value
Sheets('Imprime Archi Fac').PrintOut Copies:=1, Collate:=True
Sheets('Imprime Archi Fac').Range('H11') = ''
Sheets('Imprime Archi Fac').Range('B11') = ''
Sheets('Imprime Archi Fac').Range('B16') = ''
Sheets('Imprime Archi Fac').Range('E16') = ''
Sheets('Imprime Archi Fac').Range('H16') = ''
Sheets('Imprime Archi Fac').Range('B21') = ''
Sheets('Imprime Archi Fac').Range('E21') = ''
Sheets('Imprime Archi Fac').Range('B26') = ''
Sheets('Imprime Archi Fac').Protect Password:='gix'
End Sub]

ca à marcher et sur ceux je n'ai pas voulu t'embêter à nouveau

Ps: Si tu as un plan anti canicule normalement je traverse Montpellier Le dimanche 24 07 direction Agde , après 200 bornes j'ai encore plus soif!!

à+ Gix

 

[Robert]

Bonjour Gix, bonjour le forum,

Ho les boules, je pars en vacances le 21/07 ! Sinon on aurais fait un plan «Arrêt boissons fraîches» à Montpeul. Tu le crois si je te dis que je suis agathois...

 

[Gix]

Bonsoir le forum et Robert,

Tout d'abord je m'excuse auprès de tout le monde qui suit ce filça rien avoir avec une question excel mais j'ai eu un coup de chaud ( hein Robert)

Par contre je retraverse montpellier le 31/07, regarde dans pièce jointe chez moi c'est ça avoir un coup de chaud.

Désolé pour cet paranthèse et bonne soirée à tous .

à+ Gix. [file name=AntiCanicule.zip size=44760]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/AntiCanicule.zip[/file]

 

[Gix]

Bonsoir le forum et Robert,

Tout d'abord je m'excuse auprès de tout le monde qui suit ce filça rien avoir avec une question excel mais j'ai eu un coup de chaud ( hein Robert)

Par contre je retraverse montpellier le 31/07, regarde dans pièce jointe chez moi c'est ça avoir un coup de chaud.

Désolé pour cet paranthèse et bonne soirée à tous .

à+ Gix. [file name=AntiCanicule_20050709212118.zip size=44760]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/AntiCanicule_20050709212118.zip[/file]

 

[Robert]

Bonjour Gix, bonjour le forum,

Réponse tardive car hier j'étais chez Môman à Agde justement...

Quand je disais 'un plan «Arrêt boissons fraîches»' c'est bien à ça que je pensais mais j'ai pas voulu en parler car j'avais peur que sarkosy traîne dans ce forum...

Bon le 31/07 je serais toujours au Brasil mais si tu passes à Montpeul après le 15 août, fais-moi signe je mettrai de l'eau au frais...

 

[Gix]

Bonsoir le forum et Robert,

Ho les boules , je me tape toutes mes bornes sans eau fraîche,
:angry: par contre si à l'occasion tu passes sur la A43 direction sport d' hivers je te mettrai un bol de chocolat chaud de côté accompagné d'une grosse bûche dans la cheminée

Fais moi signe je tiens au moins à t'offrir quelques chose de CHAUD!!!
:woohoo: :woohoo: :woohoo:

Bonnes vacances au Brazil à bientôt Gix.

 

[Robert]

Bonsoir Gix, bonsoir le forum,

C'est gentil Gix, je ne manquerai pas de prendre un chocolat chaud si je passe dans ton coin. Mais la dernière fois que j'ai fait du sport d'hiver je me suis foulé la tête ! Il ont tenté une greffe du cerveau mais ils ont pris un cerveau de crevette ces cons...

Bonnes vacances à toi aussi à Agde la perle noire.