Problème de VBA

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

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

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"

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

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

re

la remise n'est pas recopier?

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

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?

donne moi un exemple stp

si je rentre 2 dans de:
et 4 ds a

tu veux qu il se passe quoi?

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.

re ok c bon

pourquoi passer par un formulaire?
pourquoi ne pas passer par d inputbox?

ok

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

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

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.

ok c bon quel sont les modif que tu desire?

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

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

avec www.cijoint.fr

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