XL 2013 Suppression colonne si condition, Nouvel utilisateur Excel/VBA.

Juldax

XLDnaute Nouveau
Bonjour à tous,
voila mon problème : J'ai un fichier excel de 1184 colonnes avec des lignes variant de 3 à 8, je souhaiterais supprimer toutes les colonnes ayant plus de 3 lignes.
J'imagine une boucle pour chaque colonne si le nombre de cellule non vide est supérieur à 3 alors supprimer ...
Merci de votre aide.
 

phlaurent55

Nous a quittés en 2020
Repose en paix
Bonjour juldax,

avec ce code

Code:
Sub Bouton1_Clic()
Application.ScreenUpdating = False
For i = Range("IV1").End(xlToLeft).Column To 1 Step -1
If Application.WorksheetFunction.CountIf(Columns(i), "<>") > 3 Then Columns(i).Delete
Next i
Application.ScreenUpdating = True
End Sub


à+
Philippe
 

Robert

XLDnaute Barbatruc
Repose en paix
Bonjour Juldax, bonjour le forum,

Essaie comme ça :

VB:
Sub Macro1()
Dim C As Integer
Dim nb As Long

Application.ScreenUpdating = False
For C = 1184 To 1 Step -1
    nb = Application.WorksheetFunction.CountA(Columns(C))
    If nb > 3 Then Columns(C).Delete
Next C
Application.ScreenUpdating = True
End Sub

[Édition]
Bonjour Philippe, nos posts se sont croisés...
 

Discussions similaires

Réponses
22
Affichages
689

Statistiques des forums

Discussions
311 711
Messages
2 081 783
Membres
101 817
dernier inscrit
carvajal