Discussion :

[Kestion100]

Bonjour,
Je suis entrain de faire un formulaire et pour l'aide au saisissant, je voudrais inscrire, dans un champ, l'heure indiquée dans un autre champ au format HH:mm, au format 0,00.
Pour l'instant, dans un tableau à deux cellule / 1 colonne je rentre l'heure HH:mm dans un champ de formulaire et dans la cellule de gauche, je vais en suite dans la cellule de droite et, dans "DISPOSITION" ... "DONNEES" ... "FORMULE", j'ai essayé de traduire la formule excel:

Code :

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

=(A1-ENT(A1))*24

en

Code :

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

=PRODUCT(SUM(HEUREACONVERTIR;-INT(HEUREACONVERTIR));24)

au format

Code :

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

=PRODUCT(SUM(HEUREACONVERTIR;-INT(HEUREACONVERTIR));24) \# "0,00"   \* MERGEFORMAT

et j'obtiens désespérément 0,00.

Après avoir fouillé, à la formule

Code :

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

=HEUREACONVERTIR

au format

Code :

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

\# "0,00"

word additionne HH et mm.

Par exemple, je rentre: 01:30, word calcule 31, 02:16 : 18.

Quelqu'un pourrait me dépanner?

Merci beaucoup d'avance.

[Heureux-oli]

Salut,

Si c'est un champ de formulaire, il est beaucoup plus facile d'utiliser du VBA.

[Kestion100]

Le but est que le saisissant saisisse un durée: HH:mm et qu'elle soit convertit en décimales.

Je suis preneur pour du vba

[Heureux-oli]

Salut,

Un bout de code qui peut-être exécuté à la sortie d'un champ de formulaire.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TestOli()
Dim myTime As Date
 
myTime = ActiveDocument.FormFields(2).Result
 
Debug.Print myTime
Debug.Print CDbl(myTime)
 
 
 
End Sub

Dans ce cas, je demande juste l'affichage dans la fenêtre exécution du résultat.

[Kestion100]

Je prends ton code et trouve le bout pour inscrire le résultat dans un champ?

[Kestion100]

Quelque chose comme ça?:

Code :

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

1
2
3
 
'Fields(1) : premier champ du document Word %%%
WordDoc.Fields(1).Result.Text = "essai d'ecriture dans champ Word"

[Kestion100]

Je peux nommer le champ?

[Kestion100]

J'ai trouvé ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TestOli()
Dim myTime As Date
 
myTime = ActiveDocument.FormFields("HEUREACONVERTIR").Result
 
'Debug.Print myTime
'Debug.Print CDbl(myTime)
 
 ActiveDocument.FormFields("HEUREDECIMALES").Result = myTime
 
End Sub

qui me renvoie:

23000,00 quand je tape: 02:30

Ce n'est pas le résultat escompté mais on approche.

Au fait, la valeur qu'il me faudrait récupérer est:

(myTime - ent(myTime))*24

Je pense que ça n'est pas aussi simple?

[Kestion100]

J'ai été pessimiste:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub TestOli()
Dim myTime As Date
 
myTime = ActiveDocument.FormFields("HEUREACONVERTIR").Result
 
'Debug.Print myTime
'Debug.Print CDbl(myTime)
 
 ActiveDocument.FormFields("HEUREDECIMALES").Result = (myTime - Int(myTime)) * 24
 
End Sub

fonction parfaitement!!!!!!