Remplacer les blancs par une valeur

K

kjin

XLDnaute Barbatruc

• 14 Août 2008

• #2

Re : Remplacer les blancs par une valeur

Bonsoir,
Ce que tu appelles des "blancs", ne serait ce point des caractères "espaces" ?
A+
kjin

 

Vote positif 0 Vote négatif

B

BOUCHEZ JD

Guest

• 14 Août 2008

• #3

Re : Remplacer les blancs par une valeur

Bonsoir.

OUI, il s'agit bien d'espaces.

@+

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 14 Août 2008

• #4

Re : Remplacer les blancs par une valeur

Bonsoir,
Sans macro :
Sélectionne ta plage
Menu/Edition/Remplacer
Rechercher --> appuie touche espace
Remplacer par = Z
Remplacer tout
La même chose avec l'enregistreur de macro :
Selection.Replace What:=" ", Replacement:="Z", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
A+
kjin

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Août 2008

• #5

Re : Remplacer les blancs par une valeur

Bonjour à tous,

Essayer le code :

Code:

If Cells(x,1).Value = Application.Rept(" ", Application.CountA(Cells(x,1).Value)) Then
Cells(x,1).Value = "Z"
End If

A+

 

Vote positif 0 Vote négatif

JeanMarie

XLDnaute Barbatruc

• 14 Août 2008

• #6

Re : Remplacer les blancs par une valeur

Bonjour

Kjin, tu ne réponds pas exactement à la question, tu ne dois pas remplacer chaque espace par un Z, c'est uniquement la cellule qui doit devenir un "Z". Et puis les cellules contenant des mots séparés par un espace, il faut les soustraire de la plage.😡

Job, tu n'emploies pas la bonne fonction de feuille de calcul, ce n'est pas COUNTA qui retourne le nombre de valeur alphanumérique dans la plage, mais LEN 😡

Code:

If Len(Trim(Cells(X, 1))) = 0 Then
Cells(X, 1) = "Z"
End If

LTrim, RTrim et Trim, fonctions
Renvoie une valeur de type Variant (String) contenant une copie d'une chaîne en supprimant les espaces de gauche (LTrim), les espaces de droite (RTrim) ou les deux (Trim).

Cliquez pour agrandir...

Len, fonction
Renvoie une valeur de type Long contenant le nombre de caractères d'une chaîne ou le nombre d'octets requis pour stocker une variable.

Cliquez pour agrandir...

@+Jean-Marie

 

Vote positif 0 Vote négatif

B

BOUCHEZ JD

Guest

• 14 Août 2008

• #7

Re : Remplacer les blancs par une valeur

Bonjour.

Merci à KJIN et JOB75 pour leur réponse.

Superbe le code de JeanMarie qui répond exactement à mon problème.

Bon W.E avancé.
BJD

 

Vote positif 0 Vote négatif