histoire de 15 min

[justine]

bonsoir a tous.
je suis entrain de faire une petite application et je coince sur un petit probleme.
sur une feuille xl, j'ai un tableau ou je colore certaine cellules en rouge si la personne fait des heures supplementaires.
chaques cellules colorées representent 15 min.
comment en fin de calcul, convertir la somme des minutes en heures et le reste en minutes.
j'aimerais avoir la solution en vba.

justine

 

[justine]

re
je viens de trouver une solution.
soit par exemple 135min
135/60=2.25
2.25-2(l'entier du resultat)=0.25
0.25*60=15
donc 2 h 15 min
il me reste a faire le code vba

justine

 

[justine]

re
je viens de trouver une solution.
soit par exemple 135min
135/60=2.25
2.25-2(l'entier du resultat)=0.25
0.25*60=15
donc 2 h 15 min
il me reste a faire le code vba

justine

 

[Robert]

Bonsoir Justine, bonsoir le forum,

Un petit exemple qui pourrait t'aider. Écris une valeur en A1 et lance la macro ci-dessous :

Sub Macro1()
Dim tot As Integer 'déclare la variable tot
Dim heur As String 'déclare la variable heur
Dim min As String 'déclare la variable min

tot = Range('A1').Value 'définit la variable tot

If tot \\\\\\\\ 60 < 10 Then 'condition : si l'entier de la division de tot par 60 est inférieur à 10
heur = Format(tot \\\\\\\\ 60, '00') 'définit la variable heur
Else 'sinon
heur = tot \\\\\\\\ 60 'définit la variable heur
End If 'fin de la condition

If tot Mod 60 < 10 Then 'condition : si le reste de la division de tot par 60 est inférieur à 10
min = Format(tot Mod 60, '00') 'définit la variable min
Else 'sinon
min = tot Mod 60 'définit la variable min
End If 'fin de la condition

MsgBox heur & ':' & min 'mesage
End Sub

Message édité par: Robert, à: 23/03/2006 21:34

 

[Hervé]

Bonsoir justine, robert

une autre syntaxe possible :

Sub Bouton1_QuandClic()
With Range('a1')
.Value = .Value / 1440
.NumberFormat = 'hh:mm;@'
End With
End Sub

salut

edition : merci ma bibiche

Message édité par: hervé, à: 23/03/2006 21:47

 

[justine]

bonsoir le forum, robert, herve.
merci a tout deux de m'apporter vos solutions, je les essairai demain car mon application est a mon travail.
merci encore.
au plaisir de se recontacter.
justine

 

[Robert]

Bonsoir le fil, bonsoir le forum,

Pfff... Quel pénible cet Hervé... Justine n'essaie même pas la mienne, quelle honte...