Effacer cellule au lancement

[Bruce sato]

Bonjour a tous
Je cherche a effacer 4 cellule lors du lancement de mon fichier xls
les cellules sont K13, I20, I24, et I25
j'ai essayer de faire une macro mais je ne comprend pas excel me donne une erreur

 

[jeanpierre]

Re : Effacer cellule au lancement

Bonsoir Bruce sato,

Oui, mais encore ?

 

[criscris11]

Re : Effacer cellule au lancement

Bonsoir Bruce, JP, la Team, le forum,
Bruce : tu peux essayer ce code

Private Sub Workbook_Open()
Range("K13,I20,I24,I25").Select
    Range("I25").Activate
    Selection.ClearContents
    Range("K13").Select
End Sub

Code à mettre dans ThisWorbook.
Tiens-nous au courant.

JP : t'as le bonjour du moussailon 😉.

 

[skoobi]

Re : Effacer cellule au lancement

Bonsoir Bruce sato,
A placer dans ThisWorkbook:

Private Sub Workbook_Activate()
Worksheets(1).Activate
Range("K3").Clear
Range("I20").Clear
Range("I24:I25").Clear
End Sub

Edit:
En même temps cricri

 

[Bruce sato]

Re : Effacer cellule au lancement

si je me souviens bien ( debutant en macro)
j'ai mis
Range("k13").Delete
et la il me dis que ma page et verrouiller ce qui n'est pas le cas

 

[Bruce sato]

Re : Effacer cellule au lancement

Merci a tous c'est niquel

Private Sub Workbook_Open()
Range("K13,I20,I24,I25").Select
Range("I25").Activate
Selection.ClearContents
Range("K13").Select
End Sub

je pense que mon probleme etais de lm'avoir mis dans une feuille est non dans thiswork