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