Suppression des caractères dans une cellules

Version imprimable

28/05/2020, 11h03
taha-ba

Suppression des caractères dans une cellules

Bonjour,

Mon problème est de supprimer les points dans une cellule mais à condition, si un point se trouve dans le début de la cellule ou à la fin de la cellule ainsi que si deux point ou trois... points sont consécutifs je dois les supprimer et laisser qu'un seul point.
Exemple:
Dans une cellule A1 j'ai cette chaîne de caractère:
. E0R . . . JA0 . . FMT . . . . JD1 . E0P . . . FI3 .
je voudrais qu'elle devienne:
E0R . JAO . FMT . JD1 . E0P . FI3
28/05/2020, 11h24
78chris

Multipost...:(
28/05/2020, 11h27
taha-ba

J'ai beaucoup cherché mais je n'ai pas encore trouvé la solution.

RE

Citation:

Envoyé par taha-ba

J'ai beaucoup cherché mais je n'ai pas encore trouvé la solution.

Ce n'est toi qui a posé une question similaire sur un autre forum ?

Si les points ne sont pas séparés par des espaces comme dans ton exemple, en adaptant feuille et Range
Code:

1 2 3 4 5 6 7 8 9 10 Sub menage() Dim c As Range For Each c In Worksheets("Feuil1").Range("A2:A5") If Left(c.Value, 1) = "." Then c = Right(c, Len(c) - 1) If Right(c.Value, 1) = "." Then c = Left(c, Len(c) - 1) Do While InStr(1, c.Value, "..") c = Replace(c, "..", ".") Loop Next c End Sub

Bonjour

Une proposition si le texte est en A1, le texte abrege est en E1

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Test()
Dim fin()
Dim Debut
Dim i, j
 
'Eclatement dans un vecteur
Debut = Split(Cells(1, 1), ".")
'Recopie les composants vecteur non vides
For i = 0 To UBound(Debut)
    If Debut(i) <> "" Then
        ReDim Preserve fin(j)
        fin(j) = Debut(i)
        j = j + 1
 
    End If
Next
'Reconstitue mot initial avec un seul "." comme separateur en celulle E1
For i = 0 To UBound(fin)
    Cells(1, 5) = Cells(1, 5) & "." & fin(i)
Next
'supprime le premier "."
Cells(1, 5) = Right(Cells(1, 5), Len(Cells(1, 5)) - 1)
 
End Sub

28/05/2020, 11h53
Menhir

Dans ton exemple, il y a des espaces entre les points. Est-ce que ça correspond réellement à ton cas ?

Re (baarar97 ???),

Selon la réponse que tu feras à Menhir (que je salue :coucou:) (avec ou sans espace) choisit la ligne 6 :
Code:

1 2 3 4 5 6 7 8 Sub Test() Dim str As String str = Range("A1").Value str = Replace(str, ".", " ") str = Application.WorksheetFunction.Trim(str) str = Replace(str, " ", " . ") 'ou str = Replace(str, " ", ".") Range("A1").Value = str End Sub

28/05/2020, 19h12
taha-ba

Oui il y a des espaces entres les points. Merci pour vos réponses la deuxième fonction a été bien fonctionné.