Effacer des colonnes sous condition

WDAndCo · 25 Septembre 2007

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 · 25 Septembre 2007

Re : Effacer des colonnes sous condition

Bonsoir

J'ai testé cela

Code:

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 · 25 Septembre 2007

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 · 26 Septembre 2007

Re : Effacer des colonnes sous condition

Personne ne peut m'aider ?

Effacer des colonnes sous condition

WDAndCo

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

Pièces jointes

WDAndCo

XLDnaute Impliqué

Discussions similaires

Effacer des colonnes sous condition

WDAndCo

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

WDAndCo

XLDnaute Impliqué

Pièces jointes

WDAndCo

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency