XL 2016 Supprimer colonnes et non la ligne entière

bennp

XLDnaute Occasionnel
Bonjour,

j'ai de code là :

Code:
With CelDéb.EntireRow.Resize(3000)
.Clear
.RowHeight = 18
End With

Le problème est que je ne souhaite pas supprimer la ligne entière (EntireRow) mais juste les 26 1ères colonnes A:AA

Quelqu'un aurait une idée svp ?

Merci
 

Staple1600

XLDnaute Barbatruc
Re

@bennp
A la relecture, ceci devrait mieux convenir
Au choix, selon que tu veuilles effacer le contenu et le format ou seulement le contenu.
VB:
Sub EffaceFormat()
[A2].Resize(Rows.Count - 1, 27).Clear
End Sub
'ou 
Sub EffaceContenu()
[A2].Resize(Rows.Count - 1, 27) = ""
End Sub
 

bennp

XLDnaute Occasionnel
J'ai en fait ce bout de code :

VB:
Set CelDéb = Cel: Set CelCou = Cel: LgnPgBk = 126
NbLMaxParPage = NbLMaxPg: NbLVides = NbLVid
Set Wsh = Cel.Worksheet
With CelDéb.EntireRow.Resize(3000)
.Clear
.RowHeight = 18
End With

Je sais pas si en le remplaçant par celui que tu proposes, ça va fonctionner
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 925
Membres
101 841
dernier inscrit
ferid87