Suppression caracteres speciaux dans certaines cellules par vba

D

david84

XLDnaute Barbatruc

• 25 Avril 2013

• #2

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+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Avril 2013

• #3

Re : Suppression caracteres speciaux dans certaines cellules par vba

Bonsoir,

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

Cliquez pour agrandir...

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

bonne soirée
@+

Edition : bonsoir David🙂

 

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 25 Avril 2013

• #4

Re : Suppression caracteres speciaux dans certaines cellules par vba

Bonjour à tous

Effectivement je me suis trompé de fichier 🙁


Voici le bon

BlouBlou

 

Pièces jointes

• Classeur4.xlsm

  14.4 KB · Affichages: 94
• Classeur4.xlsm

  14.4 KB · Affichages: 112
• Classeur4.xlsm

  14.4 KB · Affichages: 104

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 25 Avril 2013

• #5

Re : Suppression caracteres speciaux dans certaines cellules par vba

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

Code:

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 !

 

Dernière édition: 25 Avril 2013

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 25 Avril 2013

• #6

Re : Suppression caracteres speciaux dans certaines cellules par vba

Re,

bien vu David🙂

 

Vote positif 0 Vote négatif

B

bloublou

XLDnaute Occasionnel

• 25 Avril 2013

• #7

Re : Suppression caracteres speciaux dans certaines cellules par vba

Bonsoir David84, Pierrot93,

Merci ca marche nickel 🙂

BlouBlou

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 26 Avril 2013

• #8

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) :

Code:

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

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 26 Avril 2013

• #9

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) :

Cliquez pour agrandir...

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

Code:

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

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

bonne journée
@+

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 26 Avril 2013

• #10

Re : Suppression caracteres speciaux dans certaines cellules par vba

salut

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

Code:

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

 

Vote positif 0 Vote négatif