XL 2019 Effacer une plage spécifique en VBA

[Amilo]

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

 

[job75]

Bonsoir Amilo,

En mettant le tableau sous forme de tableau structuré :

[Tableau1] = ""

A+

 

[mapomme]

Bonsoir @Amilo 🙂 ,

Voir ce code :

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

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]

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