Gestion pièces en stock

Bonjour,

j'ai besoin d'aide SVP

je veux crée un fichier excel avec 3 user formes , une pour ouvrir le ficher ( image en feuille 1) , une pour déclaré les entrées sorties de pièces et une dernière pour rechercher les pièces

le problème est le suivant : j'arrive pas a compiler les 3 solution dans un seul fichier.

Merci de votre aide

Bonsoir Lalayoussef le forum

Ton fichier en retour avec l'userform et la recherche dans le fichier pièces

Tu tapes n'importe quoi dans le textbox et plus tu tapes plus cela s'affine

a+

papou

paritec a écrit :

Bonsoir Lalayoussef le forum

Ton fichier en retour avec l'userform et la recherche dans le fichier pièces

Tu tapes n'importe quoi dans le textbox et plus tu tapes plus cela s'affine

a+

papou

Merci , il reste la suite a faire mais j'avances bien

Re Lalayoussef le forum

oui j'ai bien avancé ton fichier !!!

a+

Papou

Bonjour,

merci pour votre aide

mon projet est presque fini , il me manque juste quelques modifs

j'ai besoin de copier la valeur d'une cellule de la première colonne ( comme sur la photo , premiere ligne j'ai besoin de copier 9748795 )

je sais pas comment faire!!!

merci

Bonjour,

Je ne sais pas exactement quelle copie tu veux faire, mais ceci t'aidera peut-être :

Private Sub L1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

MsgBox (L1.List(L1.ListIndex, 0))

End Sub

Ce code permet d'afficher le n°JDE de la ligne sur laquelle tu cliques, tu peux donc récupérer ce numéro

Et donc tu peux le placer ailleurs

Il suffit de double cliquer sur la ligne pour lancer la macro, il faut placer ce code dans ton userform4 pour que ça fonctionne.

Ausecour a écrit :

Bonjour,

Je ne sais pas exactement quelle copie tu veux faire, mais ceci t'aidera peut-être :

Private Sub L1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

MsgBox (L1.List(L1.ListIndex, 0))

End Sub

Ce code permet d'afficher le n°JDE de la ligne sur laquelle tu cliques, tu peux donc récupérer ce numéro

Et donc tu peux le placer ailleurs

Il suffit de double cliquer sur la ligne pour lancer la macro, il faut placer ce code dans ton userform4 pour que ça fonctionne.

merci j'ai la msgbox avec la bonne information mais j'arrive pas a la copier

Après une courte recherche sur internet, ils utilisent un dataobject et l'objet clipboard :

Private Sub L1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set texte = New DataObject
texte.SetText L1.List(L1.ListIndex, 0)
texte.PutInClipboard
MsgBox ("Le code JDE a été placé dans le presse papier, vous pouvez le coller.")
End Sub

Ausecour a écrit :

Après une courte recherche sur internet, ils utilisent un dataobject et l'objet clipboard :

Private Sub L1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Set texte = New DataObject
texte.SetText L1.List(L1.ListIndex, 0)
texte.PutInClipboard
MsgBox ("Le code JDE a été placé dans le presse papier, vous pouvez le coller.")
End Sub

j'ai essayé sa marche pas

Bonjour

Merci Ausecour et Paritec

j'ai testé cela fonctionne en déclarant la variable texte dans l'userform 4

par : Dim texte

Private Sub L1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim texte  ' à rajouter
Set texte = New DataObject
texte.SetText L1.List(L1.ListIndex, 0)
texte.PutInClipboard
MsgBox ("Le code JDE a été placé dans le presse papier, vous pouvez le coller.")
End Sub

note : ma version d'Excel 2013 à ce jour

crdlt, André

Merci d'avoir trouvé la solution, j'avais trouvé clipboard avec sa fonction putinclipboard via l'explorateur la première fois, mais impossible de remettre la main dessus la deuxième fois que j'ai cherché...

Bonne journée

Bonjour à tous

Erreur de post

a+

Papou

bonjour

exemple sans VBA, hyper-simple, pour gérer 10 ou 10 000 lignes

https://forum.excel-pratique.com/viewtopic.php?f=3&t=115533

bon travail