Cellules au format VBA en général

Question

Je voudrais formater un fichier Excel en "Général", mais cela ne fonctionne pas pour toutes les cellules (certaines sont personnalisées, 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:="|"

aidez-moi, s'il vous plaît.

Answer 1

Si vous souhaitez formater toutes les cellules en Général , utilisez quelque chose comme:

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