Marinos travaille beaucoup avec les fichiers CSV. Dans son cas, les fichiers CSV sont créés par une application personnalisée et il a constaté qu’il pouvait même y inclure des formules. Donc, si une ligne du fichier CSV contient « ,,, Total:, = SUM (D5: D13) ,,,, », la formule est évaluée et tout va bien.

Cependant, une chose que Marinos souhaite faire est d’indiquer dans le fichier CSV comment les cellules individuelles doivent être justifiées après leur importation dans Excel.

Il semble se souvenir que dans Lotus 123, il pouvait utiliser un caractère préfixe pour indiquer l’alignement de la cellule (‘pour gauche, ^ pour milieu et « 

pour droite); il pense que la même capacité serait excellente dans Excel.

Il n’y a aucun moyen de le faire dans Excel; l’alignement des données importées est basé sur les valeurs par défaut du système, de sorte que le texte est justifié à gauche et les nombres sont justifiés à droite. Une option, cependant , serait d’ajouter un caractère de préfixe que vous pourriez ensuite « analyser » avec une macro pour appliquer l’alignement souhaité. Par exemple, vous pourriez utiliser « < » pour gauche, « ^ » pour centre et « > » pour droite. Lorsque Excel importe les fichiers CSV, les champs sont traités comme du texte. Vous pouvez ensuite exécuter cette macro pour rechercher le premier caractère d’alignement et effectuer l’action souhaitée:

Sub SetJustification()

Dim rCell As Range

For Each rCell In ActiveSheet.UsedRange         With rCell             Select Case Left(.Value, 1)

Case "<"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignLeft                 Case "^"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignCenter                 Case ">"

.Value = Mid(.Value, 2)

.HorizontalAlignment = xlHAlignCenter             End Select         End With     Next     Set rCell = Nothing End Sub

La macro vérifie chaque cellule de la feuille de calcul. Si la cellule commence par un caractère d’alignement, le caractère est supprimé et l’alignement correct est appliqué.

_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 (3131) 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:

link: / excelribbon-Aligning_Cells_when_Importing_from_CSV [Alignement des cellules lors de l’importation à partir de CSV].