Autres [A1].currentregion : transformer String dans bon format (nb, date)

Sub convert()

Set plage = [A1].CurrentRegion.Offset(1, 0)
Dim cel As Range

For Each cel In plage
If cel <> "" And IsNumeric(cel) Then cel.Value = CInt(cel.Value)
Next

End Sub

Sub convert()

Set plage = [A1].CurrentRegion.Offset(1, 0)
Dim cel As Range

On Error Resume Next

For Each cel In plage
'-- cas 1 : valeur numérique et non vide)
If cel <> "" And IsNumeric(cel) Then
cel.Value = CInt(cel.Value)
Else
'-- cas 2 : date
tmp = Split(cel.Value, "/")
    If UBound(tmp) > 0 Then
    cel.Value = CDate(cel.Value)
        '-- cas 2.b = date seulement (entier)
        If cel.Value = Int(cel.Value) Then
        cel.NumberFormat = "dd-mm-yy"
        End If
    End If
End If
Next

End Sub

Sub Test()
Dim plage As Range, c As Range
Set plage = [A1].CurrentRegion
On Error Resume Next
For Each c In plage.SpecialCells(xlCellTypeConstants, 2)
If c.Column < 9 Then
If InStr(c, "/") > 0 And InStr(c, "/") <= 4 Then
c = CDate(c) * 1: c.NumberFormatLocal = "jj-mm-aa"
End If
End If
Next
End Sub

Sub convert()
Dim t, col, xcell, i&
  With Sheets("Feuil1")
    For Each col In [a1].CurrentRegion.Columns
      Select Case col.Column
      Case Cells(1, "a").Column, Cells(1, "g").Column
        t = col.Value
        For i = 1 To UBound(t)
          If t(i, 1) <> "" Then
            If IsNumeric(t(i, 1)) Then t(i, 1) = Val(t(i, 1))
          End If
        Next i
        col.NumberFormat = "General": col.Value = t
      Case Cells(1, "c").Column, Cells(1, "d").Column, Cells(1, "i").Column
        t = col.Value
        For i = 1 To UBound(t)
          If t(i, 1) <> "" Then
            If IsDate(t(i, 1)) Then t(i, 1) = CDate(t(i, 1))
          End If
        Next i
        col.NumberFormat = "General": col.Value = t
      End Select
    Next col
  End With
End Sub