XL 2019 Effacer une plage spécifique en VBA

Amilo · 26 Mars 2024

Bonsoir le forum,

Quel est le code VBA qui permet d'effacer uniquement la plage en jaune dans le fichier en pièce jointe
Le nombre de lignes est dynamique mais les colonnes restent toujours les mêmes
Pour information, il n'y aura jamais de cellules vides dans la plage en jaune

En vous remerciant pas avance

Cordialement

mapomme · 26 Mars 2024

Bonsoir @Amilo ,

Voir ce code :

VB:

Sub EffacerPlage()
Dim der&
   With Sheets("Feuil1")
      If .FilterMode Then .ShowAllData
      der = .Cells(Rows.Count, "a").End(xlUp).Row
      If der < 6 Then Exit Sub Else .Range("a6:g" & der).Clear
   End With
End Sub

Amilo à dit:
Pour information, il n'y aura jamais de cellules vides dans la plage en jaune

une fois la plage effacée, il y aura forcément des vides , non ?

job75 · 26 Mars 2024

Bonsoir Amilo,

En mettant le tableau sous forme de tableau structuré :

VB:

[Tableau1] = ""

A+

mapomme · 26 Mars 2024

Bonsoir @Amilo ,

Voir ce code :

VB:

Sub EffacerPlage()
Dim der&
   With Sheets("Feuil1")
      If .FilterMode Then .ShowAllData
      der = .Cells(Rows.Count, "a").End(xlUp).Row
      If der < 6 Then Exit Sub Else .Range("a6:g" & der).Clear
   End With
End Sub

Amilo à dit:
Pour information, il n'y aura jamais de cellules vides dans la plage en jaune

une fois la plage effacée, il y aura forcément des vides , non ?

Amilo · 26 Mars 2024

Bonsoir job75 , mapomme ,

Merci bcp pour vos réponses
@job75 , je ne savais pas qu'on pouvait le faire aussi facilement, c'est bon à savoir.
Pour ma part, je dois garder une plage sans passer par un tableau structuré

@mapomme , cela a fonctionné parfaitement

Bonne soirée à tous

Cordialement

XL 2019 Effacer une plage spécifique en VBA

Amilo

XLDnaute Accro

Pièces jointes

mapomme

job75

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

Amilo

XLDnaute Accro

Discussions similaires