Supprimer colonne si cellule vide
Bonjour chers membres
Je recherche un code macro. Je souhaite supprimer les colonnes entières quand sur la ligne 7 il y a des cellules vides.
Il y a une condition, il faut qu'il y ai un 0 sur la ligne 5 pour supprimer la colonne.
Le code commence a partir de la cellule F7
Donc si G7 est vide et 0 en G5 la colonne G est supprimée.
Le code doit fonction sur l'onglet
J'espère que mon besoin est clair.
Merci beaucoup
Bonjour jay72000
Sans fichier avec une explication comme
Je souhaite supprimer les colonnes entières quand sur la ligne 7 il y a des cellules vides.
Perso j'y vois une incohérence, surtout qu'après
Il y a une condition, il faut qu'il y ai un 0 sur la ligne 5 pour supprimer la colonne.
Ouille...
Bonsoir Bruno,
Je comprends, veuillez m'excuser, je vous joins un fichier, j'ai essayé d' être le plus clair possible.
Merci
Bonsoir jay72000
Je comprends mieux, voici le code souhaité
Sub SupCol0Ligne6()
Dim Col As Long, dCol As Long
' Avec la feuille active
With ActiveSheet
' Trouver la dernière colonne remplie en ligne 2
dCol = .Cells(2, Columns.Count).End(xlToLeft).Column
' Pour chaque colonne à partir de la fin
For Col = dCol To Range("G1").Column Step -1
' Si la cellule de la ligne 6 de la colonne est vide
If .Cells(6, Col).Value = 0 Then
' Juste pour visualiser la colonen que l'on va supprimer
.Cells(6, Col).Select
' Posr la question (pas obligatoire=
If MsgBox("Voulez-vous supprimer la colonne ?", vbQuestion + vbYesNo, "ATTENTION...") = vbYes Then
' Supprimer la colonne
.Cells(1, Col).EntireColumn.Delete
End If
End If
Next Col
End With
End SubA+
Bonsoir à tous,
Une proposition via Power Query (complément gratuit à installer pour Excel 2010 et 2013. Nativement intégré dans les versions postérieures) :
Note : Dans ma requête la colonne 2 du tableau est, elle aussi, supprimée.
Bonjour Bruno, JFL,
Merci pour ce code, il marche très bien !!! Je suis impressionné !