Caractères invisibles vba

Bonjour,

Citation:

---

Envoyé par vashh50

Pour info, mon texte provient d'un texte d'une zone de texte d'un fichier WORD.

---

Donc, les collègues ont mille fois raison de parler d'un traitement en amont. La Recherche-Remplacement de Word, permet de rechercher, effacer ou remplacer les caractères spéciaux de Word les doigts dans le nez. Et puis, je viens de tester dans Word, la recherche-remplacement de Word fonctionne également dans les zones de texte de Word.

Donc, si tu ne veux pas faire l'exercice manuellement dans Word avant de copier-coller, tu peux piloter Word par Automation dans VBA Excel pour faire le ménage dans ton document Word avant de copier-coller dans Excel. Puis, si jamais tu ne veux pas modifier ton document Word, tu peux facilement en faire une copie en VBA et "trimer" la copie. Je ne suis pas prêt à le jurer, mais cela pourrait bien être plus rapide de faire le ménage dans Word avec une fonction intrinsèque de Word que dans Excel avec VBA.

Mais, ce qui frappe encore, c'est la méconnaissance d'outils qui sont dans le paysage depuis une éternité.

Bonjour.

Une suggestion pour supprimer seulement les caractères en début de la chaîne.

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 25 26 27 28 29 30 31 32 33

Sub Appel() Dim CaracteresAsupprimer() As Variant 'CaracteresAsupprimer = Array(Chr(160) & Chr(13) & Chr(10)) 'Si les caracteres doivent etre dans cet ordre 'ou CaracteresAsupprimer = Array(Chr(10), Chr(160), Chr(13))   texte = Chr(160) & vbCrLf & "abc" & vbCrLf & "def"   Cells(2, 1) = SupprimerPremiersCaracteres(texte, CaracteresAsupprimer)   End Sub   Function SupprimerPremiersCaracteres(a, CaracteresAsupprimer())   ok = True While ok = True ok = False   For j = LBound(CaracteresAsupprimer) To UBound(CaracteresAsupprimer)   If Mid(a, 1, Len(CaracteresAsupprimer(j))) = CaracteresAsupprimer(j) Then   a = Mid(a, Len(CaracteresAsupprimer(j)) + 1): ok = True   End If   Next j   Wend   SupprimerPremiersCaracteres = a   End Function

---

bonsoir
Bon bref on a vu tout sauf celle la
la fonction te retourne 2 variables(1tableau et un string)

texto devient un tablo dans la fonction is_available_chaine
chaque item du tableau recois une lettre tout est suprimé sauf les lettre valides et les espaces pour garder une cohérence

complet est envoyé vide dans la fonction est nous est retourné en meme temps que le tableau remplie de la prase sans les caracteres qui n'ont pas été prise en compte dans le patern

la sub tesx envoie dans la fenetre d'execution le résultat pour le complet et le tableau de caracteres


je ne connais rien de plus sur !!

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Function is_available_chaine(txt As String, complet As String) As Variant Dim Matches, ReG Set ReG = CreateObject("VBScript.RegExp") With ReG .Global = True: .Pattern = "[A-Z-a-z|\|-|( )]": .IgnoreCase = False Set Matches = .Execute(txt) ReDim tablo(Matches.Count): i = 0 For Each Match In Matches complet = complet & Match.Value: tablo(i) = Trim(Match.Value) i = i + 1 Next End With is_available_chaine = tablo Set ReG = Nothing End Function

---

Code:

---

1 2 3 4 5 6 7 8 9

Sub testx() Dim texte As String, complet As String texte = Chr(160) & vbCrLf & "abc " & vbCrLf & "def toto" texto = is_available_chaine(texte, complet) Debug.Print complet For i = 0 To UBound(texto) Debug.Print texto(i) Next End Sub

---

voila maintenant on a tout vu