Problème de VBA Fermé

Question

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!!!!!!

moiced59 · Answer

bonjour poste ton programme et on pe y regarder si tu veu

excelium · Answer

J'aimerai bien mais je ne c'est pas comment on fait pour mettre un fichier joint!!

moiced59 · Answer

avec www.cijoint.fr

excelium · Answer

Sinon je t'ai envoyer un mess privé avec mon adresse mail contact moi directement et je t'envoi le fichier. non?

excelium · Answer

Sinon tu peux le telecharger à partir de ce lient: https://forum.excel-pratique.com/viewtopic.php?forum_uri=excel&t=14743&start=

moiced59 · Answer

ok c bon quel sont les modif que tu desire?

excelium · Answer

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.

moiced59 · Answer

ah ok le probleme c que je né pas les macros sur la feuille !!!!

excelium · Answer

C bon tu peux retourner sur le lien j'ai posté la feuille avec les macros. Autant pour moi!!

moiced59 · Answer

ok

moiced59 · Answer

re ok c bon

pourquoi passer par un formulaire?
pourquoi ne pas passer par d inputbox?

excelium · Answer

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.

moiced59 · Answer

donne moi un exemple stp

si je rentre 2 dans de:
et 4 ds a 

tu veux qu il se passe quoi?

excelium · Answer

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?

moiced59 · Answer

oui ok ca ca je fais un essai et je t envoi le code que tu essai

moiced59 · Answer

re 

la remise n'est pas recopier?

excelium · Answer

non aprés c une formule que j'integre dans le calcul

moiced59 · Answer

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

moiced59 · Answer

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"

excelium · Answer

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??

moiced59 · Answer

oui la pour l exemple j en ai mis que 1

mais il te suffit de recopier le code et d ajouté 2 au ligne
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(19, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(20, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(19, 1).Value = "de"
Worksheets("Qe tarif dégressif").Cells(20, 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(19, 2).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(20, 2).Value = intervalea

puis

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(21, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(22, 1).Select
Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
Worksheets("Qe tarif dégressif").Cells(21, 1).Value = "de"
Worksheets("Qe tarif dégressif").Cells(22, 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(21, 2).Value = intervalde
Worksheets("Qe tarif dégressif").Cells(20, 2).Value = intervalea

ainsi de suite

Problème de VBA

21 réponses

Discussions similaires