Pat s’est demandé comment changer le type de données de colonne par défaut de « général »

à « texte » pour toutes les colonnes d’un fichier texte délimité par des virgules. Changer le format de chaque colonne, surtout quand il y en a beaucoup, peut être au mieux fastidieux.

Malheureusement, il n’existe aucun moyen de modifier la valeur par défaut. Cependant, le changement des types de données de colonne peut être effectué beaucoup plus facilement en appliquant un peu des fonctionnalités de « sélection et sélection » disponibles dans la plupart des programmes Windows. Suivez ces étapes:

  1. Commencez à importer votre fichier texte délimité par des virgules comme vous le feriez normalement.

  2. Lorsque la boîte de dialogue qui vous permet de modifier les types de données de colonne s’affiche, sélectionnez la première colonne du tableau.

  3. Faites défiler vers la droite dans la boîte de dialogue pour que la dernière colonne du tableau soit visible.

  4. Maintenez la touche Maj enfoncée tout en cliquant sur la dernière colonne. Maintenant, toutes les colonnes doivent être sélectionnées.

  5. Changez le type de données en Texte.

  6. Continuez l’importation, comme d’habitude.

Si vous préférez un moyen encore plus rapide de saisir les informations à partir du fichier texte délimité par des virgules, vous pouvez le faire à l’aide d’une macro, ignorant ainsi entièrement les filtres d’importation Excel. La macro suivante, intitulée (à juste titre) Import, fera l’affaire:

Sub Import()

Open "d:\data.txt" For Input As #1     R = 1     While Not EOF(1) 'Scan file line by line         C = 1         Entry = ""

Line Input #1, Buffer         Length = Len(Buffer)

i = 1         While i <= Length 'split string into cells             If (Mid(Buffer, i, 1)) = "," Then                 With Application.Cells(R, C)

.NumberFormat = "@" 'Text formatting                     .Value = Entry                 End With                 C = C + 1                 Entry = ""

Else                 Entry = Entry + Mid(Buffer, i, 1)

End If             i = i + 1         Wend         If Len(Entry) > 0 Then             With Application.Cells(R, C)

.NumberFormat = "@" 'Text formatting                 .Value = Entry             End With         End If         R = R + 1     Wend     Close #1 End Sub

Vous devez noter que vous pouvez modifier la première ligne de la macro pour représenter le nom du fichier que vous importez. Vous devez également comprendre que cette macro fonctionne sur le plus simple des fichiers texte délimités par des virgules. Si le fichier a été créé avec des guillemets autour de chaque champ (comme c’est parfois le cas), la macro ne donnera pas les résultats souhaités et devra être modifiée pour compenser les guillemets. Ou, comme alternative, vous pouvez simplement utiliser la recherche et la suppression des guillemets une fois que la macro a terminé l’importation des informations.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites ExcelTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / excelribbon-ExcelTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

ExcelTips est votre source pour une formation Microsoft Excel rentable.

Cette astuce (2235) s’applique à Microsoft Excel 97, 2000, 2002 et 2003. Vous pouvez trouver une version de cette astuce pour l’interface ruban d’Excel (Excel 2007 et versions ultérieures) ici:

lien: / excelribbon-Faster_Text_File_Conversions [Conversions de fichiers texte plus rapides].