effacer des cellules automatiquement

[naufa]

Bonjour à tous,

j'ai regarder sur le forum mais je n'ai pas trouver de réponse à mon pble, donc voici:

j'ai une facture dans laquelle j'entre différents renseignements, et je souhaite que les cellules renseignées soient effacées à chaque ouverture du classeur (qui aura été enregistrer auparavant), ce sont des cellules précises qui doivent etre effacée:

B15:B20
F15:F20
B26:B57
C26:C57
D2657
E26:E57
H63
H64

merci de votre aide

Naufa

Message édité par: naufa, à: 18/11/2005 11:40

Message édité par: naufa, à: 18/11/2005 22:43

 

[mutzik]

Re:[resolu]

Bonjour naufa,

on sait pas trop quoi ni quand ni comment, mais on est contents pour toi

bon week-end

 

[Robert]

Re:[resolu]

Bonjour Naufa, Bertrand, bonjour le forum,

Je pense que Naufa fait référence à ce Ce lien n'existe plus. Et comme Bertrand je suis content pour lui.

 

[naufa]

Re:[resolu]

oui excuser moi je me suis emmêlé entre 'nouveau' et 'répondre', alors quand j'ai vu ça j'ai changer mon topic

 

[naufa]

Bonsoir à tous,

j'ai trouvé sur le forum un code pour effacer des cellules (ici c'est le code que j'ai modifié et qui ne marche pas...)

Sub Dragon()
Dim Cell As Range

For Each Cell In Range('B15:B20')
If Cell.HasFormula = False Then
Cell.ClearContents
End If
Next Cell
End Sub

Comment faire pour que ce code s'execute au moment de l'ouverture du document? et j'ai plusieurs cellules à effacer comment les ajouter au code?

F15:F20
B26:B57
C26:C57
D2657
E26:E57
H63
H64

 

[lio]

Bonjour Naufa, Mutzic et robert ( merci pour ton post Duvel !)

Essaie:

Public Sub raz()
Range('f15:f20').ClearContents
Range('b26:b57').ClearContents
End Sub


@ +

PS: A ajuster selon tes besoins. Place ce code dans un module

 

[naufa]

Bonsoir Lio et à tous,

merci lio ça marche mais j'ai une question

voici comment j'ai implémenté le code:

Private Sub Workbook_Open()
If ActiveWorkbook.Path = '' Then
[NumeroFacture] = [NumeroFacture] + 1
Range('b15:b20').ClearContents
Range('b26:b57').ClearContents
Range('c26:c57').ClearContents
Range('d26:d57').ClearContents
Range('e26:e57').ClearContents
Range('h63').ClearContents
Range('h64').ClearContents
ActiveWorkbook.Saved = True
ActiveWorkbook.SaveAs ('Facturation.xlt')
End If
End Sub

ce qui donne que lorsque j'ouvre mon doc xlt ça m'incrémente le numéro de facture et ça m'efface les champs que j'avais rempli dans ma facture précédente mais ça ne marche que lorsque j'ouvre mon document à partir du dossier ou il est placé et pas quand je fait à partir d'excel ficher ouvrir

si quelqu'un à une idée la dessus ce serait super