pas d'espace

JCGL

XLDnaute Barbatruc

• 23 Juin 2007

• #2

Re : pas d'espace

Bonour,

Essaye avec ce code dans la macro de la feuille

Code:

Option Explicit 'JCGL

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False

With Columns("A:A")
    .Replace What:=" ", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows
End With
End Sub

A+

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 23 Juin 2007

• #3

Re : pas d'espace

Salut, David, JCGL, le Forum

plus court

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Replace(Target, " ", "")
End Sub

Bonne Journée

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Juin 2007

• #4

Re : pas d'espace

Re,
Salut Dull

Mais prends en compte toute la feuille...

A+

 

Vote positif 0 Vote négatif

D

David59

Guest

• 23 Juin 2007

• #5

Re : pas d'espace

bonjour JCGL,Dull

merci pour les réponces

mais j'ai oublié de dire l'ecriture du nom et dans un listbox et que l'espace soit retirer du textbox avant d'êtres mis sur excel
je suis desolé

david

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 23 Juin 2007

• #6

Re : pas d'espace

Re,

Fallait le dire

effectivement Jean Claude mais à defaut de précision...

pour la textbox essai ça

Code:

Private Sub TextBox1_AfterUpdate()
TextBox1.Value = Replace(TextBox1.Value, " ", "")
End Sub

bonne journée

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 23 Juin 2007

• #7

Re : pas d'espace

Re,

Comment ça tu n'as pas la science infuse...

Il y a un fil, hier ou avant hier, où mDF 🙂) salut Didier) a posté cinq ou six fois avant d'avoir toutes les données de la question

A+

 

Vote positif 0 Vote négatif