Si vous utilisez Excel pour récupérer des informations à partir d’une source externe, il est possible que vous vous retrouviez avec des informations assez étranges dans vos cellules. Par exemple, disons que vous avez des cellules contenant des nombres tels que 1 234,5-. Ceux-ci sont formatés sous forme de cellules de texte dans Excel et ne peuvent donc pas être utilisés dans les calculs.

La macro suivante vérifiera les cellules dans une plage sélectionnée. Si les cellules contiennent du texte et que ce texte se termine par un signe moins, la macro déplacera le signe moins au début du texte et le replacera dans la cellule. Le résultat est que la cellule est convertie d’une valeur de texte en valeur numérique appropriée.

Sub ConvToNum()

Dim MyText As Variant     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         MyText = MyRange.Cells(CellCount).Value         If VarType(MyText) = vbString Then             MyText = Trim(MyText)

If Right(MyText, 1) = "-" Then                 MyText = "-" & Left(MyText, Len(MyText) - 1)

MyRange.Cells(CellCount).Value = MyText             End If         End If     Next CellCount End Sub

_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 (2300) 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-Converting_Text_to_Numbers [Conversion de texte en nombres].