Discussion :

[N0uchettte]

Bonjour,

Je suis super débutante ...

Qu'est-ce qui cloche dans cette macro ?
Ce que je veux faire : supprimer toutes les données de ma feuille ImportGlobal

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub (effacer_données)
Worksheets("ImportGlobal").Delete         
Worksheets.Add After:=Sheets(Feuil1)
VariableFeuille = ActiveSheet.Name
ActiveSheet.Name = "ImportGlobal"

Merci pour votre aide !

[Invité]

Bonjour,


Essayez cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Sub Effacer_donnees()
 
Sheets("ImportGlobal").Activate
Cells.ClearContents  ' Conserve les formats
'Cells.Clear         ' Effacement hard....
 
End Sub

Cordialement.