affichage image + inputbox

PascalXLD

XLDnaute Barbatruc

• 29 Mai 2008

• #2

Re : affichage image + inputbox

Bonjour

Je crois que le plus simple est de passer par un petit userform

 

Vote positif 0 Vote négatif

Spitnolan08

XLDnaute Barbatruc

• 29 Mai 2008

• #3

Re : affichage image + inputbox

Bonjour,

Vraiment pas sûr d'avoir tout compris mais essaie (non testé):

Code:

Private Sub Calcul_On_Click()
Dim DebFuite As String
TableauDebitFuite_on
Application.Wait (Now + TimeValue("0:00:01"))
DebFuite = Val(InputBox("Quel est le débit de fuite en m3/h", "Rupture de bac"))
end sub

Cordialement

 

Vote positif 0 Vote négatif

koko_spv89

XLDnaute Occasionnel

• 29 Mai 2008

• #4

Re : affichage image + inputbox

merci Spitnolan08 ça marche nikel!

c'est bien ça que je voulais.

 

Vote positif 0 Vote négatif

koko_spv89

XLDnaute Occasionnel

• 29 Mai 2008

• #5

Re : affichage image + inputbox

re,

au fait, une inputbox ou une msgbox s'affiche tout le temps en plein milieu de la feuille, y'a-t-il moyen de la faire afficher centrer en haut de la feuille ou pas?

au pire elle est déplaçable mais c juste pour savoir pour que ça ça encore mieux!

 

Vote positif 0 Vote négatif

koko_spv89

XLDnaute Occasionnel

• 3 Juin 2008

• #6

Re : affichage image + inputbox

re à tous

Je me pose une question

je sais qu'on peut commander des macro avec les bouton ok et/ou cancel d'une inputbox mais dans mon cas je sais pas comment faire.

En effet, lorsque j'affiche mon image derrière ma inputbox, j'aimerai que si je fais ok ou cancel, l'image disparaisse automatiquement...
mais comme là j'ai mon code :

Code:

DebFuite = Val(InputBox("Quel est le débit de fuite en m3/h", "Rupture de bac"))

je ne peux pas mettre qqch du style :

Code:

reponse = inputbox("")
if reponse = VbOk then shapes("tab).visible = false

merci de votre aide

 

Vote positif 0 Vote négatif