Problème de VBA
excelium
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'essaye de calculer automatiquement une quantité economique de commande avec un tarif degressif. Cependant je reste bloquer à cause du vba puisque je voudrais automatiser toute la saisie avec des boites de dialogue mais j'ai quelques soucis. Venezme voir en discussion priée et je vous donnerez mon mail, et je vous enverrez le projet excel afin que vous puissiez jeter un coup d'oeil, toute modification ou commentaires sont les bienvenus. La j'ai vraiment besoin d'aide!!!!!!
j'essaye de calculer automatiquement une quantité economique de commande avec un tarif degressif. Cependant je reste bloquer à cause du vba puisque je voudrais automatiser toute la saisie avec des boites de dialogue mais j'ai quelques soucis. Venezme voir en discussion priée et je vous donnerez mon mail, et je vous enverrez le projet excel afin que vous puissiez jeter un coup d'oeil, toute modification ou commentaires sont les bienvenus. La j'ai vraiment besoin d'aide!!!!!!
21 réponses
Sinon tu peux le telecharger à partir de ce lient: https://forum.excel-pratique.com/viewtopic.php?forum_uri=excel&t=14743&start=
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Sinon je t'ai envoyer un mess privé avec mon adresse mail contact moi directement et je t'envoi le fichier. non?
Comme je l'ai marqué en commentaire sur la feuille, j'ai créer des userforms le probléme et qu'une fois que je saisi l'interval et la remise je n'arrive pas à passer à la saisie d'un autre interval et remise juste à la suite en dessous.
Oui mais je ne vois pas comment faire pour lier la création de nouvelles lignes avec de :
à : pour l'interval et à coté la remise qui sera rentré par l'utilisateur.
à : pour l'interval et à coté la remise qui sera rentré par l'utilisateur.
aprés rentré la remise, et la tu dois pouvoir saisir un autre interval avec une autre remise en faisant apparaitre automatiquement une nouvelle case du tableau à la suite, en dessous. Tu vois ce que je veux dire?
re
tiens essai ca voir si c un bon debut:
colle le code deriiere ton bouton
intervalde = InputBox("de quel intervale voulez vous partir?", "interval de depart:")
intervalea = InputBox("A quel intervale voulez vous finir?", "interval de fin:")
remise = InputBox("Quel est la remise a effectuer?", "REMISE")
Worksheets("Qe tarif dégressif").Cells(6, 10).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(7, 10).Value = intervalea
Worksheets("Qe tarif dégressif").Cells(6, 12).Value = remise
Worksheets("Qe tarif dégressif").Cells(15, 2).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(16, 2).Value = intervalea
reponse = MsgBox("voulez vous ajoutez?", vbYesNo) '= vbYes(MsgBox("ok ca marche"))
If reponse = vbNo Then Exit Sub
If reponse = vbYes Then
Worksheets("Qe tarif dégressif").Cells(17, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(18, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(17, 1).Value = de
Worksheets("Qe tarif dégressif").Cells(18, 1).Value = a
intervalde = InputBox("de quel intervale voulez vous partir?", "interval de depart:")
intervalea = InputBox("A quel intervale voulez vous finir?", "interval de fin:")
Worksheets("Qe tarif dégressif").Cells(17, 2).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(18, 2).Value = intervalea
End If
tiens essai ca voir si c un bon debut:
colle le code deriiere ton bouton
intervalde = InputBox("de quel intervale voulez vous partir?", "interval de depart:")
intervalea = InputBox("A quel intervale voulez vous finir?", "interval de fin:")
remise = InputBox("Quel est la remise a effectuer?", "REMISE")
Worksheets("Qe tarif dégressif").Cells(6, 10).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(7, 10).Value = intervalea
Worksheets("Qe tarif dégressif").Cells(6, 12).Value = remise
Worksheets("Qe tarif dégressif").Cells(15, 2).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(16, 2).Value = intervalea
reponse = MsgBox("voulez vous ajoutez?", vbYesNo) '= vbYes(MsgBox("ok ca marche"))
If reponse = vbNo Then Exit Sub
If reponse = vbYes Then
Worksheets("Qe tarif dégressif").Cells(17, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(18, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(17, 1).Value = de
Worksheets("Qe tarif dégressif").Cells(18, 1).Value = a
intervalde = InputBox("de quel intervale voulez vous partir?", "interval de depart:")
intervalea = InputBox("A quel intervale voulez vous finir?", "interval de fin:")
Worksheets("Qe tarif dégressif").Cells(17, 2).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(18, 2).Value = intervalea
End If
re
g oublié les " " au niveau du de et du a
Worksheets("Qe tarif dégressif").Cells(17, 1).Value = "de"
Worksheets("Qe tarif dégressif").Cells(18, 1).Value = "a"
g oublié les " " au niveau du de et du a
Worksheets("Qe tarif dégressif").Cells(17, 1).Value = "de"
Worksheets("Qe tarif dégressif").Cells(18, 1).Value = "a"
Oué c sa que je veux mais je viens de me rendre compte que se seré plus simple si je regroupé tout dans le tableau principal en mettant : Interval, remise, prix achat, prix achat mensuel etc... et supprimmer le petit tableau. Je vais essayé de voir comment je peux m'en sortir merci encore cependant si ta la solution pour la mise en forme du tableau en continue a chaque fois qu'on rajoute une ligne. et j'ai une autre question, est ce que l'on peut faire en sorte que les inputbox apparaissent tant qu'on a pas dit NON??