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

[youguybass]

Bonjour
Je cherche à simplifier :
ActiveSheet.ListObjects("TabGlobaleFicheIntervention").ListColumns(2).DataBodyRange.Select
Selection.NumberFormat = "dd/mm/yyyy"
ActiveSheet.ListObjects("TabGlobaleFicheIntervention").ListColumns(30).DataBodyRange.Select
Selection.NumberFormat = "dd/mm/yyyy"
ActiveSheet.ListObjects("TabGlobaleFicheIntervention").ListColumns(31).DataBodyRange.Select
Selection.NumberFormat = "dd/mm/yyyy"
ActiveSheet.ListObjects("TabGlobaleFicheIntervention").ListColumns(33).DataBodyRange.Select
Selection.NumberFormat = "dd/mm/yyyy"
ActiveSheet.ListObjects("TabGlobaleFicheIntervention").ListColumns(36).DataBodyRange.Select
Selection.NumberFormat = "dd/mm/yyyy"

Merci d'avance

 

[soan]

Bonjour youguybass,

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

 

[youguybass]

Bonjour youguybass,

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

Bonjour et merci
peux-tu juste m'expliquer le :
Const fmt As String * 10 = "dd/mm/yyyy" pourquoi "String *10"

 

[soan]

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.​

 

[youguybass]

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.​

Merci