Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Message pour AV

Message pour AV

31 réponses
Avatar
George
Hello AV,

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


Encore merci de ta part.

Salutations

George
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2 3 4
Avatar
jps
disons retour, george, car ses revenu(e)s, c'est bien autre chose : on n'est
pas MVP pour rien et je m'attends d'un instant à l'autre à voir notre AV
présenter dans les étranges lucarnes une pub MS dans le cadre des JO
d'Athènes...
jps

"George" a écrit dans le message de
news:
Hello AV,

je profite de ta revenue sur le forum pour t'adresser ma demande d'aide.


Avatar
AV
Ave Georges,

je profite de ta revenue sur le forum
Juste pour le w.e. !


Mais le problème vient au moment où je désire travailler sur une autre
feuille.


Pour couvrir qques cas particuliers (par ex. changement de feuille sans
sélection>validation), rajoute ça aux 2 autres procs évènementielles :

Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
End Sub

AV

Avatar
AV
mais mon problème va t'il être résolu?
Ben je le pense !


Si je comprends bien (comme il y a encore peu, je suis toujours pas douée
Excel) ce rajout ou correction se rapporte aux autres feuilles du même
classeur?


C'est un ajout dans le module de la feuille contenant les 2 autres procs
(Worksheet_Change et Worksheet_SelectionChange) qui permet de supprimer le
remplacement auto du point apr deux-points (au cas où) !

AV

Avatar
George
Hello Alain,

mais mon problème va t'il être résolu?

Si je comprends bien (comme il y a encore peu, je suis toujours pas douée
Excel)
ce rajout ou correction se rapporte aux autres feuilles du même classeur?

Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
End Sub


Et, je n'aurais que cette correction automatique UNIQUEMENT sur la feuille
Excel définie, ou cela se rapportera comme précédemment sur tous ce qui est
fichiers Excel???

Comme dit précédemment, je désirais que cette formule s'applique uniquement
à la feuille désignée.
Aurais-tu LA solution?

Salutations

George


"AV" a écrit dans le message de
news:
Ave Georges,

je profite de ta revenue sur le forum
Juste pour le w.e. !


Mais le problème vient au moment où je désire travailler sur une autre
feuille.


Pour couvrir qques cas particuliers (par ex. changement de feuille sans
sélection>validation), rajoute ça aux 2 autres procs évènementielles :

Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
End Sub

AV





Avatar
AV
Je pratique comme ça???


Oui !
Les 3 procs dans le module de la feuille

AV

Avatar
George
Pour être sur de ne pas me tromper.

Je pratique comme ça???




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

Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
End Sub




C'est comme ça qu'il faut que je le rajoute ? ou il faut que je corrige des
évennement précédent??

Salutations

George


"AV" a écrit dans le message de
news:%
mais mon problème va t'il être résolu?
Ben je le pense !


Si je comprends bien (comme il y a encore peu, je suis toujours pas
douée


Excel) ce rajout ou correction se rapporte aux autres feuilles du même
classeur?


C'est un ajout dans le module de la feuille contenant les 2 autres procs
(Worksheet_Change et Worksheet_SelectionChange) qui permet de supprimer le
remplacement auto du point apr deux-points (au cas où) !

AV





Avatar
George
Pour être sur de ne pas me tromper.

Je pratique comme ça???




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

Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
End Sub




C'est comme ça qu'il faut que je le rajoute ? ou il faut que je corrige des
événement précédent??

Salutations

George


"AV" a écrit dans le message de
news:%
mais mon problème va t'il être résolu?
Ben je le pense !


Si je comprends bien (comme il y a encore peu, je suis toujours pas
douée


Excel) ce rajout ou correction se rapporte aux autres feuilles du même
classeur?


C'est un ajout dans le module de la feuille contenant les 2 autres procs
(Worksheet_Change et Worksheet_SelectionChange) qui permet de supprimer le
remplacement auto du point apr deux-points (au cas où) !

AV





Avatar
George
Pour être sur de ne pas me tromper.

Je pratique comme ça???




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

Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
End Sub




C'est comme ça qu'il faut que je le rajoute ? ou il faut que je corrige des
événement précédent??

Salutations

George


"AV" a écrit dans le message de
news:%
mais mon problème va t'il être résolu?
Ben je le pense !


Si je comprends bien (comme il y a encore peu, je suis toujours pas
douée


Excel) ce rajout ou correction se rapporte aux autres feuilles du même
classeur?


C'est un ajout dans le module de la feuille contenant les 2 autres procs
(Worksheet_Change et Worksheet_SelectionChange) qui permet de supprimer le
remplacement auto du point apr deux-points (au cas où) !

AV





Avatar
George
Pour être sur de ne pas me tromper.

Je pratique comme ça???




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

Private Sub Worksheet_Deactivate()
On Error Resume Next
Application.AutoCorrect.DeleteReplacement "."
End Sub




C'est comme ça qu'il faut que je le rajoute ? ou il faut que je corrige des
événement précédent??

Salutations

George


"AV" a écrit dans le message de
news:%
mais mon problème va t'il être résolu?
Ben je le pense !


Si je comprends bien (comme il y a encore peu, je suis toujours pas
douée


Excel) ce rajout ou correction se rapporte aux autres feuilles du même
classeur?


C'est un ajout dans le module de la feuille contenant les 2 autres procs
(Worksheet_Change et Worksheet_SelectionChange) qui permet de supprimer le
remplacement auto du point apr deux-points (au cas où) !

AV





Avatar
George
Désolé pour le nombre de fois que ce message soit arrivé
mon OE a eu des ratés
Salutations

George




"AV" a écrit dans le message de
news:
Je pratique comme ça???


Oui !
Les 3 procs dans le module de la feuille

AV





1 2 3 4