Problème de VBA

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

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

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

avec www.cijoint.fr

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

ok c bon quel sont les modif que tu desire?

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.

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

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

ok

re ok c bon

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

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.

donne moi un exemple stp

si je rentre 2 dans de:
et 4 ds a

tu veux qu il se passe quoi?

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?

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

re

la remise n'est pas recopier?

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

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

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"

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