Boite de dialogue

[Fox]

Re bonjour tous le monde,


Voilà la macro que j'aimerai réalisés, mais je n'ai pas assez d'expérience en vb.

La macro devra faire cela:

Lorsque je clique sur le bouton de la macro, une boite de dialogue devra s'ouvrir et me demander:

1) Quelle est la granulométrie ?

là j'y indiquerai une réponse.

2) Nombre de tours?

là j'y indiquerai également une réponse.

Ensuite:
ma réponse 1 devra être placé à la cellule A2
ma réponse 2 devra être multiplié par 80 et être placé à la cellule A3

Voilà, merci d'avance.

Fox

 

[schmail]

Bonsoir Fox

Une petite Démo en PJ @+

 

[Fox]

Grand merci pour la boite de dialogue.

Quelques petites questions quand même,

1) ou puis-je changer les placements des cellules au lieu de A2 et A3 qui était un exemple, elle doit être mise en C27 et D27
2) Ma feuille est protégé, donc avant de lancer la macro il doit déprotéger la feuille et quand les cellules sont inscrites, reprotéger la feuille.


Encore merci

 

[schmail]

Re

Tu installes la barre d'outils "Visual Basic" tu cliques sur le bouton "VisualBasic", puis à gauche tu auras l'UserForm1
Tu cliques dessus puis sur la représentation graphique de l'UsF et tu trouveras ce code :


Private Sub CommandButton1_Click()

ActiveSheet.Unprotect 'a rajouter

Range("A2").Value = TextBox1 'Changer A2 en C27
Range("A3").Value = TextBox2 * 80 'Changer A3 en D27

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True 'a rajouter

End Sub

@+

 

[schmail]

Tiens je viens de voir un fil ou Moa explique bien mieux que Moi comment accéder au VBA et "jouer" avec les UserForm @+


<http://www.excel-downloads.com/html/French/forum/messages/1_34346_34346.htm>

 

[Fox]

Grand merci

@+

Fox