Bonjour,

Votre sujet n'a jamais reçu de réponse et nous en sommes désolés... :(

Nous espérons sincèrement vous revoir bientôt si vous avez d'autres questions et nous ferons le maximum pour vous répondre le plus rapidement et complètement possible.

A bientôt
:bonjour:

Salut les gars!

J'ai un petit soucis de rien du tout sur un VBA mais je n'arrive plus à avoir le recul nécessaire pour trouver d'où ça vient. Je veux faire la chose la plus simple de la terre : Cliquer sur un bouton, avoir une inputbox qui me pose une question et afficher la valeur saisie dans une cellule. Tout semble fonctionner sauf que le résultat ne s'affiche pas sur ma page (ni sur une autre page donc visiblement pas de problème d'adressage).

Voici le code :

Sub entrée_données()
Dim matière$[color=#00BF00] 'on définit la variable nom que nous voudrons afficher plus tard[/color]
[color=#00BF00]'on va maintenant créer un inputbox pour entrer la matière utilisée[/color]
matière = InputBox("Quelle matière injecter?", "Entrer les données :")
[color=#00BF00]'on va maintenant chercher à afficher ce résultat en E13[/color]
With Range("E13") = matière
[color=#00BF00]'mise en forme du texte :[/color]
With Range("E13")
With .Font
.Bold = True [color=#00BF00]'le gras[/color]
End With
End With
End With



Dim injection$
injection = InputBox("Quelle est la température (T°C) d'injection de la matière?", "Entrer les données :")
With Range("E17") = injection
End With



Dim empreinte$
empreinte = InputBox("Quelle est la température (T°C) de l'empreinte?", "Entrer les données :")
With Range("E23") = empreinte
End With



Dim épaisseur$
épaisseur = InputBox("Quelle est l'épaisseur (mm) indicative de la pièce?", "Entrer les données :")
With Range("E25") = épaisseur
End With

End Sub


Si vous pouvez me dire quel est le pb ce serait cool =)