VBA erreur de compilation
bonjour à tous
j ai un soucis au niveau de l 'enregistrement de mes sorties et de mes entrées automatiquement
rien ne se passe
voici mon codage
Private Sub CommandButton2_Click()
Dim dl As Integer
Dim list_nombre As Integer
Dim ligne As Integer
list_nombre = Me.List_order.ListCount - 1
If Me.List_order.ListCount > 0 Then 'controler si la list n 'est pas vide
If MsgBox("voulez vous enregistrer cette transaction!", vbYesNo) = vbYes Then
For ligne = 0 To list_nombre
'ajouter une nouvelle liste dans notre tableau
Sheets(5).ListObjects(1).ListRows.Add
'chercher le Nr de la prochaine ligne libre dans notre tableau
dl = Sheets(5).Range("b9999").End(xlUp).Row
'ajouter les informations dans notre base de donnée
Sheets(5).Range("b" & dl) = Me.info1
Sheets(5).Range("c" & dl) = Me.Txt_facture
Sheets(5).Range("d" & dl) = Me.Cbx_order
'controler si c'est un fournisseur ou un client
If Me.Label_type = "fournisseur" Then
Sheets(5).Range("e" & dl) = Me.Cbx_type
Else
Sheets(5).Range("f" & dl) = Me.Cbx_type
End If
'ajouter les données dans la zone de list
Sheets(5).Range("g" & dl) = Me.List_order.List(ligne, 0)
Sheets(5).Range("h" & dl) = CInt(Me.List_order.List(ligne, 1))
Next ligne
MsgBox "booking est fait"
Unload Me
ThisWorkbook.Save
Sheets(8).Range("d21") = Sheets(8).Range("d21") + 1
ThisWorkbook.Save
End If
End IfEdit : merci de mettre le code entre balise grâce au bouton </>
merci pour votre aide
Une copie d'écran ne peut pas remplacer un fichier. Si tu veux un coup de main, il faudrait nous le soumettre ici. Déjà tu as un End if en trop à la fin. Si tu indentais ton code, tu l'aurais vu tout de suite. Tu as un outil pour insérer un code dans la barre d'outils </>
bonjour
voilà le fichier
si vous s aviez me vérifier tous le fichier
car des que j apporte une solution d'autres problèmes se créent
merci
Bonjour feron.guy
bonjour
si vous s aviez me vérifier tous le fichier
car des que j apporte une solution d'autres problèmes se créent
Je ne peux que vous conseiller de suivre une formation sur le VBA
Vous pouvez déjà commencé sur ce site https://www.excel-pratique.com/fr/vba
Bonjour Bruno, bonjour Guy,
Je n'ai vérifié et corrigé que la feuille des commandes (onglet 'order') dont tu pourras t'inspirer.
Quelques remarques :
- le numéro de la commande suivante n'a rien à faire dans les paramètres de configuration (onglet 'config'). On peut le calculer directement à partir du dernier n° de commande de l'onglet 'order'.
- il est nécessaire que tu paramètres ton VBE avec une déclaration obligatoire des variables, ce qui se traduit par une ligne Option Explicit que l'éditeur ajoutera automatiquement en tête de code. Pour cela, aller dans les Outils VBE...Options...Editeur...cocher la case "Déclaration des variables obligatoire".
- il est fortement conseillé d'indenter ton code. Pour toi, mais surtout pour ceux qui après toi seront peut-être appelés à le maintenir.
- il faut également le renseigner avec des remarques bien placées (sans trop en mettre, car les remarques en excès tuent les remarques).
- enfin, attention aux incohérences. Exemple : tu as mis une combo avec la liste des fournisseurs dans l'UF "order" ; lorsque tu ajoutes un article dans la liste, tu ne t'assures pas que l'utilisateur a bien sélectionné un fournisseur. Une commande sans le nom du fournisseur ce n'est pas top dans un historique.
Bon courage pour la suite. Il y a déjà pas mal de travail là-dedans, le retour aux fondamentaux conseillé par Bruno te serait d'une grande utilité. Le plus tôt sera le mieux.
merci pour votre message.
j aime votre commentaire qui dit que je dois revenir aux fondamentaux.
C est vrai mais je suis sur ce fichier depuis début janvier.
je ne connais rien d' Excel.
j ai fait des copier coller , j ai regardé des tutos .etc... pour pouvoir faire un gestionnaire de stock à ma fille
je n en peu plus et j arrive presqu'à la fin.
J aimerais garder la forme originel de ce fichier car je m y suis habitué
j ai besoin de toutes les aides possible et après je range Excel pour de bon.
merci
Si tous ceux qui disent ne rien y connaître en savaient autant. Bravo !