XL 2010 Résolu par Bruno : exécution code feuille qd valeur cellule change

[Usine à gaz]

Bonjour à toutes et à tous,

Me revoilà avec un nouveau souci que je n'arrive pas à résoudre.

J'ai un code dans ma feuille Telephone que je n'arrive pas automatiser.
c'est un code qui commence par :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)

J'ai tenté sans succès de bidouiller selon mes faibles connaissances.
Je n'ai pas trouvé également le bon code à mettre après Call

je pense que le fichier joint sera plus clair que les explications que je pourraient vous donner.
Un grand merci à vous toutes et tous.
Amicalement,
Lionel,

 

[youky(BJ)]

Bonsoir,
Je pense ce code doit suffir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address <> "$M$10" Then Exit Sub
If IsNumeric(Target) Then [E10] = [M10]
Cancel = True
End Sub

Bruno
J'avais oublié le 33
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Target.Address <> "$M$10" Then Exit Sub
If IsNumeric(Target) Then [E10] = [G7] & [M10]
Cancel = True
End Sub

 

[Usine à gaz]

Bonsoir Youly,

Merci de m'avoir répondu, j'ai testé mais la macro d'origine qui formate les chiffres et les textes ne fonctionne plus.
Il faudrait juste trouver le code pour lancer la macro d'origine.
Amicalement,
Lionel,

 

[Usine à gaz]

Bonjour à toutes et à tous,

J'avais très certainement mal exposé mon souci

Je m'y suis remis ce matin pour tenter de mieux l'expliquer.
Je pense que le fichier joint est très clair mais voici mon petit exposé.

En feuille Téléphone, j'ai un code qui exécute les actions suivantes :
En cellule E10 de la feuille
les informations copiées PAR DOUBLECLIC sont des n° de téléphone ou des textes qui proviennent de sites web
Le code de la feuille exécute :
1 si c'est un texte : copie sans modification dans la cellule E10
2 si c'est un chiffre (N) tel) : suppressions des espaces et autres et ajout du contenu de la cellule G7 et copie dans E10
Ce code fonctionne parfaitement. (Un grand merci à son auteur)

Mon souci est dans la feuille1
Il arrive fréquemment que je sois obligé de saisir manuellement (dans M10) des n° tel. Je ne peux pas saisir dans E10 car la cellule est protégée avec la feuille pour des raisons de service (plusieurs utilisateurs).

J'ai besoin d'un code qui déclenche l'exécution automatique du code de la feuille (sans DoubleClic) pour copier (clipboard - contenu presse papier) de M10 dans E10.

Je planche sans réussir depuis des jours LOL.
Auriez-vous une solution ?
Encore un grand merci pour votre aide si précieuse.
Amicalement,
Lionel,

 

[youky(BJ)]

Hello,
voir ce fichier en retour
Bruno

 

[Usine à gaz]

Bonjour Bruno,
Merci d'être là encore
J'ai testé le fichier mais quand je saisie un n° dans la feuil1 cellule M10 et que je valide, il ne se passe rien .
Amicalement,
Lionel,

 

[Usine à gaz]

Re,
J'ai modifié le code comme suit :

Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Address <> "$M$10" Then Exit Sub
'If Target = "" Then Exit Sub
If Len(Target) <> M10 And IsNumeric(Target) Then
Application.EnableEvents = False
[E10] = [G7] & [M10]
Application.EnableEvents = True
End If
End Sub

La macro s'exécute mais il me ne donne que le contenu de G7

 

[Usine à gaz]

Re Bruno,

Mais si, ça marche.
Je ne m'étais pas aperçu qu'il fallait saisir le 0 devant les 9 chiffres.

Il est possible d'éviter la saisie du O ?
Mais ça marche. Un grande merci.
Amicalement,
Lionel,

 

[youky(BJ)]

Macro à remplacer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$M$10" Then Exit Sub
If Target = "" Then Exit Sub
If Len(Target) = 10 And IsNumeric(Target) Then
Application.EnableEvents = False
[E10] = [G7] & [M10]
Feuil5.Unprotect
Feuil5.[E10] = [E10]
Feuil5.Protect
Application.EnableEvents = True
End If
End Sub

Bruno

 

[Usine à gaz]

Super, ça fonctionne très bien.
Merci Bruno,
Amicalement,
Lionel,