Ne pas effacer ligne de titre

[fenec]

Bonjour le forum

Besoin une fois de plus de vos lumières

Dans mon code j’essaie en vain de ne pas effacer ma dernière ligne (ligne de titre " total annuel") mais je n’y parviens pas.

J’utilise :

.Range("B17:O" & .Rows.Count).SpecialCells(xlCellTypeConstants, 23).ClearContents

Mais ca m’efface tout.

J’ai essayé avec -1 :

.Range("B17:O" & .Rows.Count-1).SpecialCells(xlCellTypeConstants, 23).ClearContents

Mais ca ne fonctionne pas

Cordialement

Fenec

 

[stefan373]

Re : Ne pas effacer ligne de titre

Bonjour Fenec et le forum,

En espérant répondre à votre demande.

ActiveSheet.Range("a10:b10", ActiveSheet.Range("a10").End(xlDown)).Offset(-1, 0).Select

A adapter pour vous. 🙂

A+ Stéfan

 

[Staple1600]

Re : Ne pas effacer ligne de titre

Bonsoir à tous


Une variante (qui fonctionne sur un tableau sans cellules discontigues)

Sub a()
Dim dl&
With [A1].CurrentRegion
    dl = .Rows.Count: .Resize(dl - 1) = Empty
End With
End Sub

 

[Staple1600]

Re : Ne pas effacer ligne de titre

Re

Et deux variantes qui s'affranchissent de la contrainte précédente

Sub b()
Dim dl&
With ActiveSheet.UsedRange
    dl = .Rows.Count: .Resize(dl - 1) = Empty
End With
End Sub

Sub c()
Dim dl&
With ActiveSheet.UsedRange
    dl = Cells(Rows.Count, 1).End(xlUp).Row: .Resize(dl - 1) = Empty
End With
End Sub

 

[fenec]

Re : Ne pas effacer ligne de titre

Bonjour le forum, Stefan373, Staple1600

Stefan373
Ta proposition serait nickel si je devrais effacer toute la plage "b18 :m26 " sauf que je ne veux pas effacer la colonne " k " celle-ci comportant des formules


Staple1600
Tes deux premiers codes sont trop efficace ils m’effacent tout sauf la ligne 27

Pour le dernier il m’efface bien les données mais bloque sur

Erreur d’exécution ‘1004’ :
Erreur défini par l’application ou par l’objet

S’affiche en jaune

: .Resize(dl - 1) = Empty

Te joint mon exemple avec ton code au cas où je l’utiliserais mal

Cordialement

Fenec

 

[stefan373]

Re : Ne pas effacer ligne de titre

Bonjour fenec, staple et le forum,

Vous pouvez utiliser cette fonction, qui n'efface pas les formules.

On Error Resume Next
ActiveSheet.Range("a10:b10",ActiveSheet.Range("a10").End(xlDown)).Offset(-1,0).SpecialCells(xlCellTypeConstants).ClearContents
On Error GoTo 0

A+ Stéfan

 

[Staple1600]

Re : Ne pas effacer ligne de titre

Bonsoir à tous


Et avec celle-ci?
Code VBA:
Const COLO As String = "K"
Sub d()
Dim dl&, dc&: dc = Cells(1, COLO).Column
With ActiveSheet.UsedRange
dl = Cells(Rows.Count, 1).End(xlUp).Row: .Resize(dl - 1, dc - 1) = Empty
End With
End Sub

Voir copie d'écran ci-dessous (cliques sur l'image pour l'afficher en taille réelle)

EDITION: Bonsoir kjin, pourquoi tu dis matinal 😕😕

EDITION II: Bonsoir job75 😉

 

[kjin]

Re : Ne pas effacer ligne de titre

bonsoir,
n'apporte rien au fil comme dirait JC
Salut Staple , bien matinal ! 🙂
A+
kjin

 

[job75]

Re : Ne pas effacer ligne de titre

Bonsoir à tous,

Ce code fonctionne quel que soit le nombre de lignes à effacer :

Dim derlig As Long
With Sheets("Banque")
  derlig = .Cells(.Rows.Count, 2).End(xlUp)(0).Row
  If derlig > 16 Then
    On Error Resume Next 's'il n'y a plus de valeurs à effacer
    .Range("B17:O" & derlig).SpecialCells(xlCellTypeConstants).ClearContents
    On Error GoTo 0
  End If
End With

Edit : on peut supprimer les 2 lignes If derlig > 16 Then ... End If s'il est sûr que la ligne 17 n'est jamais supprimée.

A+

 

[fenec]

Re : Ne pas effacer ligne de titre

Bonjour le forum, Stefan373, Staple1600,Job75

Stefan373
Merci ca fonctionne


Staple1600

Toujours pas, il m’efface pas les données et bloque aussi sur

: .Resize(dl - 1, dc - 1) = Empty

Job75

Rien à dire nickel même avec les 2 lignes en moins vu que la ligne 17 ne sera jamais supprimée

If derlig > 16 Then ... End If

Cordialement

Fenec