Microsoft 365 Macro qui supprime les données

[SEVE95]

Bonjour,
Je souhaiterais 2 macros
_ Faire une macro pour la suppression des filtres et des données des 3 feuilles ( ce sont des tableaux)
_ Faire une macro pour que la feuille "Base atterrissage & Réalisé" soit recopiée dans la feuille "Base" à partir de la colonne D ligne 4
Je vous joins le fichier
Merci par avance
Cordialement

 

[TooFatBoy]

Bonjour,

Moi je souhaiterais :
- une console de jeux,
- un nouveau vélo,
- un robot-mixeur pour ma maman.


ps : prends bien soin de toi et de tes rennes.

 

[Dranreb]

Bonjour.
Je propose quand même la 1ère :

Option Explicit
Sub AffToutSupprDonTab()
   Dim Wsh As Worksheet, LOt As ListObject, Rép As VbMsgBoxResult
   For Each Wsh In ActiveWorkbook.Worksheets
      Set LOt = Wsh.ListObjects(1)
      If LOt.AutoFilter.FilterMode Then LOt.AutoFilter.ShowAllData
      If MsgBox("Données tableau " & LOt.Name & " à supprimer ?", _
         vbYesNo, "AffToutSupprDonTab") = vbYes Then LOt.DataBodyRange.Delete
      Next Wsh
   End Sub

À tester.

Pour la seconde repréciser à partir de dans quel intitulé de colonne du BASE faut il tout verser à partir de quel intitulé de colonne du BaseRéaliséAtterrissage.

 

[SEVE95]

Merci pour ton retour
J'ai renvoyé le fichier, c'est les données en jaune qui sont à recopier dans l'onglet base à partir de Brut atterrissage
Merci par avance

 

[Dranreb]

Je dirais :

Sub CopierBAtRBase()
   Dim RngSrc As Range, RngCbl As Range
   Set RngSrc = [BaseRéaliséAtterrissage[[Brut atterrissage]:[xxxx]]]
   Set RngCbl = [BASE[[Brut atterrissage]:[xxxx]]]
   RngCbl.ClearContents
   Set RngCbl = RngCbl.Resize(RngSrc.Rows.Count, RngSrc.Columns.Count)
   RngCbl.Value = RngSrc.Value
   End Sub

 

[SEVE95]

Merci pour votre retour je vais tester 🙂