Identifié si cellule contient texte

[F2T]

Bonjour,

je chercherai, a ecrire une ligne de code me permettant de sonder
chaque cellule pour voir si elle contient du texte.
Et dans le cas ou elle contient du texte, rendre cette cellule vide.

mon code ci dessous n'a pas l'air de fonctionné.

For Each C In Range("H1:H" & Range("H65536").End(xlUp).Row)
If IsNumeric(C) <> True Then C.Text = ""
Next C

un avis ou solution serait la bienvenue.

Merci d'avance

🙂

 

[Softmama]

Re : Identifié si cellule contient texte

Bonjour F2T,

Tu peux tester ceci :

Sub VirerTexteColonneH()
 On error resume next
 Range("H:H").Specialcells(xlcellTypeConstants, xlTextValues).clearContents
end Sub

 

[Robert]

Re : Identifié si cellule contient texte

Bonjot F2T. Softmama, bonjour le forum,

essaie comme ça :

For Each C In Range("H1:H" & Range("H65536").End(xlUp).Row)
If IsNumeric(C) = False Then C.ClearContents
Next C

 

[david84]

Re : Identifié si cellule contient texte

Bonjour,
à tester :

For Each c In Range("H1:H" & Range("H65536").End(xlUp).Row)
If Not IsNumeric(c) Then c.ClearContents
Next c

A+

 

[F2T]

Re : Identifié si cellule contient texte

Bonjour a tous,

merci a vous, les 3 solutions fonctionnent.

Bonne fin journée.
++