[VBA][Excel]Insertion de l'heure

Version imprimable

18/01/2006, 11h31
Pollux

[VBA][Excel]Insertion de l'heure

Bonjour,

Je voudrais que lorsque l'utilisateur entre une heure dans une certaine cellule, ma fonction ajoute automatique les ':' afin que l'heure soit correcte

Exemple:
l'utilisateur entre 12
ma macro modifie 12 en 12: pour que l'affichage soit correcte

Le code marche seulement si je clique à nouveau sur la cellule.. Un problème de rafraichissement...

Quelqu'un a une idée pour que je n'aie pas besoin de recliquer?
18/01/2006, 11h33
avigeilpro

essaye peut-etre la fonction Format. ca devrait pouvoir fonctionner je pense :wink:
18/01/2006, 11h39
Pollux

Merci mais non ca ne fonctionne pas
18/01/2006, 11h43
ouskel'n'or

Mets-nous ton code

A+

Code:

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    'pour l'insertion de l'heure il faut rajouter des : afin que l'entrée soit bonne
    If Target.Address(False, False) = "B13" Then
        On Error GoTo er
        If CInt(Target.Value) >= 1 Then
            Target.Value = Target.Value & ":"
        End If
    End If
 
er:
End Sub

18/01/2006, 12h02
jmfmarques

Bon

Je connais mal Excel mais déjà :

Je remplacerais volontiers le Goto er par un Exit sub

au lieu de dire >= 1 je dirais > 0

je trouve curieux d'ajouter une chaine ":" à une valeur pure

Celà ne résout pas ton problème, mais...
18/01/2006, 12h13
Megaxel

Salut!
Déjà, on comprend pourquoi ça ne marche que si tu cliques sur la cellule: l'événement "SelectionChange" est appelé (comme son nom l'indique) à chaque fois que la cellule sélectionnée change. On a alors dans Target la nouvelle cellule sélectionnée, et tu vérifies que c'est B13, qui doit être la cellule contenant l'heure. Donc enlève ce test, et à chaque changement de cellule, la vérification se fera.
Maintenant, pour ce qui est de l'ajout du ":" :
à ta place, j'enlèverais le "on error". Commence par vérifier que le contenu de ta cellule est ce que tu veux: un entier. Par exemple, vérifie que c'est un nombre (fonction IsNumeric( ) ), puis que sa partie décimale est nulle). Ensuite, rajoute ton ":".
18/01/2006, 12h18
ouskel'n'or

Pour ton format, as-tu essayé

Code:

Target.Value = Format(Target.Value, "0:")

Il faut que Target.Value soit effectivement une valeur

A+

Edit
NB - Il faut que Target.Value soit effectivement une valeur mais en faisant ça, ça devient un string...
18/01/2006, 12h45
Pollux

Citation:

Envoyé par Megaxel

à ta place, j'enlèverais le "on error". Commence par vérifier que le contenu de ta cellule est ce que tu veux: un entier. Par exemple, vérifie que c'est un nombre (fonction IsNumeric( ) ), puis que sa partie décimale est nulle). Ensuite, rajoute ton ":".

Ce n'est pas forcément un nombre... En effet, l'utilisateur peut entrer 12:30
18/01/2006, 13h50
Pollux

Et pis j'aimerais que ce code se fasse seulement quand l'utilisateur entre une valeur dans la cellule B13
18/01/2006, 14h12
Pollux

Est-il possible de désactiver l'écoute d'un événement en vba?... Parce que j'ai un peu changer le fonctionnement ca devrait marcher mais il faudrait que je désactive l'écoute quand je veux insérer une valeur...

Citation:

Envoyé par pollux007

Et pis j'aimerais que ce code se fasse seulement quand l'utilisateur entre une valeur dans la cellule B13

utilise workSheet_change...
Code:

1 2 3 4 5 6 7 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$13" Then 'Rajoute ici ton code de mise en forme Debug.Print "Mise en forme : " & Target.Value End If End Sub
:wink:

18/01/2006, 14h15
Pollux

Oui ca c'est bon j'ai déjà changé... Mais j'aimerais désactiver l'écoute parce que sinon ca tourne infiniment (logique) lorsque j'affecte la nouvelle valeur
18/01/2006, 14h29
bidou

tu peux jouer sur EnableEvents de l'objet Application
18/01/2006, 15h05
Pollux

Merci!