Microsoft 365 inventaire vba

ChTi160

XLDnaute Barbatruc

• 21 Mai 2019

• #2

Bonjour vba92
un petit fichier exemple de ce que tu as et ce que tu veux , nous permettrait peut etre de t aider.
jean marie

 

Vote positif 0 Vote négatif

V

vba92

XLDnaute Nouveau

• 22 Mai 2019

• #3

bonjour je vous joins mon dossier excel. je veux un formulaire de saisie qui mette la date du jour de l'inventaire après les quantité en face des référence d'article. je vous joins mon dossier peut-être que la mise en forme de mon tableau n'est oas top. diste moi svp.

 

Pièces jointes

• saisie_inventaire_sortie.xlsm

  12 KB · Affichages: 38

Vote positif 0 Vote négatif

V

vba92

XLDnaute Nouveau

• 22 Mai 2019

• #4

j'ai commencé à coder ceci;

"Private Sub CommandButton5_Click()
Dim part_name As Integer

If Me.ComboBox1.ListIndex >= 0 And Me.TextBox2 <> "" Then
'rechercher dans article
part_name = WorksheetsFunction.VLookup(Me.ComboBox1, Sheets(5).Range("b:d"), 2, 0)
'remplir la zone de liste
With Me.ListBox1
.AddItem
.List(mémoire, 0) = Me.ComboBox1
.List(mémoire, 1) = Me.TextBox2
End Sub

Private Sub TextBox2_Change()
If Not IsNumeric(TextBox2) And TextBox2 <> "" Then
MsgBox "désoler uniquement des chiffres"
TextBox2 = ""
End If
End Sub"
faudra que je code la date pour qu'elle s'affiche en colonne;..

 

Vote positif 0 Vote négatif

V

vba92

XLDnaute Nouveau

• 22 Mai 2019

• #5

voilà comment je disposer mes label dans mon userform

 

Pièces jointes

• Capture.JPG

  310.4 KB · Affichages: 44

Vote positif 0 Vote négatif

V

vba92

XLDnaute Nouveau

• 22 Mai 2019

• #6

ChTi160 à dit:

Bonjour vba92
un petit fichier exemple de ce que tu as et ce que tu veux , nous permettrait peut etre de t aider.
jean marie

Cliquez pour agrandir...

Bonjour, j'ai joint les docs en commentaire.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 23 Mai 2019

• #7

Bonsoir le fil, vb92, Chti160

vba92 [Bienvenue sur le forum]
Plutôt qu'une copie d'écran, joins un nouveau classeur avec dedans le code VBA et les userforms que l'on voit dans tes copies d'écran.

NB:
En règle générale, les classeurs Excel sont le type de fichier que les "répondeurs" du forum espèrent voir joints par les "demandeurs".

 

Vote positif 0 Vote négatif

V

vba92

XLDnaute Nouveau

• 23 Mai 2019

• #8

Staple1600 à dit:

Bonsoir le fil, vb92, Chti160

vba92 [Bienvenue sur le forum]
Plutôt qu'une copie d'écran, joins un nouveau classeur avec dedans le code VBA et les userforms que l'on voit dans tes copies d'écran.

NB:
En règle générale, les classeurs Excel sont le type de fichier que les "répondeurs" du forum espèrent voir joints par les "demandeurs".

Cliquez pour agrandir...

bonjour merci pour la reponse, voilà le fichier avec le classeur vba.

 

Pièces jointes

• saisie_inventaire_sortie.xlsm

  19.8 KB · Affichages: 60

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 24 Mai 2019

• #9

Bonsoir le fil,

Pourquoi ne retrouve-t-on pas le code VBA de ton message#4 dans l'userform du classeur joint au message#8 ?

Sinon, pour commencer un petit bout de code à ajouter dans ton userform

VB:

Private Sub UserForm_Initialize()
With Feuil3
ComboBox1.List = .Range("A2:A" & .Cells(Rows.Count, 1).End(3).Row).Value
End With
TextBox1 = Date: TextBox2 = 1
End Sub

NB: Il est communément admis qu'on mets toujours la ligne d'entête d'un base de donnée sur la ligne 1
Donc sur la feuille Articles, j'ai modifié comme suit
en A1=> CODE et B1 ARTICLE
et pour tester le code VBA que je viens de soumettre
en A2 -> ART-001 puis recopie vers le bas
en B2 -> article 1 puis recopie vers le bas

 

Vote positif 0 Vote négatif