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 - 28 déc. 2009 à 14:48

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

A voir également:

Problème de VBA
Excel compter cellule couleur sans vba - Guide
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Vba excel sélectionner une plage de cellules variable ✓ - Forum VB / VBA
Find vba - Astuces et Solutions

21 réponses

Réponse 21 / 21

moiced59 Messages postés 1145 Date d'inscription Statut Membre Dernière intervention 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

"L'indice n'appartient à la sélection" + VBA

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

erreur 13 incompatibilité de type VBA excel

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

Votre réponse

Discussions similaires