Tableau VBA

Fermé
camcam1404 Messages postés 64 Date d'inscription mardi 13 décembre 2016 Statut Membre Dernière intervention 9 septembre 2019 - 7 avril 2017 à 11:58
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 7 avril 2017 à 13:48
Bonjour,



J'ai le code suivant qui marche trés bien mais j'aimerais utiliser des tableaux pour gagner du temps lors du traitement.

Quelqu´un pourrait m'éxpliquer la démarche à suivre ?

 Sub Deletecolums()

Dim I As Long
Dim LastCol As Long


With Worksheets("Resultl")

Application.ScreenUpdating = False


    LastCol = .Cells(1, Columns.Count).End(xlToLeft).Column
    For I = LastCol To 4 Step -2
        .Columns(I + 1).Delete
 Next I
 
 Application.ScreenUpdating = True
 
End With

End Sub



1 réponse

michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
7 avril 2017 à 13:48
Bonjour,
il me semblait bien que je t'avais communiqué que cette ligne
Application.ScreenUpdating = True
était inutile

Donc, ca ne sert à ren de t'aider

donc, zn blacklist


-1