XL 2016 Supprimer colonnes et non la ligne entière

[bennp]

Bonjour,

j'ai de code là :

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]

Bonjour le fil, le forum, bennp

Columns("A:AA").ClearContents
ou
Columns("A:AA").Clear
devraient faire l'affaire, non ? 🙄

 

[Staple1600]

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.

Sub EffaceFormat()
[A2].Resize(Rows.Count - 1, 27).Clear
End Sub
'ou 
Sub EffaceContenu()
[A2].Resize(Rows.Count - 1, 27) = ""
End Sub

 

[bennp]

J'ai en fait ce bout de code :

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

 

[job75]

Bonjour,

JM le monsieur ou la madame nous a montré un code au post #1, pourquoi ne pas l'utiliser ???

With CelDéb.EntireRow.Resize(3000, 27)
.Clear
.RowHeight = 18
End With

A+

 

[bennp]

Super merci ça fonctionne !