Historique par macro et récupération de données

[Dizzz]

Bonjour à tous,

Ci-joint mon fichier :
1 fichier, 2 onglets. Le 1er est la fenêtre principale et sert à créer des fiches articles. La 2ème ' historise ' les données d’une fiche numérotée. Je souhaite pouvoir à guise, lorsque je recherche une info, par une nouvelle macro, récupérer les données de l'onglet historique d’une fiche et les reporter sur la fenêtre principale, l'onglet MP. Si vous avez une idée merci beaucoup.

Dizz
[file name=création article_20050520154649.zip size=14185]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/création article_20050520154649.zip[/file]

 

[porcinet82]

salut Dizzz,

ton fichier n'est pas passé, pour rappel, < 50ko, zippé, sans caratères spéciaux et sans espace

bon week a tous

@+

 

[Dizzz]

Merci de m'avoir prévenu, désolé de ce petit incident que je saurai éviter à l'avenir. Voici le fichier (14 ko ça devrait aller).

Dizz

[file name=creationarticle.zip size=14185]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/creationarticle.zip[/file]

 

[MichelXld]

bonjour Dizz , bonjour Porcinet82

la demo récente de Jean-Marie pourra sans doute t'aider , pour ajouter ou consulter les enregistrements

Lien supprimé



bonne soiree
MichelXld

Message édité par: MichelXld, à: 24/05/2005 17:43

 

[Dizzz]

Hello,

Merci pour ce lien intéressant...j'ai quelques années devant moi avant de maitriser la vba comme lui!

@+

 

[Dizzz]

Salut le forum

j'ai bien tenté de trouver une soluce mais malgré ce fil intéressant, c'est encore un peu compliqué pour moi...Si quelqu'un à une solution (presque) toute prête...?
Merci d'avance.

@+

 

[Dizzz]

Bonjour à tous,

Pardon d'être rébarbatif avec ce fil, m'ai j'ai besoin de vous! Je n'arrive pas à développer la partie 'historique' de mon ficher. Merci d'avance de votre aide précieuse!

Dizz

 

[Hervé]

Bonjour

une proposition vite faite en pièce jointe.

Salut
[file name=creation.zip size=17357]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/creation.zip[/file]

 

[Dizzz]

Merci Hervé ça m'a l'air tip-top. J'ai juste une question : est-il possible d'avoir les codes dans la listbox classés dans un ordre croissant?
Cela faciliterait la recherche. Merci beaucoup
Dizz

 

[Hervé]

re

dans le fichier, remplace la macro :

Public Sub initcombobox()

par celle-ci :

Public Sub initcombobox()
Dim tablo()
Dim c As Range
Dim x As Integer, y As Integer, temp2 As Integer
Dim temp1 As String
x = 0

With Sheets('MP').ComboBox1
    .Clear
    .ColumnCount = 2
    .ColumnWidths = '80;0'
End With

With Sheets('HistoriqueMP')
    x = 1
    For Each c In .Range('c2:c' & .Range('c65536').End(xlUp).Row)
        ReDim Preserve tablo(1 To 2, 1 To x)
        tablo(1, x) = c
        tablo(2, x) = c.Row
        x = x + 1
    Next c
End With

For x = 1 To UBound(tablo, 2)
    For y = x To UBound(tablo, 2)
        If tablo(1, x) > tablo(1, y) Then
            temp1 = tablo(1, x)
            temp2 = tablo(2, x)
            tablo(1, x) = tablo(1, y)
            tablo(2, x) = tablo(2, y)
            tablo(1, y) = temp1
            tablo(2, y) = temp2
        End If
    Next y
Next x
ComboBox1.List = Application.Transpose(tablo)

End Sub

salut

Message édité par: Hervé, à: 08/06/2005 12:24

 

[Dizzz]

Salut hervé

pardon mais ça ne fonctionne pas. j'ai bien intégré ton nouveau prog, pas de bog, mais le tri ne se fait toujours pas. Si tu as 1 minute?
merci beaucoup.

dizz

 

[Hervé]

bonjour

remplace dans le code :

Dim tablo()

par

Dim tablo() As Integer

:whistle:

Sinon, faudrait me dire comment est constitué ton code article, me mettre un exemple.

Salut

 

[Dizzz]

Salut hervé.

Ca fonctionne, les codes se trient parfaitement. J'ai essayé d'en créer un max avec un nombre de chiffres différent et au bout de la 10ème création, j'ai un message d'erreur : 'dépassement de capacité'
Impossible donc de créer un nouveau code!
As-tu une idée?
Merci hervé

dizz

 

[Hervé]

salut dizz

On s'en sortira pas tout les deux tant que j'aurais pas vu la codification du numéro 🙂

c'est du style 123456 ou toto456 ???

en tout cas essaye avec: dim tablo() as long

je viens d'essayer avec des nombres à 12 chiffres, pas de problème.

salut

Message édité par: Hervé, à: 10/06/2005 10:02

 

[Dizzz]

Salut Hervé

tu as raison, si je ne réponds pas à ta question, on ne peut pas s'en sortir. Les codes créés sont à 100% numériques, et comportent de 2 à 8 chiffres. J'essaie avec ta madofication et je te redis.

Dizz