Discussion :

[22papillons]

Bonjour,
Je voudrais faire un bout de code pour supprimer un point "." à la fin d'une phrase ou les "s" à la fin de tous les mots au pluriel.
Je pensais utiliser la commande Split. Mais elle me renvoie un message d'erreur.(voir en pj message d'erreur).

Voici le bout de code (juste pour supprimer les "."), le 1er Split fonctionne... mais pas le second (celui avec le If) !


Quelqu'un peux-t-il m'aider (je suis novice en VBA et sous W2010) ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Supprimerlespoints()
 
'nécéssite d'activer la référence "Microsoft Forms 2.0 Object Library."
 
Dim Maphrase As String, t() As String, i As Long, Derlettre As String
 
Maphrase = "on a marché sur la lune."
 
t = Split(Maphrase, " ")
 
For i = 0 To UBound(t())
        Derlettre = Right(t((i)), 1)
 
            If Derlettre = "." Then
            t(i) = Split(t(i), ".")
            End If
 
        Debug.Print t(i)
Next i
 
End Sub

[Heureux-oli]

Salut,

Dans ton If que tu as un problème.

essaie avec un Left() au lieu d'un split sur "."

[22papillons]

Tout d'abord, merci pour la réponse.

Mias je ne comprend pas ...

Si je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For i = 0 To UBound(t())
        Derlettre = Right(t((i)), 1)
            If Derlettre = "." Then
            t(i) = Left(t(i), 4)
            End If
            Debug.Print t(i)
Next i

Dans ce cas la ça marche (car avec lune. ça me sort lune) Mais en réalité j'ai plein de mot différents, de taille différente ...

Donc ça le fait pas ....

A moins que je n'ai pas compris le conseil ...?

[Heureux-oli]

Salut,

Si tu as des mots différents, on peut récupérer leur longueur avant.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Left(t(i),len(t(i))-1)

Je n'ai pas trouvé ce que renvoie ton split, mais c'est cette valeur qui pose problème.

[22papillons]

Bon cette méthode me permet effectivement de contourner le problème.

Même si je ne comprend tjrs pas pourquoi le Split ne marche pas et me renvoie l'erreur "incompatibilité de type "

Merci