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

youguybass

XLDnaute Nouveau
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

XLDnaute Barbatruc
Inactif
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
 

youguybass

XLDnaute Nouveau
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
Bonjour et merci
peux-tu juste m'expliquer le :
Const fmt As String * 10 = "dd/mm/yyyy" pourquoi "String *10"
 

Discussions similaires

Statistiques des forums

Discussions
299 850
Messages
1 979 570
Membres
206 780
dernier inscrit
Edwige81