XL 2016 Supprimer colonnes et non la ligne entière

Staple1600

XLDnaute Barbatruc

• 13 Août 2018

• #2

Bonjour le fil, le forum, bennp

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 13 Août 2018

• #3

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

 

Vote positif 0 Vote négatif

B

bennp

XLDnaute Occasionnel

• 13 Août 2018

• #4

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 13 Août 2018

• #5

Bonjour,

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

Code:

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

A+

 

Vote positif 0 Vote négatif

B

bennp

XLDnaute Occasionnel

• 13 Août 2018

• #6

Super merci ça fonctionne !

 

Vote positif 0 Vote négatif