XL 2010 RESOLU par jecherche : macro supprime les espaces quand il ne faut pas

[Usine à gaz]

Bonjour à toutes et à tous,

Pour mon besoin de travail, Heve62 que je remercie encore m'a donné un code qui fonctionne très bien.

Mais il reste deux soucis que je n'arrive pas à résoudre :
- Si valeur copiée est un numéro de téléphone, le code peut-il ajouter le contenu de la cellule G7 devant ce numéro et ne pas le faire s'il s'agit d'un texte ?
- J'essaie également de coder pour que les espaces ne soient pas enlevés si c'est un texte qui est collé et je n'y arrive pas,

(Classeur joint)
Avec mes remerciements,
Bon WE à toutes et à tous,
Amicalement,
Lionel,

 

[jecherche]

Bonjour,

Une suggestion à tester ...
S'il y a 9 chiffres, G7 sera ajouté devant.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Application.Intersect(Target, Range("E9:E16")) Is Nothing Then
   On Error Resume Next

   With Target
      ActiveSheet.PasteSpecial Format:="Texte", Link:=False, DisplayAsIcon:=False
   End With
      If IsNumeric(Target) Then
            Call SupprimeEspaces
            If Len(Target) = 9 Then Target = Range("G7") & Target
            Application.ScreenUpdating = True
            Application.EnableEvents = True
      End If
End If
ActiveCell.Offset(0, 1).Select
End Sub

Jecherche

 

[Usine à gaz]

Bonsoir jecherche .... LOL, je cherche aussi !!!

Merci de m'avoir répondu.
De mon côté, j'ai trouvé comment résoudre le souci des espaces.
J'inclue et teste ton code pour le 33 et si ça marche, ce sera nikel complet.
je reviens dès que j'ai terminé.

Vraiment merci
Amicalement,
Lionel,

 

[Usine à gaz]

Re jecherche,

Bon sang, tu as tout résolu d'un coup et c'est mieux que moi pour les espaces ..... Super, un grand merci.
Et en plus je comprends le code

Bonne fin de WE encore vraiment merci,
c'était très important pour mon boulot.
Amicalement,
Lionel,

 

[Usine à gaz]

Juste un truc que je ne comprends pas dans le code : pourquoi il va copier le numéro dans la feuille dans la cellule même ligne 4 colonnes plus loin ?

LOL si j'ai compris et en plus c'est moi qui ai fait la macro

 

[jecherche]

Bonjour,

À la fin de la macro "SupprimeEspaces" tu as :

 Selection.Copy
ActiveCell.Offset(0, -4).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=Fals

C'est ce bout là qui copie 4 colonnes plus loin.



Jecherche

 

[Usine à gaz]

LOL OUI ça m'est revenu après.
Je vais tester pour voir si avec ton code ma macro est devenu inutile.
Bonne fin de journée

 

[Usine à gaz]

Re-Bonsoir,

J'ai testé.
En l'absence d'un code en remplacement dans le code de la feuille, ma macro est utile.
Elle permet de recopier le numéro en numéric.
Bonne fin de soirée,
Amicalement,
Lionel,