Discussion :

[Pollux]

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?

[avigeilpro]

essaye peut-etre la fonction Format. ca devrait pouvoir fonctionner je pense

[Pollux]

Merci mais non ca ne fonctionne pas

[ouskel'n'or]

Mets-nous ton code

A+

[Pollux]

Code :

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

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

[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...

[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 ":".

[ouskel'n'or]

Pour ton format, as-tu essayé

Code :

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

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...

[Pollux]

à 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

[Pollux]

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

[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...

[SfJ5Rpw8]

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

utilise workSheet_change...

Code :

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

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

[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

[bidou]

tu peux jouer sur EnableEvents de l'objet Application

[Pollux]

Merci!