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

Re pour l'espace et *

il faut remplacer dans le code
"~*"
par
" ~*"

Pour l'erreur il faudrait voir le fichier

PS je supprime tes 2 up

 

[Luc Lucasse]

Re : code vba suppression

Bonjour le fil et bonjour tout le monde

Merci pour ton aide,

Je vais attendre aujourd'hui et demain pour voir si mon fichier indique encore cette erreur et si tu as le temps je te le mettrai en fichier joint pour un léger coup d'oeil de ta part.

Merci pour ton aide 😉

 

[Luc Lucasse]

Re : code vba suppression

Lors de cette erreur, si je clique sur "débobage" il me surligne en jaune le premier "Cells.Select" (j'en ai mis 3).

Est ce que cette erreur peut arriver si j'ai 2 fichier excel ouvert? 😕

Merci pour votre réponse

 

[PascalXLD]

Re : code vba suppression

Lors de cette erreur, si je clique sur "débobage" il me surligne en jaune le premier "Cells.Select" (j'en ai mis 3).

Tu entends quoi par j'en ai mis 3 ??

 

[Luc Lucasse]

Re : code vba suppression

Le bug apparait quand j'ouvre les VBA de 2 fichiers excel (celui que je suis en train de faire et un autre)

J'en ai mis 3 veut dire que j'ai mis:

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

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

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

End Sub


c'est à dire 3 Cells.Select

Merci de tes réponses 😉

 

[PascalXLD]

Re : code vba suppression

RE

déjà tu peux simplifier ainsi

Private Sub Worksheet_Change(ByVal Target As Range)

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

Selection.Replace What:="Results", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Lay of the Day", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True

End Sub

essaies et dis moi mais je ne pense pas que cela génait

 

[Luc Lucasse]

Re : code vba suppression

Merci pour ton aide mais ca ne change rien j'ai toujours la même erreur!!!🙁

Est ce que cette erreur peut arriver parce qu'il ne trouve aucune * dans le tableau importé??

Merci

 

[PascalXLD]

Re : code vba suppression

RE

Je m'en doute un peu

Le pbe c'est que là je suios absent jusqu'à dimanche

Donc ou quelqu'un prendra la main ou je regarde cela en rentrant

Bon courage

 

[Luc Lucasse]

Re : code vba suppression

Merci pour ton aide

A bientôt 😉

 

[Luc Lucasse]

Re : code vba suppression

Cette erreur arrive même quand j'ai juste la page VBA de mon fichier sur lequel je travaille!!! 😕

 

[Luc Lucasse]

Re : code vba suppression

En fait, cette erreur s'inscrit si lors de l'actualisation du fichier importé je me trouve sur une autre feuille que la feuille1. 😕


Est ce que quelqu'un à une petite idée pour supprimer totalement cette erreur?

Merci 😉

 

[Luc Lucasse]

Re : code vba suppression

Un ptit up de ce fil 😉

 

[PascalXLD]

Re : code vba suppression

Re

DE retour

Tu le fais par macro ton up de tes fichiers ou autrement ??

 

[Luc Lucasse]

Re : code vba suppression

Bonsoir,

Je mets mon programme dans la partie code de la feuille1.

Je sais pas trop si c'est ce que tu me demandes en fait!!! 😕

Merci pour ton aide 😉

 

[PascalXLD]

Re : code vba suppression

Re

Non ce n'était pas cela mais modifies ton programme ainis pour voir

Private Sub Worksheet_Change(ByVal Target As Range)

Application.ScreenUpdating = False
sheets("Feuil1").select 'Modifies le Feuil1 en fonction du nom de ta feuille où se mettent les données du site
Cells.Select
Selection.Replace What:="~*", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Results", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False

Selection.Replace What:="Lay of the Day", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("A1").Select
Application.ScreenUpdating = True

End Sub