XL 2019 Effacer une plage spécifique en VBA

Amilo

XLDnaute Accro
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
 

Pièces jointes

  • EffacerPlage.xlsm
    9.7 KB · Affichages: 3
Solution
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

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 o_O, non ?

mapomme

XLDnaute Barbatruc
Supporter XLD
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

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 o_O, non ?
 

Amilo

XLDnaute Accro
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
 

Discussions similaires

Réponses
12
Affichages
490

Statistiques des forums

Discussions
313 320
Messages
2 097 137
Membres
106 849
dernier inscrit
medf