Mon classeur bug au travail
Bonjour le forum,
J'ai pendant mes congés et avec l'aide du forum, élaborer une gestion de stock pour le travail.
J'ai recommencé à travailler aujourd'hui et tout fier je fais une démonstration et Oupssss message d'erreur
Chez moi cela fonctionne à merveille mais pas là.
Il y a t'il quelque chose à faire pour que cela ne bug pas .
Voici ci-dessous le code et il s'arète sur le "f"
Merci d'avance pour votre aide
Amicalement
Crole18
'=============================
'Initialisation du Formulaire
'=============================
Private Sub UserForm_Initialize()
'Remplissage Liste déroulante REF avec le n° et l'article
'----------------------------------------------------------
Set f = Sheets("Feuil1")
Set Rng = f.Range("A2:C" & f.[a65000].End(xlUp).Row)
Me.REF.ColumnCount = 3
Me.REF.ColumnWidths = "50;50;40"
Me.REF.List = Rng.Value
End Sub
bonjour
i ly a bug parce qu'il y a du VBA
une gestion de stocks se fait sans VBA, juste une table des mouvements E/S et une feuille avec un simple TCD
sans VBA, sans aucune formule non plus
joins ton fichier
Bonjour
déclaration au plus simple
REF.ColumnCount = 3
REF.ColumnWidths = "50;50;40"
With Sheets("Feuil1")
REF.List = .Range("A2:C" & .Range("A" & Rows.Count).End(xlUp).Row).Value
End Withpour aller plus loin if faut un modèle de ton fichier
A+
Maurice
re
voici
sans VBA et sans formules !
j'ai sans doute fait une erreur en inversant les signes des Entrée et Sortie
tu rectifieras
Merci jmd, merci archer et merci le forum pour votre aide,
jmd je vais mettre le fichier corrigé à ma sauce encore merci à toi
Amicalement
Crole18
Merci archer,
Génial
Passe une bonne soirée ainsi que le forum
Amicalement
Crole18