n'effacer que le texte ?

[lacourriette]

Exceleuses, Exceleurs Bonsoir,

Je désire effacer le texte sur une ligne de cellules.
J'ai fait :

Sub Effacer1()
Range("A24:G24").Select
End Sub

Cela m'efface bien la ligne mais aussi ma couleur de page, mes encadrements de cellules et me retransforme ma cellule fusionnée et ma liste défilante.

Je veux bien me passer de la liste mais pas du reste.

Quelqu'un(e) as t'il (elle) une solution pour n'effacer que le texte de ma ligne 24

A plus

Merci de votre aide!

 

[XanorK]

Re : n'effacer que le texte ?

Bonsoir lacourriette,

Pourquopi pas :

Sub Effacer1()
    dim C as range
    For each c in Range("A24:G24").Select
       c.value=""
    Next
End Sub

 

[JeanMarie]

Re : n'effacer que le texte ?

Bonsoir

Essaye ce code
Sub Effacer1()
Range("A24:G24").ClearContents
End Sub

@+Jean-Marie

 

[lacourriette]

Re : n'effacer que le texte ?

Bonsoir à vous deux,

J'ai essayé la macro de Jean-Marie, C'est au poil!

Merci à vous deux et bonne soirée.

Franck