Efface vers le bas

Le 04/03/2019 à 17:23

Bonjour à tous

Puis je avoir un coup de main pour une macro qui efface mes colonnes après traitement.

Merci de votre aide

Le 04/03/2019 à 17:33

Bonjour,

Une piste à tester :

Sub EffacerDonnées()

With Sheets("MaFeuille") <-- Nom à adapter
    .Range("B:C").Copy
    .Range("B:C").PasteSpecial Paste:=xlPasteValues 'Collage en valeur
    .Range("D:F").Delete 'Suppression des colonnes D à F
    .Range("A:A").Delete 'Suppression colonne A
End With

End Sub

PS : il faut déplacer ton bouton en colonne B ou C, sinon il sera supprimé aussi.

Le 04/03/2019 à 18:33

ca fonctionne peux tu me réinsérer les 3 dernières colonnes par la suite.

merci beaucoup

Le 05/03/2019 à 09:08

patogaze77 a écrit :
ca fonctionne peux tu me réinsérer les 3 dernières colonnes par la suite.
merci beaucoup

Bonjour,

.Delete supprime les colonnes

.ClearContents supprime le contenu (pas la mise en forme).

Je te conseille donc d'utiliser le second.

Le 05/03/2019 à 20:45

Merci je teste demain