je profite de ta revenue sur le forum pour t'adresser ma demande d'aide.
Voilà, justement le code que tu m'as donné pour changer le "." en ":"
(point en deux points) fonctionnent.
Mais le problème vient au moment où je désire travailler sur une autre
feuille.
En fait, ce code fait faire un ajout à "Correction automatique" et cette
correction s'applique à toutes les entrées sur Excel.
Donc, quand je rentre sur un autre tableau des chiffres avec des points
(pour les virgules), le format sus-cité est appliqué.
Le code que tu m'as donné est bien, mais n'y a t'il pas un moyen de le
laisser actif uniquement sur la feuille, ou le classeur uniquement?
je te remets le code que tu m'as donné.
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Count > 1 Then Exit Sub
If Intersect(zz, Range("C7:AG30")) Is Nothing Then Exit Sub
If IsError(Application.Find(".", zz.Value)) Then 'saisie d'un entier =>
heure
Application.EnableEvents = False
zz = zz & ":"
Application.EnableEvents = True
End If
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
End Sub
Private Sub Worksheet_SelectionChange(ByVal zz As Range)
If zz.Count > 1 Then Exit Sub
If Intersect(zz, Range("C7:AG30")) Is Nothing Then
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
Exit Sub
End If
Application.AutoCorrect.AddReplacement ".", ":"
End Sub
