Comment programmer un changement de format automatiquement
9 réponses
George
Hello à tous,
Je voudrais savoir si une possibilité existe pour changer automatiquement
dans une feuille de calcul l'écriture d'une heure.
Je m'explique, un personne écrit avec le pavé numérique
3.30 (pour 3:30 heures). Mais le format sera incrit dans la cellule de cette
manière: 03.01.1900 07:12:00
Alors, voici ma demande. Comment écrire 3.30 et que cela reste un 3:30
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
AV
Pour la plage A1:A10 de la feuille Dans le module de cette feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Count > 1 Then Exit Sub If Intersect(zz, Range("A1:A10")) 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("A1:A10")) Is Nothing Then On Error Resume Next Application.AutoCorrect.DeleteReplacement "." Exit Sub End If Application.AutoCorrect.AddReplacement ".", ":" End Sub
PS : la saisie d'un entier est considérée comme la saisie d'une heure Cellules au format [hh]:mm
AV
Pour la plage A1:A10 de la feuille
Dans le module de cette feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Count > 1 Then Exit Sub
If Intersect(zz, Range("A1:A10")) 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("A1:A10")) Is Nothing Then
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
Exit Sub
End If
Application.AutoCorrect.AddReplacement ".", ":"
End Sub
PS : la saisie d'un entier est considérée comme la saisie d'une heure
Cellules au format [hh]:mm
Pour la plage A1:A10 de la feuille Dans le module de cette feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Count > 1 Then Exit Sub If Intersect(zz, Range("A1:A10")) 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("A1:A10")) Is Nothing Then On Error Resume Next Application.AutoCorrect.DeleteReplacement "." Exit Sub End If Application.AutoCorrect.AddReplacement ".", ":" End Sub
PS : la saisie d'un entier est considérée comme la saisie d'une heure Cellules au format [hh]:mm
AV
George
Cher Alain,
Étant assez novice, je vais essayer de résumer ma compréhension.
Dans le module de ma feuille de calcul auquel il faudra
rentrer les heures, les cellules sont de C9 à AG30.
Donc il faudra sélectionner non pas A1:A10 mais
C9:AG30
Est-ce exact?
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual basic Editor??? Ou une nouvelle macro??
Encore une chose, si je comprends bien?
PS : la saisie d'un entier est considérée comme la saisie d'une heure
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30 ou bien ce 30 représente une subdivision de l'unité sur 100.???
(Désolé, mais ce sera la première fois que je rentrerais profondément dans les méandres cachés d'une feuille Excel)
Merci de tes explications
George
"AV" a écrit dans le message de news:
Pour la plage A1:A10 de la feuille Dans le module de cette feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Count > 1 Then Exit Sub If Intersect(zz, Range("A1:A10")) 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("A1:A10")) Is Nothing Then On Error Resume Next Application.AutoCorrect.DeleteReplacement "." Exit Sub End If Application.AutoCorrect.AddReplacement ".", ":" End Sub
PS : la saisie d'un entier est considérée comme la saisie d'une heure Cellules au format [hh]:mm
AV
Cher Alain,
Étant assez novice, je vais essayer de résumer ma compréhension.
Dans le module de ma feuille de calcul auquel il faudra
rentrer les heures, les cellules sont de C9 à AG30.
Donc il faudra sélectionner non pas A1:A10 mais
C9:AG30
Est-ce exact?
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual
basic Editor??? Ou une nouvelle macro??
Encore une chose, si je comprends bien?
PS : la saisie d'un entier est considérée comme la saisie d'une heure
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30 ou bien ce 30
représente une subdivision de l'unité sur 100.???
(Désolé, mais ce sera la première fois que je rentrerais profondément dans
les méandres cachés d'une feuille Excel)
Merci de tes explications
George
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:OcInNg4eEHA.384@TK2MSFTNGP10.phx.gbl...
Pour la plage A1:A10 de la feuille
Dans le module de cette feuille :
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Count > 1 Then Exit Sub
If Intersect(zz, Range("A1:A10")) 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("A1:A10")) Is Nothing Then
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
Exit Sub
End If
Application.AutoCorrect.AddReplacement ".", ":"
End Sub
PS : la saisie d'un entier est considérée comme la saisie d'une heure
Cellules au format [hh]:mm
Étant assez novice, je vais essayer de résumer ma compréhension.
Dans le module de ma feuille de calcul auquel il faudra
rentrer les heures, les cellules sont de C9 à AG30.
Donc il faudra sélectionner non pas A1:A10 mais
C9:AG30
Est-ce exact?
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual basic Editor??? Ou une nouvelle macro??
Encore une chose, si je comprends bien?
PS : la saisie d'un entier est considérée comme la saisie d'une heure
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30 ou bien ce 30 représente une subdivision de l'unité sur 100.???
(Désolé, mais ce sera la première fois que je rentrerais profondément dans les méandres cachés d'une feuille Excel)
Merci de tes explications
George
"AV" a écrit dans le message de news:
Pour la plage A1:A10 de la feuille Dans le module de cette feuille :
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Count > 1 Then Exit Sub If Intersect(zz, Range("A1:A10")) 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("A1:A10")) Is Nothing Then On Error Resume Next Application.AutoCorrect.DeleteReplacement "." Exit Sub End If Application.AutoCorrect.AddReplacement ".", ":" End Sub
PS : la saisie d'un entier est considérée comme la saisie d'une heure Cellules au format [hh]:mm
AV
AV
Étant assez novice, je vais essayer de résumer ma compréhension. Dans le module de ma feuille de calcul auquel il faudra rentrer les heures, les cellules sont de C9 à AG30. Donc il faudra sélectionner non pas A1:A10 mais C9:AG30
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual basic Editor??? Ou une nouvelle macro??
Simplement clic droit sur le nom de l'onglet > Visualiser le code > copier/coller le code fourni
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30 Absolument !
Par contre, si tu saisis simplement 30, ce sera considéré comme 30 heures
AV
Étant assez novice, je vais essayer de résumer ma compréhension.
Dans le module de ma feuille de calcul auquel il faudra
rentrer les heures, les cellules sont de C9 à AG30.
Donc il faudra sélectionner non pas A1:A10 mais
C9:AG30
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual
basic Editor??? Ou une nouvelle macro??
Simplement clic droit sur le nom de l'onglet > Visualiser le code >
copier/coller le code fourni
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30
Absolument !
Par contre, si tu saisis simplement 30, ce sera considéré comme 30 heures
Étant assez novice, je vais essayer de résumer ma compréhension. Dans le module de ma feuille de calcul auquel il faudra rentrer les heures, les cellules sont de C9 à AG30. Donc il faudra sélectionner non pas A1:A10 mais C9:AG30
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual basic Editor??? Ou une nouvelle macro??
Simplement clic droit sur le nom de l'onglet > Visualiser le code > copier/coller le code fourni
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30 Absolument !
Par contre, si tu saisis simplement 30, ce sera considéré comme 30 heures
AV
George
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Désolé de ne pas tout suivre. Mais le nom des cellules, je les places ou?
En tête de code ? ou dans une des plages à gauche??
Encore merci pour ta précieuse aide?
George
"AV" a écrit dans le message de news:%
Étant assez novice, je vais essayer de résumer ma compréhension. Dans le module de ma feuille de calcul auquel il faudra rentrer les heures, les cellules sont de C9 à AG30. Donc il faudra sélectionner non pas A1:A10 mais C9:AG30
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual basic Editor??? Ou une nouvelle macro??
Simplement clic droit sur le nom de l'onglet > Visualiser le code > copier/coller le code fourni
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30 Absolument !
Par contre, si tu saisis simplement 30, ce sera considéré comme 30 heures
AV
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Désolé de ne pas tout suivre. Mais le nom des cellules,
je les places ou?
En tête de code ? ou dans une des plages à gauche??
Encore merci pour ta précieuse aide?
George
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23kRnzA5eEHA.3520@TK2MSFTNGP10.phx.gbl...
Étant assez novice, je vais essayer de résumer ma compréhension.
Dans le module de ma feuille de calcul auquel il faudra
rentrer les heures, les cellules sont de C9 à AG30.
Donc il faudra sélectionner non pas A1:A10 mais
C9:AG30
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual
basic Editor??? Ou une nouvelle macro??
Simplement clic droit sur le nom de l'onglet > Visualiser le code >
copier/coller le code fourni
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30
Absolument !
Par contre, si tu saisis simplement 30, ce sera considéré comme 30 heures
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Désolé de ne pas tout suivre. Mais le nom des cellules, je les places ou?
En tête de code ? ou dans une des plages à gauche??
Encore merci pour ta précieuse aide?
George
"AV" a écrit dans le message de news:%
Étant assez novice, je vais essayer de résumer ma compréhension. Dans le module de ma feuille de calcul auquel il faudra rentrer les heures, les cellules sont de C9 à AG30. Donc il faudra sélectionner non pas A1:A10 mais C9:AG30
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual basic Editor??? Ou une nouvelle macro??
Simplement clic droit sur le nom de l'onglet > Visualiser le code > copier/coller le code fourni
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30 Absolument !
Par contre, si tu saisis simplement 30, ce sera considéré comme 30 heures
AV
AV
la plage de cellules à sélectionner C9:AG30
Sélection du code fourni ci-dessous > Copier > Clic droit sur le nom de l'onglet
visualiser le code > Coller
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Count > 1 Then Exit Sub If Intersect(zz, Range("C9: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("C9:AG30")) Is Nothing Then On Error Resume Next Application.AutoCorrect.DeleteReplacement "." Exit Sub End If Application.AutoCorrect.AddReplacement ".", ":" End Sub
Pour tester, il ne te reste qu'à saisir dans une des cellules de la plage C9:AG30 une valeur comme (c'est un exemple) 20.30
AV
la plage de cellules à sélectionner C9:AG30
Sélection du code fourni ci-dessous > Copier > Clic droit sur le nom de l'onglet
visualiser le code > Coller
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Count > 1 Then Exit Sub
If Intersect(zz, Range("C9: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("C9:AG30")) Is Nothing Then
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
Exit Sub
End If
Application.AutoCorrect.AddReplacement ".", ":"
End Sub
Pour tester, il ne te reste qu'à saisir dans une des cellules de la plage
C9:AG30 une valeur comme (c'est un exemple) 20.30
Sélection du code fourni ci-dessous > Copier > Clic droit sur le nom de l'onglet
visualiser le code > Coller
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Count > 1 Then Exit Sub If Intersect(zz, Range("C9: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("C9:AG30")) Is Nothing Then On Error Resume Next Application.AutoCorrect.DeleteReplacement "." Exit Sub End If Application.AutoCorrect.AddReplacement ".", ":" End Sub
Pour tester, il ne te reste qu'à saisir dans une des cellules de la plage C9:AG30 une valeur comme (c'est un exemple) 20.30
AV
George
Alain,
Je ne sais si mon message à été publiée, mais je reformule ma question.
la plage de cellules à sélectionner C9:AG30
pourrais-tu me dire où je dois l'insérer exactement. Dans la même fenêtre que la formule? où dans une des cases qui se trouve à gauche?
Merci encore pour ton aide.
George
"AV" a écrit dans le message de news:%
Étant assez novice, je vais essayer de résumer ma compréhension. Dans le module de ma feuille de calcul auquel il faudra rentrer les heures, les cellules sont de C9 à AG30. Donc il faudra sélectionner non pas A1:A10 mais C9:AG30
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual basic Editor??? Ou une nouvelle macro??
Simplement clic droit sur le nom de l'onglet > Visualiser le code > copier/coller le code fourni
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30 Absolument !
Par contre, si tu saisis simplement 30, ce sera considéré comme 30 heures
AV
Alain,
Je ne sais si mon message à été publiée, mais je reformule ma question.
la plage de cellules à sélectionner C9:AG30
pourrais-tu me dire où je dois l'insérer exactement. Dans la même fenêtre
que la formule? où dans une des cases qui se trouve à gauche?
Merci encore pour ton aide.
George
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:%23kRnzA5eEHA.3520@TK2MSFTNGP10.phx.gbl...
Étant assez novice, je vais essayer de résumer ma compréhension.
Dans le module de ma feuille de calcul auquel il faudra
rentrer les heures, les cellules sont de C9 à AG30.
Donc il faudra sélectionner non pas A1:A10 mais
C9:AG30
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual
basic Editor??? Ou une nouvelle macro??
Simplement clic droit sur le nom de l'onglet > Visualiser le code >
copier/coller le code fourni
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30
Absolument !
Par contre, si tu saisis simplement 30, ce sera considéré comme 30 heures
Je ne sais si mon message à été publiée, mais je reformule ma question.
la plage de cellules à sélectionner C9:AG30
pourrais-tu me dire où je dois l'insérer exactement. Dans la même fenêtre que la formule? où dans une des cases qui se trouve à gauche?
Merci encore pour ton aide.
George
"AV" a écrit dans le message de news:%
Étant assez novice, je vais essayer de résumer ma compréhension. Dans le module de ma feuille de calcul auquel il faudra rentrer les heures, les cellules sont de C9 à AG30. Donc il faudra sélectionner non pas A1:A10 mais C9:AG30
Tout à fait --> donc dans le code, tu remplaces A1:A10 par C9:AG30
Le module de la feuille ??? Dois-je ouvrir le script editor? Le visual basic Editor??? Ou une nouvelle macro??
Simplement clic droit sur le nom de l'onglet > Visualiser le code > copier/coller le code fourni
Lorsque j'écris 3.30 ceci sera interprété comme étant 3:30 Absolument !
Par contre, si tu saisis simplement 30, ce sera considéré comme 30 heures
AV
George
Alain,
Milles excuses sur mon ignorence, je n'avais pas vu les Range("C9:AG30"))
Je te remercie infiniment. Cela fonctionne à merveille.
Si je ne m'abuse, ce code fonctionnerait aussi pour d'autres formes de tableau et de calcul.
Alain, je m'incline bien bas pour te remercier.
salutations
George
"AV" a écrit dans le message de news:
la plage de cellules à sélectionner C9:AG30
Sélection du code fourni ci-dessous > Copier > Clic droit sur le nom de l'onglet
visualiser le code > Coller
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Count > 1 Then Exit Sub If Intersect(zz, Range("C9: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("C9:AG30")) Is Nothing Then On Error Resume Next Application.AutoCorrect.DeleteReplacement "." Exit Sub End If Application.AutoCorrect.AddReplacement ".", ":" End Sub
Pour tester, il ne te reste qu'à saisir dans une des cellules de la plage C9:AG30 une valeur comme (c'est un exemple) 20.30
AV
Alain,
Milles excuses sur mon ignorence, je n'avais pas vu les
Range("C9:AG30"))
Je te remercie infiniment. Cela fonctionne à merveille.
Si je ne m'abuse, ce code fonctionnerait aussi pour d'autres formes de
tableau et de calcul.
Alain, je m'incline bien bas pour te remercier.
salutations
George
"AV" <alain.vallon@wanadoo.fr> a écrit dans le message de
news:e6qmdC7eEHA.3928@TK2MSFTNGP11.phx.gbl...
la plage de cellules à sélectionner C9:AG30
Sélection du code fourni ci-dessous > Copier > Clic droit sur le nom de
l'onglet
visualiser le code > Coller
Private Sub Worksheet_Change(ByVal zz As Range)
If zz.Count > 1 Then Exit Sub
If Intersect(zz, Range("C9: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("C9:AG30")) Is Nothing Then
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
Exit Sub
End If
Application.AutoCorrect.AddReplacement ".", ":"
End Sub
Pour tester, il ne te reste qu'à saisir dans une des cellules de la plage
C9:AG30 une valeur comme (c'est un exemple) 20.30
Milles excuses sur mon ignorence, je n'avais pas vu les Range("C9:AG30"))
Je te remercie infiniment. Cela fonctionne à merveille.
Si je ne m'abuse, ce code fonctionnerait aussi pour d'autres formes de tableau et de calcul.
Alain, je m'incline bien bas pour te remercier.
salutations
George
"AV" a écrit dans le message de news:
la plage de cellules à sélectionner C9:AG30
Sélection du code fourni ci-dessous > Copier > Clic droit sur le nom de l'onglet
visualiser le code > Coller
Private Sub Worksheet_Change(ByVal zz As Range) If zz.Count > 1 Then Exit Sub If Intersect(zz, Range("C9: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("C9:AG30")) Is Nothing Then On Error Resume Next Application.AutoCorrect.DeleteReplacement "." Exit Sub End If Application.AutoCorrect.AddReplacement ".", ":" End Sub
Pour tester, il ne te reste qu'à saisir dans une des cellules de la plage C9:AG30 une valeur comme (c'est un exemple) 20.30
AV
AV
Si je ne m'abuse, ce code fonctionnerait aussi pour d'autres formes de tableau et de calcul. ** Sous réserve de modification, dans le code, de la plage de référence
(C9:AG30), oui
Alain, je m'incline bien bas pour te remercier. ** Fais gaffe aux lombalgies !
AV
Si je ne m'abuse, ce code fonctionnerait aussi pour d'autres formes de
tableau et de calcul.
** Sous réserve de modification, dans le code, de la plage de référence
(C9:AG30), oui
Alain, je m'incline bien bas pour te remercier.
** Fais gaffe aux lombalgies !
Si je ne m'abuse, ce code fonctionnerait aussi pour d'autres formes de tableau et de calcul. ** Sous réserve de modification, dans le code, de la plage de référence
(C9:AG30), oui
Alain, je m'incline bien bas pour te remercier. ** Fais gaffe aux lombalgies !
AV
George
Tu m'as vraiment bien aidé.
Je t'en suis reconnaissant (Ainsi qu'aux autres aussi) sans ce forum, je ne sais vraiment pas comment je me débrouillerais pour les trucs un peut plus compliqués. (en plus, des fois, je comprends vite quand on me l'explique lentement)
** Fais gaffe aux lombalgies ! J'ai déjà mal au dos. Depuis longtemps.
hihihihihi ::-)))))
salutations
George
Tu m'as vraiment bien aidé.
Je t'en suis reconnaissant (Ainsi qu'aux autres aussi) sans ce forum, je ne
sais vraiment pas comment je me débrouillerais pour les trucs un peut plus
compliqués. (en plus, des fois, je comprends vite quand on me l'explique
lentement)
** Fais gaffe aux lombalgies !
J'ai déjà mal au dos. Depuis longtemps.
Je t'en suis reconnaissant (Ainsi qu'aux autres aussi) sans ce forum, je ne sais vraiment pas comment je me débrouillerais pour les trucs un peut plus compliqués. (en plus, des fois, je comprends vite quand on me l'explique lentement)
** Fais gaffe aux lombalgies ! J'ai déjà mal au dos. Depuis longtemps.
