Suppression caracteres speciaux dans certaines cellules par vba

[bloublou]

Bonsoir,

J'ai commencé une petite macro pour supprimer le contenu des cellules qui contiennent uniquement des "_"

Sub test()

Dim c As Cell
For Each c In Selection
'If c.value = ' Si la valeur de la cellule est egale à que des caracteres speciaux
'Then 'Alors
'On efface les données uniquement les cellules qui ont ces caracteres speciaux

Next c

End Sub

Si quelqu'un à une idée ?

Merci

BlouBlou

 

[david84]

Re : Suppression caracteres speciaux dans certaines cellules par vba

Bonjour,
j'ai ouvert ton fichier et lancé une recherche sur le caractère "_" mais ta feuille ne semble pas en contenir.
Sinon pourquoi ne pas simplement utiliser la boîte de dialogue Rechercher et remplacer afin de remplacer le _ par ce que tu veux (voir par rien si tu le souhaites).
A+

 

[Pierrot93]

Re : Suppression caracteres speciaux dans certaines cellules par vba

Bonsoir,

une petite macro pour supprimer le contenu des cellules qui contiennent uniquement des "_"

bah.. j'en vois pas dans ton fichier... regarde peut être du coté de la fonction "Replace"...

bonne soirée
@+

Edition : bonsoir David🙂

 

[bloublou]

Re : Suppression caracteres speciaux dans certaines cellules par vba

Bonjour à tous

Effectivement je me suis trompé de fichier 🙁


Voici le bon

BlouBlou

 

[david84]

Re : Suppression caracteres speciaux dans certaines cellules par vba

Re
il y a peut-être plus simple mais essaie déjà cela :

Sub test()
Dim c As Range, oRegExp As Object
Set oRegExp = CreateObject("vbscript.regexp")
oRegExp.Global = True
oRegExp.Pattern = "^_+$"
For Each c In Selection
    If oRegExp.test(c) Then c = oRegExp.Replace(c, "")
Next c
End Sub

A+

Edit : bonsoir Pierrot !

 

[Pierrot93]

Re : Suppression caracteres speciaux dans certaines cellules par vba

Re,

bien vu David🙂

 

[bloublou]

Re : Suppression caracteres speciaux dans certaines cellules par vba

Bonsoir David84, Pierrot93,

Merci ca marche nickel 🙂

BlouBlou

 

[david84]

Re : Suppression caracteres speciaux dans certaines cellules par vba

Bonjour,
comme cela c'est plus simple et sûrement plus rapide (tu avais raison Pierrot) :

Sub test()
 Dim c As Range
 For Each c In Selection
     If Len(Replace(c, "_", "")) = 0 Then c = vbNullString
 Next c
 End Sub

A+

 

[Pierrot93]

Re : Suppression caracteres speciaux dans certaines cellules par vba

Bonjour David🙂

comme cela c'est plus simple et sûrement plus rapide (tu avais raison Pierrot) :

aarf oui, mais il me manquait le principal...

If Len(Replace(c, "_", "")) = 0 Then c = vbNullString

Alors là bravo David🙂🙂... trop fort....

bonne journée
@+

 

[Si...]

Re : Suppression caracteres speciaux dans certaines cellules par vba

salut

pour faire plus court, peut-être ainSi...?

Sub test()
  Dim c As Range
  For Each c In Selection
    If Replace(c, "_", "") = "" Then c = ""
  Next
End Sub