StrConv vba excel

Bonjour à tous,

J’essaie de récupérer des cellules de texte sous la forme d'un tableau d'octet, le but est d'avoir les caractères en code caractère pour les exporter après.

J'ai fait ça mais j'ai une erreur de compatibilité de type, y a-t-il une autre fonction ou alors comment je peux faire pour indexer le buffer() en sachant que mes cellules ont toutes 6 caractères ?

Code:

---

1 2 3 4 5 6 7

Sub Test()   Dim Buff() As Byte   Buff() = StrConv(Range("A1:Z1"), vbFromUnicode)   End Sub

---

Bonjour, bonjour !

Comme indiqué dans l'aide VBA interne, cette fonction attend juste en entrée une chaîne de caractères,
ce qui n'est pas le cas ici avec une matrice ! Rien qu'en consultant l'exemple de l'aide, donc une cellule à la fois …


______________________________________________________________________________________________________
Je suis Paris, Charlie, …

Salut,

le premier paramètre de strConv est un string, pas un tableau!

Cordialement,

oui si je mets une seul cellule cela fonctionne.

comment je peux faire pour faire une boucle, de la première cellule vers la dernière cellule, et indexer le Buffer avec un index qui va de 6 en 6 ? j'ai essayé plusieurs truc mais j'ai des erreurs à chaque fois.

Bonjour

Il faudrait que tu nous donnes un petit exemple de données de départ et du résultat attendu pour nous guider.

En attendant tu trouveras des informations sur ce site.

D'après ce que j'en ai lu la fonction StrConv ne convient pas pour faire ce que je voulais.
J'ai donc fait une boucle FOR avec les fonctions Asc et Right pour me renvoyer à chaque caractère de la cellule le code de caractère, puis j'ai bouclé toutes les cellules dans une autre boucle FOR. Cela marche bien. :D

Merci encore pour vos infos

Citation:

---

Envoyé par revok

D'après ce que j'en ai lu la fonction StrConv ne convient pas pour faire ce que je voulais.
J'ai donc fait une boucle FOR avec les fonctions Asc et Right pour me renvoyer à chaque caractère de la cellule le code de caractère, puis j'ai bouclé toutes les cellules dans une autre boucle FOR. Cela marche bien. :D

Merci encore pour vos infos

---

bonjour,
je ne suis pas d'accord!

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub Test()   Dim Buff() As Byte, txt As String, C As Integer txt = "" For C = 0 To Range("A1:Z1").Columns.Count - 1 txt = txt & Trim("" & Range("A1").Offset(0, C)) Next Buff() = StrConv(txt, vbFromUnicode)   End Sub

---

Merci rdurupt pour ta solution.