Tri de données pour remplir tableau

Robert

XLDnaute Barbatruc

Repose en paix

• 9 Septembre 2005

• #2

Bonjour David, bonjour le forum,

En pièce jointe ton fichier modifié. J'ai remplacé la premiere TextBox par une ComboBox qui affiche les en-tête de colonne. En choisissant une colonne le code enregsitre dans le tableau Tabl l'article et la valeur de la colonne par rapport à l'article (x dans ton exemple).
Ensuite le bouton Ok restitue ce tableau dans l'onglet Résulstats. J'espère que ça te conviendra. [file name=Basecollection2.zip size=29377]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Basecollection2.zip[/file]

 

Pièces jointes

• Basecollection2.zip

  28.7 KB · Affichages: 29

Vote positif 0 Vote négatif

D

DAVID P

Guest

• 9 Septembre 2005

• #3

Bonjour Robert,


je te remercie pour le temps que tu as dû passer sur le projet.

Ca fonctionne super bien , bravo .


Grace à tes explications, je me servirai aussi de ta base pour des projets futurs.


Encore MERCI

Bonne soirée

 

Vote positif 0 Vote négatif

D

DAVID P

Guest

• 9 Septembre 2005

• #4

Bonjour le forum,



j'ai essayé d'insérer les 2 feuilles ci dessus dans un projet comportant d'autres feuilles.


Mon soucis est le suivant:


- Comment indiquer dans le code de l'userform que la base de donnée est dans la feuille 'base de données' ?




Merci de votre aide


Bonne nuit

 

Vote positif 0 Vote négatif

D

DAVID P

Guest

• 10 Septembre 2005

• #5

Rebonjour le forum,

Je suis désolé de vous déranger , mais si quelqu'un à la solution.


Effectivement , le fichier que ma remis Robert fonctionne à merveille lorsque le classeur contient 2 feuilles.


Mon soucis est que je dois intégrer ces 2 feuilles dans un autre classeur (malheureusement ,je ne l'avais pas prévu dans ma 1er demande ....)contenant plusieurs feuilles + plusieurs userform.


-Comment faire pour indiquer à l'userform le nom de la feuille ou il doit prendre sa base de données.


Merci d'avance pour votre aide


Bonne après midi

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Septembre 2005

• #6

Salut DAVID P
bonjour Robert
bonjour le Fil

voilà ce que j'ai modifié dans la procèdure de Robert
pour que la macro agisse sur une feuille donnée ici Ws
à qui j'ai affecté la feuille 'base de données' dans l'exemple

Code:

Private Sub UserForm_Initialize() 'à l'initialisation de l'UserForm
Dim y As Byte 'déclare la variable y
Dim Ws As Worksheet 'déclare la variable Ws comme étant une feuille
y = 0 'définit la variable y
'affecte la valeur à Ws ici Worksheets('base de données')
Set Ws = Worksheets('base de données')
'remplissage de la ComboBox1

'boucle sur toutes les cellules éditée de la ligne 9 de la feuille qui ici s'apelle Ws

For Each Cel In Ws.Range(Cells(9, 2), Ws.Range('IV9').End(xlToLeft))
    ComboBox1.AddItem Cel.Value 'ajoute la valeur de la cellule
    ComboBox1.List(y, 1) = y + 2 'ajoute le numéro de colonne de la cellule
    y = y + 1 'redéfinit la variable y
Next Cel 'prochaine cellule de la boucle

ComboBox1.ListIndex = 0 'affiche le premier élément de la ComboBox1
End Sub

tiens nous au courant

Message édité par: Chti160, à: 10/09/2005 14:25

 

Vote positif 0 Vote négatif

D

DAVID P

Guest

• 10 Septembre 2005

• #7

Rebonjour,


Génial,


je vous remercie de m'avoir répondu si vite et d'avoir adapté le gros travail d'Hervé.



Heureusement que le forum est là.....



Bonne après midi à tous

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 10 Septembre 2005

• #8

re

de rien Jacques !!!!!!!!!!!! Lol

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 12 Septembre 2005

• #9

Bonjour le fil, bonjour le forum,

J'attends un nouveau modem désespérement depuis que l'ancien a rendu l'âme avec les orages. Donc sans internet à la maison je n'ai pu suivre ce fil. Heureusement que ce cher Chti veille au grain. Comme ce n'est pas la première fois qu'il vient à ma rescousse je profite pour le remercier chaleureusement pour sa gentillesse et pour ses compétences. Voilà, c'est tout...

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 12 Septembre 2005

• #10

Salut Robert
bonjour le Fil

en espérant que tes petits problèmes de Modem je résolvent le plus rapidement possible.
j'en profite, pour moi aussi te remercier non seulement pour tes compétences dans le domaine qui nous réunis, mais aussi pour ta bonne humeur que tu partages avec José et dont nous profitons, vous me faites très souvent rire tout seul et c'est bon
donc merci
Bonne Journée

 

Vote positif 0 Vote négatif