Re : Saisie avec inputbox
Un autre fichier que celui que j'ai déja donné ?
Au niveau du résultat, le fichier joint est le fichier résultant..
Je souhaite juste saisir les données variables dans les cases jaunes sous forme d'une série de question auxquelles l'utilisateur pourrait répondre dans les input box.
Voila ce que j'ai tenté de faire, associé à un boutan de commande intitulé ("Saisie des données")
Private Sub CommandButton1_Click()
Dim MontantOpe As String
Range("E8").Select
Selection.End(xlUp).Offset(1, 0).Select
MontantOpe = InputBox(" Quel est le montant de l'opération ?")
ActiveCell.Value = MontantOpe
Dim CashAcquerreur As String
Range("l23").Select
Selection.End(xlUp).Offset(1, 0).Select
CashAcquerreur = InputBox(" Quel est le montant du cash apporté par l'acquerreur ?")
ActiveCell.Value = CashAcquerreur
Dim CashFonds As String
Range("l24").Select
Selection.End(xlUp).Offset(1, 0).Select
CashFonds = InputBox(" Quel est le montant du cash apporté par le fonds (Equities hors OC) ?")
ActiveCell.Value = CashFonds
End Sub
Ca fonctionne avec les deux premieres boites (montant, et cash acquerreur, mais des qu'on passe à la troisieme, la cellule sélectionnée reste bloquées sur la L23, celle du cash acquerreur et non du cash fonds*
il doit y avoir un moyen plus elegant que celui que j'ai ténté.....
merci de votre aide.
