Lignes vides pas vides

J'importe des données depuis un fichier texte. Certaines lignes semblent contenir quelque chose d'invisible. Comment accéder à ce contenu ?

Tu pourrais t'inspirer de cette macro. Tu as besoin de deux colonnes vides pour l'utiliser. Tu devras adapter pour le nom de fichier. Cela fonctionne cellule par cellule.

sub listecaracterescellule()
 'mettre le curseur en haut à gauche de la zone où l'on
 'veut avoir les résultats.
 'Il faut deux colonnes de libres
 Dim i As Integer
 Open "C:\mes documents\coucou.txt" For Input As 1
 i = 1
 Do While Not EOF(1)
 Line Input #1, donnee
 Cells(i, 1).Value = donnee
 i = i + 1
 Loop
 Close
 celluleatester = InputBox("Indiquez l'adresse de la cellule à vérifier")
 LaCellule = celluleatester
 Set celluleatester = Range(celluleatester)
 ActiveCell.Value = "Liste des caractères"
 ActiveCell.Offset(1, 0).Value = "de la cellule " & LaCellule
 ActiveCell.Offset(0, 1).Value = "Code de caractère"
 For i = 1 To Len(celluleatester)
 caractere = Mid(celluleatester, i, 1)
 ActiveCell.Offset(i + 2, 0).Value = caractere
 ActiveCell.Offset(i + 2, 1).Value = Asc(caractere)
 Next
 enbas = ActiveCell.Offset(i + 2, 1).Address
 plage = ActiveCell.Address & ":" & enbas
 Range(plage).Select
 Selection.Columns.AutoFit
 end sub

Auteur :

Mots clefs associés à cette page : ,