Le magasin (base de donnees 3d)

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #16

Re : Le magasin (base de donnees 3d)

Re,
les Combobox intégrés dans les Userform, peuvent-ils gérés et organisés les données de façon linéaire, ce qui est le cas dans le dernier fichier joint ?

merci.

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #17

Re : Le magasin (base de donnees 3d)

Re,
avez-vous un exemple de Userform avec Combobox sur leqquel je pourrais travaillé?
j'ai vraiement un choix d'architecture de fichier à faire, si vous me conseillé un choix plutôt qu'un autre, j'exploiterais celui-là.

re merci.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Janvier 2012

• #18

Re : Le magasin (base de donnees 3d)

Les combobox peuvent faciliter la localisation des données dans des listes linéaires pour peu qu'on ait pris soin d'enregistrer les numéros de ligne en même temps qu'on a constitué leurs listes.

Comme exemple il y a cette gestion de stock pour un labo, avec comme difficultés supplémentaire que la liste des échantillons n'est pas triée et que l'ordre des choix dans les combobox n'est pas figé. En revanche le volume des données est moins important. La programmation dans votre cas devrait être un peu plus simple.

 

Pièces jointes

• GestionStockLabo.xls

  212.5 KB · Affichages: 64
• GestionStockLabo.xls

  212.5 KB · Affichages: 75
• GestionStockLabo.xls

  212.5 KB · Affichages: 59

Dernière édition: 1 Janvier 2012

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #19

Re : Le magasin (base de donnees 3d)

Re,

les Combobox associés aux Userform, peuvent-ils gérés les données de façon linéaire, ce qui est le cas dans le dernier fichier joint,
pourrai-je saisir toutes les données relatives à une seule ville, ce qui simplifierais la saisie ?
je dois vraiement faire un choix d'architecture de fichier, si vous me conseillé celle-ci plutôt que celle-là, j'irais dans votre sens.
avez-vous un exemple de Userform avec Combobox sur lequel je pourrais travaillé?

Encore merci.

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #20

Re : Le magasin (base de donnees 3d)

oups
il y a eu un problème de synchro,

je vois que j'ai du pain sur la planche, si je pouvais avoir un petit coup de pousse...
il faut que je me lance dans ces Userform avec Combobox, je pens qu'avec quelques boîtes d'aspirine...

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #21

Re : Le magasin (base de donnees 3d)

je m'étais trompé de page, excuse,

merci pour l'exemple, je prends et travaille dessus cet après midi, reprise de contact ce soir.

c'était vraiment sympa de votre part, à tout de suite.....

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #22

Re : Le magasin (base de donnees 3d)

j'ai un problème, une erreur de compilation j' ai ceci qui s'affiche:

 

Pièces jointes

• Capture_1.jpg

  52.3 KB · Affichages: 52
• Capture_1.jpg

  52.3 KB · Affichages: 46

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Janvier 2012

• #23

Re : Le magasin (base de donnees 3d)

Il doit y avoir une référence manquante à décocher dans Outils, références de Visual Basic.

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #24

Re : Le magasin (base de donnees 3d)

dans VBA >outils>référence est grisé.

 

Vote positif 0 Vote négatif

P

patoq

XLDnaute Occasionnel

• 1 Janvier 2012

• #25

Re : Le magasin (base de donnees 3d)

Re
Pour la saisie en cascade dis moi la hierarchisation .
D'abord magasin puis gondole puis rayon puis produit c'est ça?
suis en train de concoter un "truc"
Merci

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #26

Re : Le magasin (base de donnees 3d)

excusez moi je regardais l'inspecteur CLUSEAU,
merci "patoq" de prendre soin de mon sujet.
la hierarchisation que tu donnes est la bonne, en fait c'est l'entonnoir inversé, qui s'évase au fur et à mesure.
si tu reprends le fichier que j'ai joint à un moment de la discution tu verras sous forme de cellule l'arborescence.

merci à toi et à vous tous pour votre aide.

 

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #27

Re : Le magasin (base de donnees 3d)

pourquoi "dranreb" dans ton fichier, sur la feuille "STOCK" les titres de colonne sont en défaut "#NOM?" ?
la macro tourne en rond et je n'arrive pas à débugger.

merci.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 1 Janvier 2012

• #28

Re : Le magasin (base de donnees 3d)

Il faut réinitialiser le projet pour pouvoir modifier les références.

 

Vote positif 0 Vote négatif

P

patoq

XLDnaute Occasionnel

• 1 Janvier 2012

• #29

Re : Le magasin (base de donnees 3d)

Re xhudi69
regarde ceci et dis moi si ça peut etre une piste de commencement

 

Pièces jointes

• patoq.xlsm

  43.6 KB · Affichages: 49
• patoq.xlsm

  43.6 KB · Affichages: 53
• patoq.xlsm

  43.6 KB · Affichages: 49

Vote positif 0 Vote négatif

xhudi69

XLDnaute Accro

• 1 Janvier 2012

• #30

Re : Le magasin (base de donnees 3d)

bonsoir,
désolé mais cela bugg toujours sur la même ligne
j'ai eu beau réinitialiser rien n'y fait
ou alors quelque chose m'échappe, même avec l'éditeur d'objet je n'y arrive pas, il faut dire que je ne suis pas à ton niveau de programmation.
je t'ai fait un copie collé de la partie qui bugg.

Function NomPlage(Optional ByVal Rg As Range, Optional ByVal Déf As String = "") As String
Dim Nom As String
If Rg Is Nothing Then
Set Rg = Application.Caller
Nom = NomPlage(Rg.Offset(1, 0))
If Nom = "" Then Nom = NomPlage(Rg.Offset(0, 1))
If Nom = "" Then Nom = NomPlage(Rg.Offset(-1, 0))
If Nom = "" Then Nom = NomPlage(Rg.Offset(0, -1))
Else
On Error Resume Next: Nom = Rg.Name.Name
If Err <> 0 Then NomPlage = Déf: Exit Function
End If
NomPlage = Mid$(Nom, PosPExcla(Nom) + 1)
End Function

 

Vote positif 0 Vote négatif