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

[Juldax]

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]

Bonjour juldax,

avec ce 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

 

[phlaurent55]

Re,


Oups, voici le fichier

à+
Philippe

 

[Robert]

Bonjour Juldax, bonjour le forum,

Essaie comme ça :

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...

 

[Juldax]

Merci beaucoup de votre temps et de vos réponses clair, c'est exactement ce qu'il me fallait.
Bonne journée