n'effacer que le texte ?

lacourriette · 12 Décembre 2006

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 · 12 Décembre 2006

Re : n'effacer que le texte ?

Bonsoir lacourriette,

Pourquopi pas :

Code:

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

JeanMarie · 12 Décembre 2006

Re : n'effacer que le texte ?

Bonsoir

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

@+Jean-Marie

lacourriette · 12 Décembre 2006

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

n'effacer que le texte ?

lacourriette

XLDnaute Nouveau

XanorK

XLDnaute Occasionnel

JeanMarie

XLDnaute Barbatruc

lacourriette

XLDnaute Nouveau

Discussions similaires