Fichier Excel pour gestion de fiches de stock ...

Fichier Excel pour gestion de fiches de stock ... - Logiciels - Windows & Software

Marsh Posté le 09-10-2005 à 21:15:25    

Bonjour à tous.  
Voilà, je souhaite créer un fichier Excel qui remplacerait des fiches PAPIER de gestion de stock. Il y a 10 classeurs de 40 fiches (une fiche par référence d'article) environ.
Je vois simplement un classeur Excel qui contiendrait autant d'onglets (feuilles) que de références ... soit 400.  :heink:  
Mon probleme est que j'aimerais avoir une page de garde ou je puisse taper ma reference d'article (6chiffres) et qu'un lien me renvoit aussitot sur la bonne fiche de stock, histoire d'eviter de se balader dans la multitude d'onglets !
 
J'ai pensé établir la liste des ref avec le lien hypertexte à coté et mettre un filtre automatique ... mais je me demande s'il existe une solution + conviviale ou encore + rapide dans Excel 2004 ???
 
Merci d'avance de vos conseils avisés   :jap:

Reply

Marsh Posté le 09-10-2005 à 21:15:25   

Reply

Marsh Posté le 10-10-2005 à 09:01:56    

UP !

Reply

Marsh Posté le 10-10-2005 à 10:27:30    

Il faudrait faire une liste des codes article, par exemple dans la colonne D, avec le classeur correspondant dans la colonne E, et la feuille correspondante dans la colonne F.
Puis, il faudrait créer la macro VB suivante (pour créer une macro, aller dans menu/Outils/Macro/Visual Basic Editeur, cliquer sur un "MicrosofExcelObject" pour faire apparaître une page blanche à droite, et copier/coller les lignes ci-dessous):

Code :
  1. Public Sub change_de_page()
  2.   Dim ref As String
  3.   Dim recherche_cellule As Range
  4.   Dim nouveau_classeur As String, nouvelle_feuille As String
  6.   ' Demande de saisie d'une référence
  7.   ref = InputBox("Saisir une référence", "Redirection" )
  8.  
  9.   ' Recherche si la référence existe dans la colonne D
  10.   Set recherche_cellule = Columns("D" ).Find(what:=ref, LookIn:=xlValues)
  11.   If Not recherche_cellule Is Nothing Then
  12.    
  13.      ' Récupère le nom du classeur indiqué dans la colonne E
  14.      nouveau_classeur = Cells(recherche_cellule.Row, "E" ).Value
  15.    
  16.      ' Récupère le nom de la feuille indiquée dans la colonne F
  17.      nouvelle_feuille = Cells(recherche_cellule.Row, "F" ).Value
  18.      'MsgBox (nouveau_classeur & " - " & nouvelle_feuille)
  19.    
  20.      ' Changement de classeur
  21.      Workbooks(nouveau_classeur).Activate
  22.    
  23.      ' Changement de feuille (onglet dans un classeur)
  24.      Worksheets(nouvelle_feuille).Activate
  25.   Else
  26.      ' Non trouvé
  27.      MsgBox ("Réference " & ref & " non trouve." )
  28.   End If
  29. End Sub

Pour appeler la macro, revenir sur une feuille Excel et appuyer sur les deux touches <alt><F8>. :)  

Reply

Marsh Posté le 10-10-2005 à 10:59:01    

Excel ne me semble pas le bon produit pour ce projet...
 
Pour une utilisation monoposte Access ou Filemaker me semblent bien plus adaptés.

Reply

Marsh Posté le 10-10-2005 à 14:38:31    

Merci beaucoup de ta réponse complète et précise ...  
Ca m'a tout l'air de fonctionner. Je suppose qu'il n'y a pas moyen de supprimer la pop-up qui s'ouvre pour indiquer la reference de l'article ... Je voulais noter ma reference directement sur une feuille de garde avec une mise en forme sympa.
Si c'est impossible alors peut on inserer un bouton dans la feuille : 1/ je clique sur le bouton 2/ je note la ref et je suis redirigé
 
Merci beaucoup en tout cas de vous interesser à mes petits soucis   :jap:

Reply

Marsh Posté le 10-10-2005 à 15:20:27    

La référence peut être dans une cellule de la feuille plutôt que dans la boite de dialogue pop-up. Par exemple, si la référence est saisie dans B3 (3ème igne, 2ème colonne, alors le code devient :

Code :
  1. Public Sub change_de_page()
  2.   Dim ref As String
  3.   Dim recherche_cellule As Range
  4.   Dim nouveau_classeur As String, nouvelle_feuille As String
  6.   ' Récupère la référence
  7.   ref = Cells(3, 2).Value
  8.   ' Recherche si la référence existe dans la colonne D
  9.   Set recherche_cellule = Columns("D" ).Find(what:=ref, LookIn:=xlValues)
  10.   If Not recherche_cellule Is Nothing Then
  11.      
  12.      ' Récupère le nom du classeur indiqué dans la colonne E
  13.      nouveau_classeur = Cells(recherche_cellule.Row, "E" ).Value
  14.      
  15.      ' Récupère le nom de la feuille indiquée dans la colonne F
  16.      nouvelle_feuille = Cells(recherche_cellule.Row, "F" ).Value
  17.      'MsgBox (nouveau_classeur & " - " & nouvelle_feuille)
  18.      
  19.      ' Changement de classeur
  20.      Workbooks(nouveau_classeur).Activate
  21.      
  22.      ' Changement de feuille (onglet dans un classeur)
  23.      Worksheets(nouvelle_feuille).Activate
  24.   Else
  25.      ' Non trouvé
  26.      MsgBox ("Réference " & ref & " non trouve." )
  27.   End If
  28. End Sub

Reply

Marsh Posté le 10-10-2005 à 20:52:47    

Super ! Ca me convient parfaitement, comme ca je peux mettre un bouton sympa a cote de la référence ... autant joindre l'utile a l'agreable   :)  
 
Merci beaucoup  :hello:

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed