convertir vba en vbs

**PUARAI** · 17/03/2010, 06h27

Bonjour à tous, et bientôt le printemp,

Je voudrais vous posez une question peut etre simple pour vous mais pour moi !!!

Voila mon probléme je travail ces temps si avec du html css php

al'interieur j'utilise des balises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
<script language="VbScript">
 
</script>

pour des calculs.

Et la question est, (j'ai fait un peu de vba) donc voici une formule
=MOD(D6-C6;1)-SI(D6>=C6;MAX(0;MIN(D6;"21:")-MAX(C6;"6:"));MAX(0;"21:"-MAX(C6;"6:"))+MAX(0;MIN(D6;"21:")-"6:"))
Sachant trés bien que D6 et C6 Sont des cellules sur excel.
cette formule me permet de calculer les heures nuits.
Est ce possible d'utiliser cette formule dans du vbscript et quelle sont equivalence parce que la j'ai beau chercher des exemples sur le net mais rien
Si quequ'un à une réponse ce serais trés sympa merci d'avance

**SfJ5Rpw8** · 17/03/2010, 07h37

un peu plus de précision S.V.P, ton script il est ou au final ? dans une feuile html à laquelle tu accède grâce à internet explorer ?

en Vba avec excel les données utilisées comme source à ton calcul sont dans des cellules d'une feuille de calcul .. Dans ton script elles sont censés être ou ces données ?

**PUARAI** · 17/03/2010, 07h58

Bonjour,
En faite voila,ma page html:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
<html>
<head>
<title>fact 1.0</title>
<script type="text/vbscript">
	sub ok_onclick
	document.commande.total.value = document.commande.depart.value - document.commande.debut.value
	msgbox "alerte"
	end sub
</script>
</head>
	<body>
	<form name="commande">
	<table align="center">
		<tr>
			<td align="center"><input type="text" name="debut"/><input type="text" name="depart"/><input type="button" name="ok" value="calculer"/><input type="text" name="total"/></td>
		</tr>
	</table>
	</form>
	</body>
</html>

Et je voudrais remplacer ma formule qui est à l'intérieur c'est à dire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

document.commande.total.value = document.commande.depart.value - document.commande.debut.value

Par :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MOD(D6-C6;1)-SI(D6>=C6;MAX(0;MIN(D6;"21:")-MAX(C6;"6:"));MAX(0;"21:"-MAX(C6;"6:"))+MAX(0;MIN(D6;"21:")-"6:"))

en remplaçant la cellule D6 par mon champ depart et C6 par mon champ debut.
Enfin c'est ce que je demande, mais maintenant quand je vois la formule je me dis c'est peu pas fesable ???
enfin c'est ce que je me dis mais merci d'avance d'avoir pencher sur mon probleme bbil

**SfJ5Rpw8** · 17/03/2010, 08h34

ben si tu connais excel et ces formules la premiére chose est de comprendre ta formule qui comporte des éléments un peu bizarre ?

style :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MIN(D6;"21:")

Il y as quoi dans ta cellule D6 du texte ? une date/heure ?

en gros le plus dur tans ton affaire c'est de comprendre à quoi sert ta formule ? après je suis sur que tu pourra l'écrire beaucoup plus simplement que dans une cellule d'Excel .

**PUARAI** · 17/03/2010, 09h36

En faite dans ma colonne D6 ce sera l'heure de départ et C6 l'heure d'arrivée et ces deux cellules sont aux formats heures dans excel biensure.

Dans une autre cellule (E6), qui lui reccupere le résultat avec cette formule à l'intérieur :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MOD(D6-C6;1)-SI(D6>=C6;MAX(0;MIN(D6;"21:")-MAX(C6;"6:"));MAX(0;"21:"-MAX(C6;"6:"))+MAX(0;MIN(D6;"21:")-"6:"))

Donc voila je ne sais pas, si je me suis bien pris, merci encore de votre aide.
Je me dis que cette histoire ne vas pas etre facile pour moi.

**SfJ5Rpw8** · 17/03/2010, 10h43

Envoyé par PUARAI

Dans une autre cellule (E6), qui lui recupere le résultat avec cette formule à l'intérieur :...?

et tu ne sais pas ce qu'elle est censé calculer ta formule ?

convertir vba en vbs

VBScript

Vue hybride

Discussions similaires

Partager

Partager