Inputbox avec fonction conditionnelle

[naitsirhc]

Bonjour le forum
Je désire créer une macro utilisant un inputbox (on introduit un code), si le code est bon, ce code va s'inscrire dans une cellule active, celle imposée par l'utilisateur.
Ci joint un fichier pour explication
Merci pour votre aide
Naitsirhc

 

[naitsirhc]

Oubli d'envoyer le fichier
Merci

 

[naitsirhc]

Maintenant le fichier [file name=exempleinputbox.zip size=2953]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/exempleinputbox.zip[/file]

 

[Hervé]

bonjour

c'est quelque chose comme ceci que tu recherches ?

Sub Rectangle3_QuandClic()
Dim t As Double

t = Application.InputBox('Le code ?', Type:=1)
If Not t = 0 Then Selection = t

End Sub

salut

 

[naitsirhc]

Salut Eric,
En effet cela fonctionne très bien et programmation très simple.
Merci à toi et au forum
Très bien ce forum!

 

[naitsirhc]

Hervé,
Sorry de t'avoir appelé Eric
Naitsirhc