Effacer le contenu d'une cellule

  • Initiateur de la discussion Initiateur de la discussion JORDAN
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

JORDAN

XLDnaute Impliqué
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

Code:
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
 
Re : Effacer le contenu d'une cellule

Tiens j'ai une autre question.

J'ai cette formule sur ma macro :

Code:
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.
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
503
Retour