Remplacer les blancs par une valeur

[BOUCHEZ JD]

Bonsoir au forum.

Je veux mettre un 'Z' dans les cellules de la colonne "A" qui contiennent uniquement des Blancs.

exemple : (NB : Les 'b' ci dessous symbolisent les blancs)
for x = 1 to 50000

if cells(x,1) = "b" or cells(x,1) = "bb" or cells(x,1) = "bbb" or _
cells(x,1)= "bbbb" etc ........ then
cells(x,1) = "Z"
end if

next x

Mon pb, c'est que je ne sais pas combien il y a de blancs.
Y a t il quelque chose de plus propre et surtout plus rapide que mon
code qui teste toute les possibilités de nombre de blancs ...

Grand merci d'avance.

 

[kjin]

Re : Remplacer les blancs par une valeur

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

 

[BOUCHEZ JD]

Re : Remplacer les blancs par une valeur

Bonsoir.

OUI, il s'agit bien d'espaces.

@+

 

[kjin]

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

 

[job75]

Re : Remplacer les blancs par une valeur

Bonjour à tous,

Essayer le code :

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

A+

 

[JeanMarie]

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 😡

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).

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.

@+Jean-Marie

 

[BOUCHEZ JD]

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