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

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

Problème de VBA - Page 2

Réponse 21 / 21

moiced59 Messages postés 1161 Statut Membre 60

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

Discussions similaires

Erreur d'exécution 13 Incompatibilité de type

VBA excel : résoudre problème de capacité.

Erreur d'exécution '13': Incompatibilité de Type

erreur 13 incompatibilité de type VBA excel

Excel VBA : Récupérer la valeur d'une cellule

Discussions similaires

Newsletters