Interface utilisateur avec un fichier excel

Question

Bonjour,
en fait je r&#233;alise une "base de donn&#233;es" sur excel, en fait il s agit d'un classeur avec plusieurs feuilles qui repertorient des produits. Chaque feuille correspond a un produit different (ex brouette)et stocke toutes les numeros de serie ( de toutes les brouettes) ainsi que la zone de stockage du produit. 
En fait je voudrai que l'utilisateur entre un nom de produit ainsi que le numero de serie, 
du coup le code ferait qu on parcourt la feuille en lien avec le produit choisi et ensuite repere le numero de serie dans la colonne "numero de serie" puis modifie la zone de stockage choisi au prealable par l'utilisateur. Tout ca san que l'utilisateur ne voit le fichier excel....

Ca se trouve un travail similaire a deja ete fai dan le site mai je ne l ai pa trouv&#233; 

Je vous remercie beaucoup pour votre aide 

J espere que quelqu un pourr m aider

kk

chmouette · Answer

Excel c'est obligatoire? essaies plut&#244;t sous access, c'est fait pour...
sinon, bon courage...

en fait essaie de commencer un truc, choisi ton mode de stockage des infos (sheet "brouette", sheet "seau"....., ensuite pour chaque sheet colone A : nom article, colone B : num&#233;ro de s&#233;rie, colone C : lieu de stockage...)apr&#232;s, cr&#233;e ton UserForm de saisie utilisateur (&#224; la taille de ta fen&#234;tre, popup true, modal true) comme ca on touche pas &#224; excel...

Une fois que c'est structur&#233;, cr&#232;e tes proc&#233;dures et fonctions de s&#233;lection, de modification, d'ajout, de r&#233;cup&#233;ration... enfin, &#224; toi de jouer!

cel&#224; dit, si tu peux utiliser Access c'est mieux adapt&#233;...

_______________________________________________________________________

On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

kkyoyo · Answer

oui c vrai qu on m a pluto imposer excel......
Mai tout ce que tu m as dit, je lai fai .Je n ai jamai fai de visual basic et je n ai justement pa tro d id&#233;e sur les fonctions &#224; utilis&#233;es , comment les utiliser et sur la syntaxe

Je te remercie pour ta r&#233;ponse

chmouette · Answer

1/ ya une source avec des fonctions excel, lis la, essaie de comprendre comment elle marche...
tu as des fonctions pour aller &#224; la cellule X,Y, apr&#232;s tu peux modifier, r&#233;cup&#233;rer tes valeurs.

2/ ya un post sur le forum pour r&#233;cup&#233;rer des colones dans une listbox, avoir les valeurs correspondantes des autres colonnes...

3/ regarde comment traiter du texte (strComp(), Left(), right(), mid(), inStr(), split(), join()...)

4/ Place des control sur ton form, regarde coment les modifier, les diff&#233;rentes propri&#233;t&#233;s, cr&#233;e tes &#233;v&#232;nements li&#233;s aux diff&#233;rentes actions que tu veux avoir(pour avoir l'&#233;diteur VB c'est Alt+F11, ou Tools>macro>VB editor, l&#224; tu cr&#233;e ton/tes formulaire(s), tu ajoutes tes controls (boutons, listes, textbox)...)

pour le moment il faut que tu cherches un peu, c'est trop vaste pour t'aider efficacement. quand tu auras ton userform avec tes controls et que tu rencontrera des probl&#232;mes plus concrets, ce sera plus facile!

et lance ta fen&#234;tre manuellement pour le moment, l'autoexecution tu la feras &#224; la fin. 

Bon courage!

On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

kkyoyo · Answer

Merci beaucoup,

En fait mon userform est fai 
la j ai un peu de mal &#224; remplir une listBox
mai je vai regarder ce que tu m as conseill&#233; 
pour les fonctions*

merci encore pour le tem que tu m as accord&#233;e

chmouette · Answer

http://www.vbfrance.com/forum.v2.aspx?ID=70537
c'est pour r&#233;cup&#233;rer des donn&#233;es sous excel et remplir un menu d&#233;roulant

liens vers de sources :
http://www.vbfrance.com/code.aspx?ID=1906
http://www.vbfrance.com/code.aspx?ID=22514
mais yen a plein d'autres...

bon code!

On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

kkyoyo · Answer

Bonjour
j ai maintenant une question plus precise

Mon userform se compose de la facon suivante
l utilisateur doit selectionner un &#233;quipement =>ce qui permet de selectionner la feuille corrspondante
puis il selectionne le numero de serie=>ce qui devrait permettre d activer la cellule coorespondante (feuille de l equipement choisi et case avec le numero de serie selectionn&#233;)

je n arrive donc pas a activer la cellule correspondant au numero de serie selectionn&#233;...
et j ai besoin des coordonnees de cette cellule pour pouvoir remplir les autres champs

voici un bout de mon code ca "marche" quan le numero de serie est sur une des deux premieres cellules....

Range("B2").Activate 'j active la premiere cellule de la colonne
If ActiveCell.Value = ListBoxSerialNumber.Value Then
Else: ActiveCell.Offset(1, 0).Activate
End If

' il doit manquer un while mai je n arrive pa

Merci si tu as une solution

kkyoyo · Answer

Bonjour
j ai maintenant une question plus precise

Mon userform se compose de la facon suivante
l utilisateur doit selectionner un &#233;quipement =>ce qui permet de selectionner la feuille corrspondante
puis il selectionne le numero de serie=>ce qui devrait permettre d activer la cellule coorespondante (feuille de l equipement choisi et case avec le numero de serie selectionn&#233;)

je n arrive donc pas a activer la cellule correspondant au numero de serie selectionn&#233;...
et j ai besoin des coordonnees de cette cellule pour pouvoir remplir les autres champs

voici un bout de mon code ca "marche" quan le numero de serie est sur une des deux premieres cellules....

Range("B2").Activate 'j active la premiere cellule de la colonne
If ActiveCell.Value = ListBoxSerialNumber.Value Then
Else: ActiveCell.Offset(1, 0).Activate
End If

' il doit manquer un while mai je n arrive pa

Merci si tu as une solution

chmouette · Answer

essaye en remplacant to if then par do until condition

Range("B2").Activate 'j active la premiere cellule de la colonne

do until ActiveCell.Value = ListBoxSerialNumber.Value
   ActiveCell.Offset(1, 0).Activate
Loop

&#233;ca devrait aller mieux...

On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

kkyoyo · Answer

Merci, 
j ai utilis&#233; autre chose en fait :


Nserie = ListBoxSerialNumber.Value
With ActiveSheet.Range("b:b")
Set c = .Find(Nserie, LookIn:=xlValues, LookAt:=xlWhole)
If Not c Is Nothing Then
c.Cells(1, 2).Select
End If
End With

Mai je vais tester ta solution de suite....

Merci encore.....

kkyoyo · Answer

Ca Marche et en plus je comprends mieux le code

chmouette · Answer

ta soultion au dessus est peut &#234;tre plus rapide et plus &#233;l&#233;gante, &#224; toi de tester, l'optimisation est importante dans un programme (surtout avec VB qui est pas super rapide, et je te parle pas d'excel...)

bon code!

On ne devrait vivre qu'une minute et demie, 
Le temps du premier baiser et du premier demi !

kkyoyo · Answer

bonjour

je voulais savoir si c'&#233;tait possible grace a un commandbutton de faire passer une feuille devant le userform
mon code est le suivant mais il ne marche pas (enfin ca marche un peu c est a dire qu il me l'affiche et tout de suite indique une erreur....)


Private Sub CommandButtonTableau_Click()


    DataBase.Hide
    Worksheets("Tableau recap").Activate
    Worksheets("Tableau recap").Show
     
    


End Sub

Merci!!!!

Interface utilisateur avec un fichier excel

12 réponses

Discussions similaires