XL 2013 Sélection de plusieurs colonnes dans un tableau puis conversion en Date

soan à dit:

Bonjour youguybass,

VB:

Sub Essai()
  Const fmt As String * 10 = "dd/mm/yyyy"
  With ActiveSheet.ListObjects("TabGlobaleFicheIntervention")
    .ListColumns(2).DataBodyRange.NumberFormat = fmt
    .ListColumns(30).DataBodyRange.NumberFormat = fmt
    .ListColumns(31).DataBodyRange.NumberFormat = fmt
    .ListColumns(33).DataBodyRange.NumberFormat = fmt
    .ListColumns(36).DataBodyRange.NumberFormat = fmt
  End With
End Sub

soan

Cliquez pour agrandir...

soan à dit:

avec Const fmt As String * 10 : fmt est déclarée comme une constante chaîne de caractères de longueur fixe, de 10 caractères ; fmt est mon abréviation pour format.​

Cliquez pour agrandir...