Microsoft 365 inventaire vba

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

vba92

XLDnaute Nouveau
bonjour, je voudrai créer un dossier de saisie de mes inventaires à partir d'un formulaire userform, mais je ne suis restée bloquer sur le codage du commandbutton pour l'exécution de mon formulaire.
pourriez vous m'aider svp?
 
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;..
 
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".
😉
 
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".
😉
bonjour merci pour la reponse, voilà le fichier avec le classeur vba.
 

Pièces jointes

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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
334
Réponses
4
Affichages
459
Réponses
4
Affichages
314
Réponses
10
Affichages
519
D
  • Question Question
2
Réponses
28
Affichages
2 K
Deleted member 441486
D
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
79
Retour