Fichier Excel pour gestion de fiches de stock ...

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Fichier Excel pour gestion de fiches de stock ...

mugenseiki

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:

Publicité

mugenseiki

UP !

olivthill

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 :

Public Sub change_de_page()
Dim ref As String
Dim recherche_cellule As Range
Dim nouveau_classeur As String, nouvelle_feuille As String
' Demande de saisie d'une référence
ref = InputBox("Saisir une référence", "Redirection" )
' Recherche si la référence existe dans la colonne D
Set recherche_cellule = Columns("D" ).Find(what:=ref, LookIn:=xlValues)
If Not recherche_cellule Is Nothing Then
' Récupère le nom du classeur indiqué dans la colonne E
nouveau_classeur = Cells(recherche_cellule.Row, "E" ).Value
' Récupère le nom de la feuille indiquée dans la colonne F
nouvelle_feuille = Cells(recherche_cellule.Row, "F" ).Value
'MsgBox (nouveau_classeur & " - " & nouvelle_feuille)
' Changement de classeur
Workbooks(nouveau_classeur).Activate
' Changement de feuille (onglet dans un classeur)
Worksheets(nouvelle_feuille).Activate
Else
' Non trouvé
MsgBox ("Réference " & ref & " non trouve." )
End If
End Sub

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

Requin

Excel ne me semble pas le bon produit pour ce projet...

Pour une utilisation monoposte Access ou Filemaker me semblent bien plus adaptés.

mugenseiki

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:

olivthill

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 :

Public Sub change_de_page()
Dim ref As String
Dim recherche_cellule As Range
Dim nouveau_classeur As String, nouvelle_feuille As String
' Récupère la référence
ref = Cells(3, 2).Value
' Recherche si la référence existe dans la colonne D
Set recherche_cellule = Columns("D" ).Find(what:=ref, LookIn:=xlValues)
If Not recherche_cellule Is Nothing Then
' Récupère le nom du classeur indiqué dans la colonne E
nouveau_classeur = Cells(recherche_cellule.Row, "E" ).Value
' Récupère le nom de la feuille indiquée dans la colonne F
nouvelle_feuille = Cells(recherche_cellule.Row, "F" ).Value
'MsgBox (nouveau_classeur & " - " & nouvelle_feuille)
' Changement de classeur
Workbooks(nouveau_classeur).Activate
' Changement de feuille (onglet dans un classeur)
Worksheets(nouvelle_feuille).Activate
Else
' Non trouvé
MsgBox ("Réference " & ref & " non trouve." )
End If
End Sub

mugenseiki

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:

FORUM HardWare.fr

Windows & Software

Logiciels

Fichier Excel pour gestion de fiches de stock ...

Sujets relatifs
petit pb outlook et pb ouverture fichier pdf	Excel, comment faire ?
[Résolu] Cherche un soft de gestion de polices	transformer un fichier access en exécutable
[windows] fichier indestructible...	URGENT mauvais fichier supprimer!!!
Comment faire apparaître la date du jour sur excel ou access?	lenteur de transfert de gros fichier entre 2 PC en ethernet 100
[Excel] [simple] Formule "somme si ..."	transfert de fichier open office vers word
Plus de sujets relatifs à : Fichier Excel pour gestion de fiches de stock ...

Page générée en 0.048 secondes