code vba suppression

[neomorphe]

Bonjour,

j'ai des suites des caracteres (chiffres ou lettres), à l'interieur il ya des données comme : / . ; ! etc je souhaiterais les supprimer tout en gardant le reste: comment faire ?

exemple:

12332/2131 je souhaiterais obtenir 123322131

ou

azkfd:sdj;gr je souhaiterais obtenir azkfdsdjgr

please help me !!!

 

[PascalXLD]

Re : code vba suppression

Bonjour

essaies ceci

Sub toto()
Dim Lettres As String
Dim c As Range
Dim x As Byte, a As Byte
For Each c In Selection
Lettres = ""
For x = 1 To Len(c)
a = Asc(Mid(c, x, 1))
If (a > 47 And a < 58) Or (a > 64 And a < 91) Or (a > 96 And a < 123) Then Lettres = Lettres & Mid(c, x, 1)
Next
c.Value = Lettres
Next


End Sub

Bon courage

 

[lacorse33]

Re : code vba suppression

Bonsoir neomorphe

Je te propose la solution suivante :

Sub RemplaceCar()
Dim strChaineDepart As String
Dim strChaineArrivee As String

strChaineDepart = "azkfd:sdj;gr"
Range("A1") = strChaineDepart

' Enlever le caractère ":"
strChaineArrivee = Replace(strChaineDepart, ":", "", 1)

' Enlever le caractère ";"
strChaineArrivee = Replace(strChaineArrivee, ";", "", 1)
Range("A2") = strChaineArrivee

' ou autre solution
strChaineArrivee = Replace(Replace(strChaineDepart, ":", "", 1), ";", "", 1)
Range("A3") = strChaineArrivee

End Sub

Bonne soirée

 

[Luc Lucasse]

Re : code vba suppression

Bonjour

Est ce que ca marche chez vous?? 😕

Merci pour votre réponse 😀

 

[PascalXLD]

Re : code vba suppression

RE

Mon code marche chez moi
Pourquoi ??

 

[Luc Lucasse]

Re : code vba suppression

Est ce que tu pourrais me donner ton fichier sur lequel tu test? 😉

parce que moi impossible de le faire marcher!!! 😕

Merci pour ta réponse

 

[PascalXLD]

Re : code vba suppression

Re

Fichier joint pour test

 

[Luc Lucasse]

Re : code vba suppression

Merci pour ta réponse
En fait je pensais que ca se faisait automatiquement quand on écrivait le mot et qu'on faisait "entrée"

Est ce que tu connais une méthode qui permet ,lors de l'importation de tableau d'un site internet, de supprimer, automatiquement, toutes les " * " dans la feuille1??

Merci pour ton aide

 

[PascalXLD]

Re : code vba suppression

Re

Tu peux le faire tout simplement en selectionnant tes cellules : cliquer sur cellule à gauche de la colonne A et au dessus de la ligne 1

puis Edition Remplacer

tu tapes ~* dans rechercher et rien dans remplacer puis remplacer tout

en macro cela donnerait ceci si tu es bien sur la feuille 1

Sub Macro1()

Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:="~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True

End Sub

Bon courage

 

[Luc Lucasse]

Re : code vba suppression

Merci pour ta réponse

Malheuresuement t'as premiére méthode ne le fait pas automatiquement et quand je vais avoir le tableau importé d'internet qui va se réactualiser alors l'étoile va revenir.

Pour la 2iéme méthode, est ce que tu mets ce code dans le module ou dans la feuille? parce que j'arrive pas à le faire marcher!!! (Je vois que ca marche rarement chez moi!!!! 😀 )

Merci pour ton aide 😉

 

[PascalXLD]

Re : code vba suppression

RE

dans ce cas là mets le dans le code de ta feuille et ecris-le ainsi

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
Cells.Select
Selection.Replace What:="~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True

End Sub

 

[Luc Lucasse]

Re : code vba suppression

T'ES TROP FORT!!!! 😀

Je pense que ca va marcher mais là je ne peux tester que demain lors de l'importation du tableau du site internet.

J'espére que ca supprime juste l'étoile et pas le mot qui est à côté dans la même case??

Merci pour tes réponses rapides qui m'ont super bien aidé 😉

Ps: une question qui n'a rien à voir:

Comment tu traduis la phrase "J246 différent de "FAUX"", vu que le égale barré est impossible??

Merci pour tes réponses de 1er choix 😉

 

[PascalXLD]

Re : code vba suppression

Re

pour le signe différent c'est <>

pour l'etoile il ne faut pas oublier le ~ dans la macro sinon cela supprime tout car cela devient le caratère générique

Bonne soirée

 

[Luc Lucasse]

Re : code vba suppression

Re

pour le signe différent c'est <>

pour l'etoile il ne faut pas oublier le ~ dans la macro sinon cela supprime tout car cela devient le caratère générique

Bonne soirée

Re

Merci beaucoup, beaucoup et.................................beaucoup

Bonne soirée 😉

 

[Luc Lucasse]

Re : code vba suppression

Désolé de te redérangé mais ca sera la derniére fois (enfin j'espére!!! )

je ne sais pas pourquoi mais sans rien toucher il y a actuellement à chaque importation du tableau internet une erreur qui apparait:
"Erreur d'éxécution 1004
La méthode select de la classe Range a échoué"

Est ce tu aurais une idée??


Est ce qu'il est possible de supprimer un espace et une * c'est à dire " *" au lieu de "*"??


Merci pour ton aide 😉