Effacer le contenu d'une cellule

[JORDAN]

Bonjoiur tout le monde, le Forum,

Je ne parviens pas à trouver la solution pour effacer le contenu
d'une cellule sans effacer le format, en VBA
La feuille est protégée sans mot de passe
La cellule n'est pas protégée

j'ai essayé :

Clear : le format disparait
Cells(1,1) = "" : la cellule n'est pas considérée comme vide

Donc actuellement je le fais avec le code suivant mais parfois j'ai des erreurs
avec : ActiveSheet.Unprotect ou ActiveSheet.Protect

For J = 9 To Range("STOCK!A65536").End(xlUp).Row
    ActiveSheet.Unprotect
    Cells(J, 1).Select
    With Selection
        .Clear
        .NumberFormat = "@"
        .HorizontalAlignment = xlRight
        .VerticalAlignment = xlCenter
        .Interior.ColorIndex = 37
        .Font.Bold = True
        .Font.Name = "Arial"
        .Font.Size = 12
        .Locked = False
        .FormulaHidden = False
    End With
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Next J

Existe-t-il quelque chose comme Clear mais qui n'efface pas le format ??

Merci pour votre aide et bonne journée

 

[Pierrot93]

Re : Effacer le contenu d'une cellule

Bonjour Jordan

si j'ai bien compris, essaye peut être ceci:

Range("a1").ClearContents

bonne journée
@+

 

[mutzik]

Re : Effacer le contenu d'une cellule

bonjour

clearcontents n'efface que le contenu

et bing, salut pierrot

 

[Dull]

Re : Effacer le contenu d'une cellule

Salut Jordan, le Forum

Essaye avec ClearContents à la place de Clear

EDITION: Salut Pierrot et Bertrand

Bonne Journée

 

[JORDAN]

Re : Effacer le contenu d'une cellule

Bonjour Pierrot93, mutzik et Dull,

ah oui effectivement c'est aussi simple que cela !!!

merci à vous tous pour votre aide

 

[DJ FA]

Re : Effacer le contenu d'une cellule

Et par exemple comment effacer le contenu à partir de la 3 ème ligne jusqu'en bas de la feuille ? merci

 

[Staple1600]

Re : Effacer le contenu d'une cellule

Bonsoir



Comme ceci

Rows("4:65536").ClearContents

 

[13GIBE59]

Re : Effacer le contenu d'une cellule

Bonjour le forum.

DJ FA :

Range("A3").End(xlDown).Select
    Selection.ClearContents

 

[DJ FA]

Re : Effacer le contenu d'une cellule

Merci les chefs !

 

[DJ FA]

Re : Effacer le contenu d'une cellule

Tiens j'ai une autre question.

J'ai cette formule sur ma macro :

sheets("f1").Range(Sheets("f1").Cells(j, 1), Sheets("f1").Cells(j, 6)).Value = _

Je voudrais que cette macro me prenne en compte les cellules de 1 à 6 c'est le cas puis la 10 ? merci de votre aide.