Discussion :

[étudiant11]

Bonjour j"ai besoin d'effacer une colonne si le contenu de le deuxième ligne est égale à 0. Le code vba que j'ai utilisé donne le résultat voulu mais le problème est que ce code est trop lourd et prend beaucoup de temps je comprends pas pourquoi
voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
debut = Time
        For NoCol = 1 To DerCol
        If Sheets("map2").Cells(2, NoCol).Value = "0" Then
            Cells(1, NoCol).EntireColumn.Delete
        End If
 
        Next
    fin = Time

ça prend presque deux minutes pour l'exécuter ce que je trouve bizarre !!
merci d'avance

[Stanler]

Bonjour,
à quoi te sert "debut = Time" et "fin= Time" ? Tu ne fais qu'ajouter une valeur à "Time".

Essaye ces codes et dis nous si ça fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Ccellvide= Rows("2:2").Find("", , xlValues, xlWhole, , , False).Column
Columns(Ccellvide).EntireColumn.Delete

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
For NoCol = 1 To DerCol
Ccellvide= Rows("2:2").Find("", , xlValues, xlWhole, , , False).Column
Columns(Ccellvide).EntireColumn.Delete
Next

[mercatog]

Essaies d'abord ceci, si c'est encore long on pourra améliorer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Application.ScreenUpdating = False
Debut = Time
With Worksheets("map2")
    For NoCol = DerCol To 1 Step -1
        If .Cells(2, NoCol).Value = 0 Then .Columns(NoCol).Delete
    Next NoCol
End With
Fin = Time

PS. pour supprimer avec la boucle For, on commence du dernier vers le premier

[étudiant11]

Essaies d'abord ceci, si c'est encore long on pourra améliorer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Application.ScreenUpdating = False
Debut = Time
With Worksheets("map2")
    For NoCol = DerCol To 1 Step -1
        If .Cells(2, NoCol).Value = 0 Then .Columns(NoCol).Delete
    Next NoCol
End With
Fin = Time

PS. pour supprimer avec la boucle For, on commence du dernier vers le premier

Ceci m'a trop aider merci
Est ce que y a vraiment d'autres améliorations qu'on peut ajouter?

[AlainTech]

Bonjour,

S'il y a des formules dans la feuille, il faut essayer de passer en calcul manuel au début de la macro et de repasser en automatique à la fin.

[kiki29]

Salut, à titre documentaire : Dernière ligne et la dernière colonne renseignées d'une feuille

[Philippe Tulliez]

Bonjour,
Trois erreurs dans ces lignes de code

1. pour supprimer des colonnes (de même pour les lignes) il faut partir de la dernière vers la première.
2. si tu dois tester la valeur nulle 0, il ne faut pas de guillemets
3. la cellule qui se trouve dans la ligne de suppression n'a pas de parent (la feuille) donc tu risques de supprimer une colonne d'une autre feuille si la feuille nommée map2 n'est celle qui est active

Pour savoir la raison de ce temps long (2 minutes), il faudrait déjà connaître la valeur de la variable DerCol.

[étudiant11]

Merci de m'avoir répondu
le nombre de col est 151
le temps d'exécution passe à 26 secondes avec ce code