Selection de plusieurs colonnes tableau VBA et conversion en Date

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

Bonjour

Sub ChangeFormat()
  Dim arCol(), i%
  arCol = Array(2, 30, 31, 33, 36)
  For i = 1 To UBound(arCol)
    Range("TabGlobaleFicheIntervention").Columns(arCol(i)).NumberFormat = "dd/mm/yyyy"
  Next i
End Sub

Est ce assez simple?

Je resterai demain

Pour comprendre, pouvez vous m'expliquer les étapes /fonctions svp

Merci pour recherches et solutions

Les select sont totalement inutiles.

Vous pourriez aussi faire :

Range("TabGlobaleFicheIntervention").Columns(2).NumberFormat = "dd/mm/yyyy"

Range("TabGlobaleFicheIntervention").Columns(30).NumberFormat = "dd/mm/yyyy"

Range("TabGlobaleFicheIntervention").Columns(31).NumberFormat = "dd/mm/yyyy"

Range("TabGlobaleFicheIntervention").Columns(33).NumberFormat = "dd/mm/yyyy"

Range("TabGlobaleFicheIntervention").Columns(36).NumberFormat = "dd/mm/yyyy"

C'est en fait ce que fait mon code mais en plus direct.

arCol = Array(2, 30, 31, 33, 36)

cette ligne défini un array contenant la liste des colonnes à modifier. Ensuite il ne reste plus qu'à faire une boucle sur cette liste pour traiter chaque colonne.

For i = 1 To UBound(arCol)

next i

Et à l'intérieur de la boucle on fait ce qu'il faut.

Range("TabGlobaleFicheIntervention").Columns(arCol(i)).NumberFormat = "dd/mm/yyyy"

Magnifique, magique. Merci pour les précisions

Parfait ça marche

Merci

Super. Pensez à marquer le sujet comme résolu.