Effacer des colonnes sous condition

[WDAndCo]

Bonsoir le Forum

J'ai cette Macro qui efface des lignes sous condition, je voudrais effacer des colonnes vident a un endroit. Mais je ne sais pas le faire ! Je vous ai fait une ébauche de Macro :
Une précision sur la ligne 81 ce sont des formules, des sommes alors je ne sais pas si il faut mettre If = 0 ou If = "" ?

Dim C As Long
For C = 10 To 35
If Cells(82, C).Value = "" Then Colonne(C).Delete
End If
Next c

Dim li As Long
Dim x As Long
li = 81
For x = li To 5 Step -1
If Cells(x, 10).Value = "" And Cells(x, 11).Value = "" Then Rows(x).Delete
End If
Next x

D'avance merci

Dominique

 

[Staple1600]

Re : Effacer des colonnes sous condition

Bonsoir


J'ai testé cela

Sub test()
Application.ScreenUpdating=False
Dim C As Long
For C = 10 To 31
If IsEmpty(Cells(81, C)) Then
Columns(C).Delete Shift:=xlToLeft
End If
Next C
Application.ScreenUpdating=True
End Sub

 

[WDAndCo]

Re : Effacer des colonnes sous condition

Bonsoir est merci mais cela ne marche pas, toutes les cellules recherche se mettent en REF#!

Je joint qu'une page de ce fichier qui est beaucoup trop lourd.

La Marco ce déclenche avec le Bouton mettre en 3 pages elle copie 3 pages dans un nouveau classeur et supprime les colonne ou la cellule 82 est vide = 0 car c'est un somme. La 2eme partie de la Macro supprime les lignes et sauve le nouveau classeur 'allégé'.

Sub miseenfichier3pages()
'
' miseenfichier3pages Macro
' Macro enregistrée le 01/02/2005 par WD And Co
'

'
Union(Range( _
"U3:U4,P3😛4,T3:T4,S3:S4,O3:O4,N3:N4,M3:M4,J3:J4,W3:W4,3:35,AB3:AB4,AE3:AE4,AD3:AD4,AC3:AC4,AF3:AF4,Z3:Z4,AL3:AL4,AI3:AI4,AG3:AG4,AH3:AH4,AN3:AN4,AO3:AO4,AP3:AP4,AQ3:AQ4,AV3:AV4,AU3:AU4,X3:X4,Y3:Y4,I3:I4,3:34,K3:K4,L3:L4" _
), Range( _
"R3:R4,Q3:Q4,AJ3:AJ4,AK3:AK4,AR3:AR4,AM3:AM4,AS3:AS4,AA3:AA4,AT3:AT4,V3:V4")). _
Select
Range("A3").Activate
Selection.EntireRow.Hidden = False
Range("A14").Select
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Select
Sheets("TNA A et D").Activate
Sheets(Array("VHR A et D", "Pret de Personnel", "TNA A et D")).Copy
Sheets("VHR A et D").Activate
Dim li As Long
Dim x As Long
li = 81
For x = li To 5 Step -1
If Cells(x, 10).Value = "" And Cells(x, 11).Value = "" Then
Rows(x).Delete
End If
Next x
ActiveWorkbook.SaveAs FileName:= _
"F:\Personnel\Semaines CRU 2007\Secteur SM S00.xls" _
, FileFormat:=xlExcel9795, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWindow.Close
Sheets("VHR A et D").Select
Range("J2").Select
End Sub

Merci

 

[WDAndCo]

Re : Effacer des colonnes sous condition

Personne ne peut m'aider ?