Discussion :

[morneauc]

Bonjour, j'ai un "Formulaire" de commande dans un tableau Excel ,
dans mon userform j'ai une case qui recherche les donnée dans la feuille "'formulaire" avec la donnée scanné lecteur optique, il recherche cette donnée le formulaire, ils remplier toute les champs du userfrom , par la suits je veux rentrer la quantité du produits a commander. et le mettre sur la bonne lignes, je N'arrive pas a faire cette commande j'ai toujour un code d'erreur,
je vous aient joint mon fichier.

merci beaucoup .

[Philippe Tulliez]

Bonjour,
Le dépôt d'un classeur dès la première discussion n'est pas particulièrement le bienvenu d'autant plus qu'étant donné le peu d'explications données dans cette question laisse sous entendre que tu nous laisses le soin de déchiffrer ton problème et de le résoudre.
Je fais cela lors de consultance (et encore on a au préalable un entretien) que je facture mais pas dans une aide ponctuelle sur un site d'entraide comme celui-ci mais peut-être une âme charitable le fera.

Je te laisse déjà découvrir ces tutoriels

• Utiliser les UserForm en VBA Excel
• Utiliser les contrôles dans un UserForm, en VBA Excel

ou cette contribution

• USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire

[morneauc]

Désolé si je vous est offenser,

Mon problème est quand je mette la quantité a commander et que J'appuis sur le bouton de commande le transfert de la quantité a commande ne ce transfert pas dans un fichier excel prévus a cette effet

voici ma fromule et mon erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub CommandButton1_Click()


If Me.TBQTE = "" Then
MsgBox ("VOUS AVEZ OUBLIER D'AJOUTÉ UNE QUANTITÉ !")
Else


Sheets("Formulaire").ListObjects(1).DataBodyRange(Me.LBid, 3) = Me.TBQTE

End If
End Sub

merci

[Philippe Tulliez]

Bonjour,
Dans cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Formulaire").ListObjects(1).DataBodyRange(Me.LBid, 3) = Me.TBQTE

Que vaut Me.LBid ?
La valeur n'est elle pas égale à 0 ou supérieure au nombre de lignes de ListObjects(1) ?
Quel numéro et message d'erreur reçois-tu ?