VBA format de cellules en Général

Je voudrais formater un fichier excel en "Général", mais il ne fonctionne pas pour toutes les cellules (certains sont personnalisés, pourcentage...).
voici mon code :

With ActiveSheet.Range("A1").Resize(LineIndex, 1)
    .Value = WorksheetFunction.Transpose(strLine)
    .NumberFormat = "General"
    'DEFINE THE OPERATION FULLY!!!!
    .TextToColumns Destination:=.Cells(1), DataType:=xlDelimited, _
                   TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
                   Tab:=False, Semicolon:=False, Comma:=False, Space:=False, _
                   Other:=True, OtherChar:="|"

aider s'il vous plaît.

OriginalL'auteur BKChedlia | 2016-06-19

  1. 13

    Si vous voulez formater tous cellules à Général, puis utiliser quelque chose comme:

    Sub dural()
    ActiveSheet.Cells.NumberFormat = "General"
End Sub

    OriginalL'auteur Gary's Student