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

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

Juldax

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

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas