Discussion :

[pascalcom]

Bonjour,
J'ai un tableau qui recueille plusieurs cellules de saisies de temps avec lesquels je fais des calculs. Cela est très fastidieux car toutes les cellules ont le format mn:ss
Je cherche donc un code VBA pour rendre dynamique la saisie sous forme de nombre (1234) qui donnera 12mn:34ss.
Si cela est possible, quelque chose de ce genre:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim PlageSaisie As Range
    Dim cell As Range
 
    Set PlageSaisie = Range("J4:J10")
 
    'met plageSaisie en format temps mn:ss
    For Each cell In PlageSaisie
    cell = ICI LA COMMANDE
    Next
 
End Sub

Merci pour votre aide,
Pascal

[SfJ5Rpw8]

Bonjour,

voir avec : TimeSerial(12,34,0)mais je suis pas sur que ce soit une bonne idée d'utiliser l'événement sélection change...

[pascalcom]

Merci Bbil,
J'ai cru que cela allait fonctionné, mais il m'est impossible de ressaisir et l'affichage est identique sur toute la plage.
Voilà le code saisie ci joint mon fichier test.

---

Fichiers joints dans les discussions

---

Encore merci pour votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim PlageSaisie As Range
    Dim cell As Range
 
    Set PlageSaisie = Range("B4:B10")
 
    'met plageSaisie en TEMPS
    For Each cell In PlageSaisie
    cell = TimeSerial(12, 34, 0)
    Next
 
End Sub

[patricktoulon]

bonsoir
pour rendre la chose dynamique ( evenemnt change ) il faut utiliser les deux evenements(change/selectionchange)avec une variable globale
a toi d'adapter un intersect si tu veux
dans cet exemple il faut absolument avoir tapé 4 chifres 2 pour les minutes,2 pour les secondes

Code :

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

1
2
3
4
5
6
7
8
Dim oldtarget As Range
Private Sub Worksheet_Change(ByVal Target As Range)
Set oldtarget = Target
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not oldtarget Is Nothing Then oldtarget = Mid(oldtarget, 1, 2) & "mn:" & Mid(oldtarget, 3, 2) & "ss"
Set oldtarget = Nothing
End Sub

ho.. et puis apres tout ca fonctionne aussi sans
on peut la aussi adapter un intersect
on peut aussi adapter un brideur a 4 chiffre et pas plus
enfin bref voila quoi

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target.Value) = 4 Then Target = Mid(Target, 1, 2) & "mn:" & Mid(Target, 3, 2) & "ss"
End Sub