Autres Message box pour remplir une fiche

abdernino1985

XLDnaute Junior
Bonjour le forum ,
je veux sur l'onglet base mettre des messages box pour remplir ma fiche
un bouton commencer decompte
message box 1 : montant dommage et le copié sur F8
message box 2 : montant Main D'œuvre et le copié sur F9
message box 3 : montant Peinture et le copié sur F10
message box 4 : montant BDG D'œuvre et le copié sur F11
message box 5 : montant Montant pneu et le copié sur F12
message box 6 : taux Vetusté et le copié sur E15 la valeur peut etre egal a zéro
message box 5 : taux Vetusté Pneumatique et le copié sur E16 la valeur peut etre egal a zéro
aprés demandé si il y lieux d'appliqué une REG Prp si non je veux F19:F21 n'affiche rien j'ai n'ai pas dans la mesure du possible
idem pour F24:F26.
si oui demadé quelle REG Prp appliqué
REG Prp AGE si oui demandé la valeur RC Payée quand doit copié dans F18 ,si non on passe a l'autre question REG Prp Permis si oui demandé la valeur RC Payée quand doit copié dans F19.si non on passe a REG Prp Capitaux on demande si oui on demande Valeur Assuré quand copie sur F13 puis Valeur venale quand copie sur F14.
si non pout tout ne rien affiché sur F19 a F21 et de F24 a F29
message box dernier : taux Franchise et le copié sur E22 qui parfois etre un montant fixe alors donner le choix entre taux ou franchise fixe
 

Pièces jointes

  • Autorisation V9.xlsm
    101.3 KB · Affichages: 6

Staple1600

XLDnaute Barbatruc
Bonsoir le fil,

Les MsgBox sont fait pour afficher des messages.
(*)Pour envoyer des valeurs vers des cellules, il faut passer par des contrôles TextBox disposés sur un Userform.
Ou plus "rudimentaire" passer par N InputBox

(*) Mais cela, tu le savais déjà (je viens juste de m'en apercevoir)
 

Staple1600

XLDnaute Barbatruc
Re

Pour préciser mon propos sur les MsgBox et les InputBox, testes ce petit exemple.
VB:
Sub exemple()
Dim Valeur_z
Valeur_z = InputBox("Saisir une valeur", "Test", Application.UserName)
MsgBox "La valeur saisie était: " & Valeur_z, vbInformation
Range("A1") = Valeur_z
End Sub
 

Discussions similaires

Réponses
2
Affichages
80

Statistiques des forums

Discussions
311 720
Messages
2 081 915
Membres
101 837
dernier inscrit
Ugo