Effacer texte

porcinet82

XLDnaute Barbatruc

• 22 Février 2006

• #2

Salut guenfood,

Pour affacer le contenu de la colonne A, tu mets :

Code:

Columns('A:A').ClearContents
'ou
Columns(1).ClearContents

@+

 

Vote positif 0 Vote négatif

E

edelweisseric

XLDnaute Occasionnel

• 22 Février 2006

• #3

Bonjour

Tu te mets :

Columns.ClearContents

Il faut que tu sois sur une cellule de la colonne et cela efface tout. Si tu veux que cela efface que les cellules avec du texte, il faut faire une boucle

Cordialement

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 22 Février 2006

• #4

Bonjour edelweisseric, porcinet82, guenfood,

Edelweisseric, il serait bon que tu sois un peu plus précis, en effet ce que tu veux peut-être interprété différemment par Excel, tu peux avoir dans ta colonne un nombre qui soit mis intentionnellement en format texte ( extrême ), tu peux avoir plus couremment une chaîne qui comportera du texte & des chiffres, ' toto73' par exemple, faut-il tout garder, tout supprimer ou faire sauter la partie alpha seulement ?

Une piste, tu peux voir du côté de la fonction 'IsNumeric' dans l'aide VBA, avec une boucle et unfiltre selon ton besoin précis ça peut ou non aller...

Edition : Euh.... Petite Erreur, le message s'adressait à Guenfood et non à Edelweisseric
:whistle: , comme quoi...:unsure:
Bonne journée,
Brico

Message édité par: bricofire, à: 22/02/2006 17:24

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 22 Février 2006

• #5

Bonjour à tous ici

Aussi si ta question est de supprimé le texte seulement et de garder les valeurs numériques(ex: col en A)

Range('A:A').Select
Dim C As Range
For Each C In Selection
If Not IsNumeric(C.Value) Then
C.Value = ''
End If
Next C

A++

Temjeh

 

Vote positif 0 Vote négatif

myDearFriend!

XLDnaute Barbatruc

• 22 Février 2006

• #6

Bonjour guenfood, porcinet82, edelweisseric, Bricofire, Temjeh, le Forum,

On peut aussi le faire en une seule ligne de code et en évitant ainsi une boucle...

Par exemple, pour la colonne C :

Columns(3).SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents

Cliquez pour agrandir...

Cordialement,

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 22 Février 2006

• #7

Re tout le monde,

Bon sang, mais c'est bien sûr ! ( y en a encore qui connaissent l'inspecteur Bourel ?) mDF tu as encore tout bon, c'est poutant pratique et hyper rapide ces SpécialCells

Bonne journée à tous,

Brico

 

Vote positif 0 Vote négatif

E

edelweisseric

XLDnaute Occasionnel

• 22 Février 2006

• #8

Bonsoir à tous

Comme quoi on ne se sert que de 10% des possibilités et surtout on a chacun nos petites lignes de codes
Merci à tous
Cordialement

 

Vote positif 0 Vote négatif

Bricofire

XLDnaute Impliqué

• 22 Février 2006

• #9

Re tous,

Ouarf ! edelweisseric, voir édition plus haut, ma question s'adressait à Guenfood auteur du post, j'ai 'clabafouillé' encore une fois :silly: , ton intervention ne manquaitn pas de précisions :lol:

Bonne soirée,

Brico

 

Vote positif 0 Vote négatif