Lignes vides pas vides
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 subAuteur : Clément Marcotte
Mots clefs associés à cette page : ligne, vide
- Vous devez vous identifier ou créer un compte pour écrire des commentaires
