Fonction Chr avec mots accentués

Bonjour

Est-ce que quelqu'un peut m'aider à utiliser la fonction Chr pour écrire ceci. J'essaye de gérer les mots avec accents.

'MyArray(1) = "C perso standard ;"mécan."

'MyArray(2) = "CT C /L "mécanisable"

Merci d'avance pour votre temps!

Bonjour,

3 guillemets c'est un de trop donc on ne sait pas trop quoi mettre dans tes Array.

A+

Bonjour,

Voici une fonction à adaptable à tous tes mots...

Sub test()
Dim Arr, mot$, i
mot = "Galopin"
For i = 1 To Len(mot)
Arr = Arr & Asc(Mid(mot, i, 1)) & " "
Next
For i = 0 To Len(mot) - 1
MsgBox Chr(Split(Arr)(i)) & " = " & Split(Arr)(i)
Next
End Sub

A=

Correction des guillemets!

MyArray(1) = "C perso standard mécan."

MyArray(2) = "CT C /L mécanisable"

Bonsoir,

Sub test()
Dim Arr1, Arr2, mot$, i
mot = "CT C /L mécanisable"
   For i = 1 To Len(mot)
      Arr1 = Arr1 & Asc(Mid(mot, i, 1)) & "|"
   Next
'à ce stade Arr1 est prêt : on peut récupérer les codes asci
   For i = 0 To Len(mot) - 1
      MsgBox Chr(Split(Arr1, "|")(i)) & " = " & Split(Arr1, "|")(i)
   Next
mot = "C perso standard mécan."
   For i = 1 To Len(mot)
      Arr2 = Arr2 & Asc(Mid(mot, i, 1)) & "|"
   Next
'à ce stade Arr2 est prêt : on peut récupérer les codes asci
   For i = 0 To Len(mot) - 1
      MsgBox Chr(Split(Arr2, "|")(i)) & " = " & Split(Arr2, "|")(i)
   Next
End Sub

Bonne nuit.

Bonsoir

J'ai besoin de mieux comprendre ton code qui semble faire l'affaire aussi.

J'utilise cette approche pour l'instant.

MyArray(1) = "C perso standard m" & Chr(233) & "can."
MyArray(2) = "CT C /L m" & Chr(233) & "canisable"

Merci

Euh... Pourquoi pas ? Chr(233) c'est bien "é" mais pourquoi ne pas écrire tout simplement :

MyArray(1) = "C perso standard mécan."    'ou encore : "C perso standard m" & "é" & "can."

MyArray(2) = "CT C /L mécanisable"

C'est l'inconvénient de citer du code de manière fragmentaire, sans déclaration.

Tu déclares comment MyArray ? et comment tu l'initialises ?

Tu en fais quoi après de MyArray(1) et MyArray(2)

A priori pour moi MyArray(1) et MyArray(2) c'est suspect... C'est de l'Array mal digéré !
... Sauf à me fournir toute ta macro avec des déclarations typées et suffisament claires pour justifier MyArray(1) et MyArray(2) et l'utilisation de Chr()

Je te joins un classeur démo avec des Array simplifiés mais ça ne m'inscrit pas dans ta démarche d'insérer un Chr() dans un string...

3demoarray.xlsm (22.02 Ko)

A+

Bonsoir

Quand j'ouvre mes fichiers sur mon macbook, les caractères avec accent se déforment. Voilà la raison de ma demande!

Sub Filtre()

Dim myCell As Range
Dim rng As Range
Dim Rng_Del As Range
Dim MyArray(1 To 5) As String

Set rng = Range("A1").CurrentRegion
MyArray(1) = "C perso standard m" & Chr(233) & "can."
MyArray(2) = "CT C /L m" & Chr(233) & "canisable"
MyArray(3) = "CT plein tarif C/L"
MyArray(4) = "Poste catalogues"
MyArray(5) = "Ciblage par code postal"

rng.AutoFilter Field:=8, Criteria1:=MyArray, Operator:=xlFilterValues

    'Delete hidden rows
    For Each myCell In rng.Columns(1).Cells
        If myCell.EntireRow.Hidden Then
            If Rng_Del Is Nothing Then
                Set Rng_Del = myCell
            Else
                Set Rng_Del = Union(Rng_Del, myCell)
            End If
        End If
    Next

    If Not Rng_Del Is Nothing Then Rng_Del.EntireRow.Delete

    ActiveSheet.AutoFilterMode = False

End Sub

Merci

Vu sous cet angle là Ok.

Mais il faut modifier ta config et préciser MAC 2019 parce que 2019 tout court, on ne fait pas gaffe et ce n'est guère compréhensible.

A+

Rechercher des sujets similaires à "fonction chr mots accentues"