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

jecherche

XLDnaute Occasionnel

• 5 Novembre 2016

• #2

Bonjour,

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

Code:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Novembre 2016

• #3

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,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Novembre 2016

• #4

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,

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Novembre 2016

• #5

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 😕

 

Vote positif 0 Vote négatif

jecherche

XLDnaute Occasionnel

• 5 Novembre 2016

• #6

Bonjour,

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

Code:

 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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Novembre 2016

• #7

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 🙂

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

Supporter XLD

• 5 Novembre 2016

• #8

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,

 

Vote positif 0 Vote négatif