- lun. 13 avr. 2015 15:23
#161723
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$ 'on définit la variable nom que nous voudrons afficher plus tard
'on va maintenant créer un inputbox pour entrer la matière utilisée
matière = InputBox("Quelle matière injecter?", "Entrer les données :")
'on va maintenant chercher à afficher ce résultat en E13
With Range("E13") = matière
'mise en forme du texte :
With Range("E13")
With .Font
.Bold = True 'le gras
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 =)
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$ 'on définit la variable nom que nous voudrons afficher plus tard
'on va maintenant créer un inputbox pour entrer la matière utilisée
matière = InputBox("Quelle matière injecter?", "Entrer les données :")
'on va maintenant chercher à afficher ce résultat en E13
With Range("E13") = matière
'mise en forme du texte :
With Range("E13")
With .Font
.Bold = True 'le gras
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 =)
