OVH Cloud OVH Cloud

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

10 réponses

1 2 3 4
Avatar
twinley
hoquet,
hoquet,
hoquet,
hoquet,
ok
--
à+twinley
"George" a écrit dans le message de
news:
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









Avatar
George
Ok, Alain,

voici suite au test que je viens de faire.

Il me donne une boite de dialogue Erreur

Erreur de compilation

Sub ou Fonction non définie

[oui] [non]


Je fais quoi maintenant ????

George




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


Oui !
Les 3 procs dans le module de la feuille

AV





Avatar
George
De plus

dans la page VBA, la ligne 1
Private Sub Worksheet_Change(ByVal zz As Range)

est accompagné d'une flèche et la ligne est surlignée de jaune

maintenant, je ne sais plus ou j'en suis.

George


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


Oui !
Les 3 procs dans le module de la feuille

AV





Avatar
AV
maintenant, je ne sais plus ou j'en suis.


En bal perso transmets moi une adresse valide et je t'envoie un petit exemple

AV

Avatar
George
Alain,

voici une adresse:

aint_y_ Spam" sandman.b " AT " freesurf " . ch

il suffit d'enlever aint...spam et de reconstituer l'adresse (en un seul
mot)

mais je te propose de t'envoyer le tableau que je suis entrain de préparer.


Salutations

George


"AV" a écrit dans le message de
news:%
maintenant, je ne sais plus ou j'en suis.


En bal perso transmets moi une adresse valide et je t'envoie un petit
exemple


AV





Avatar
AV
voici une adresse:
aint_y_ Spam" sandman.b " AT " freesurf " . ch
il suffit d'enlever aint...spam et de reconstituer l'adresse (en un seul
mot)


Heu... tu devrais me l'envoyer (en clair !) en bal !

AV

Avatar
George
Ok,

Salutations

George


"AV" a écrit dans le message de
news:Ox%
voici une adresse:
aint_y_ Spam" sandman.b " AT " freesurf " . ch
il suffit d'enlever aint...spam et de reconstituer l'adresse (en un seul
mot)


Heu... tu devrais me l'envoyer (en clair !) en bal !

AV






Avatar
Jacquouille
Pour le tennis, la pub ???? -))

--
Bien amicalmement,
Jacquouille.

Vivement conseillé >> http://www.excelabo.net

"jps" a écrit dans le message de
news:e8e%
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


Avatar
George
Hello les gars,

vous êtes simpa, mais j'aurais appréciez que votre humour puisse m'aider à
un problème de code.
Pas que j'aime pas rire, mais question code, j'en rame une couche
actuellement.

Au fait la dernière nouvelle du Wall Street Journal Version genevoise vient
d'arrivé en voici les points forts. Je vous laisse les soins de le diffuser
pour que cela ne se reproduise plus. Je compte sur vous pour commencer à
éradiquer le mal.

[Text informatif et traduit par mes soins]
INFORMATIONS SCIENTIFIQUES

Un nouvel atome vient d'être découvert par MATERIALS RESEARCHERS at
IPRT/ISU. Ce nouvel atome, le plus lourd jamais synthétisé a
été nommé: Administratium. Il ne possède ni électron ni proton mais un
neutron, 125 assistant neutrons, 75 vice neutrons, and 111 assistant
vice neutrons. Ce qui lui donne un masse atomique de 312.

Ces 312 particules constituent un noyau dont la cohésion est assurée par
un échange continu de particules nommées crétineries.
Ne possédant pas d'électrons, Administratium est totalement
inerte.Cependant, il peut être détecté chimiquement par sa propriété de
ralentir toute réaction chimique.

Administratium a une durée de vie de trois ans. Au delà il ne disparaît
pas mais passe par un stade de réorganisation durant lequel neutrons,
vice neutrons, et assistant vice neutrons échangent leurs places. Sa
masse atomique augmente à chaque réorganisation.

Différents chercheurs ont observé des créations spontanées
d'aministratium. Il tend à se concentrer dans certains secteurs bien
précis tel que administration d'État, grande société et université.
Les scientifiques ont insisté sur le fait qu'administratium est connu
pour être nocif quelque soit le degré de concentration.




Salutations a vous deux et bon dimanche

George

"Jacquouille" a écrit dans le message de
news:%
Pour le tennis, la pub ???? -))

--
Bien amicalmement,
Jacquouille.

Vivement conseillé >> http://www.excelabo.net

"jps" a écrit dans le message de
news:e8e%
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






Avatar
jps
:-)))))))))))
justine? rustine, oui, puisque l'amélie n'arrêtait pas de dire "qu'est-ce
qu'elle me gonfle, celle-là"
jps

"Jacquouille" a écrit dans le message de
news:%
Pour le tennis, la pub ???? -))

--
Bien amicalmement,
Jacquouille.

Vivement conseillé >> http://www.excelabo.net

"jps" a écrit dans le message de
news:e8e%
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






1 2 3 4