Discussion :

[revok]

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 :

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

1
2
3
4
5
6
7
Sub Test()
 
Dim Buff() As Byte
 
Buff() = StrConv(Range("A1:Z1"), vbFromUnicode)
 
End Sub

[Marc-L]

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, …

[revok]

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.

[Docmarti]

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.

[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.

Merci encore pour vos infos

[Invité]

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.

Merci encore pour vos infos

bonjour,
je ne suis pas d'accord!

Code :

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

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

[Philippe PONS]

Salut,

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

Cordialement,