supp colonne

[Alex]

Comment supprimer les colonnes se trouvant avant le mot lundi qui se situe sur la premiére ligne?
j'ai fais :

Case "Lundi"
For i = 3 To 15
If Sheets("feuil1").Range("a2").Offset(0, i) <> "Lundi" Then
MsgBox "x" 'le message apparrait autant de fois qu'il y a de colonne a suprimer mais apré je c pas quoi faire car ca ne marche pu
'Columns.Activate
' Selection.Delete Shift:=xlToLeft
'Range("A1").Select
End If
*



QQn a une iD???
Merci d'avance

 

[Yeahou]

Bonjour Alex, le forum

essaie cela

A+

Case "Lundi"
For i = 3 To 15
If Sheets("feuil1").Range("a2").Offset(0, i) <> "Lundi" Then
MsgBox "colonne " & (i + 1) & " supprimée"
Sheets("feuil1").Range("a2").Offset(0, i).EntireColumn.Delete Shift:=xlToLeft
Exit for
End If

 

[Alex]

merci yeahou !!

 

[Alex]

yeahou si tu as le tps tu peux regarder sur :
http://www.excel-downloads.com/html/French/forum/messages/1_96749_96749.htm

merci encore