Supprimer des caractères dans une colonne

[excellé]

Bonjour,

Je ne comprends pas, le résultat de la formule dans argument de la fonction s'affiche correctement mais quand je fais entrer, j'ai un zéro.
Je voudrais que à chaque fois qu'il y a "111539 - " dans une colonne, cela se supprimer.

La formule :
=Subtitue (B:B;"111539 - ";"")

Vous remerciant par avance
Valérie

 

[Pierrot93]

Re : Supprimer des caractères dans une colonne

Bonjour Valérie,

pas sûr que tu puisses le faire ainsi, via une fonction... essaye peut être directement via les fonctions natives d'excel, tu sélectionnes la colonne en question => barre de menu Excel => Edition => remplacer... ou bien avec le raccourci clavier CTRL h

bonne journée
@+

 

[excellé]

Re : Supprimer des caractères dans une colonne

Bonjour Pierrot,

En fait, je ne peux pas appliquer le CTRL h, car la table est vide, c'est un peu compliquer pour moi, mais en quelques mots, c'est le logiciel solidworks qui génére les données dans excel. Au départ, j'ai rien dans le tableau. C'est pour cela qu'il me faut une formule ou un code vba.

Salutations
Valérie

 

[Pierrot93]

Re : Supprimer des caractères dans une colonne

Re,

heu.. comprends pas tout.... tu peux pas le faire après l'importation des données ???

 

[excellé]

Re : Supprimer des caractères dans une colonne

Heu... moi non plus je ne comprends pas tout... je suis secrétaire... j'essaye de faire ce que l'on m'a demandé..... Soupir !

 

[pierrejean]

Re : Supprimer des caractères dans une colonne

Bonjour excellé

Salut Pierrot

A tester (dans le module de la feuille)

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = 2 Then
 Application.EnableEvents = False
   For n = 1 To Range("B65536").End(xlUp).Row
     Range("B" & n) = Replace(Range("B" & n), "111539 - ", "")
   Next
  Application.EnableEvents = True
 End If
End Sub

 

[excellé]

Re : Supprimer des caractères dans une colonne

Bonjour Pierrejean,

Je fais un copier-coller dans mon VBA, mais rien ne se passe, comme inexistant, c'est à dire que je ne le trouve pas dans la liste des macros.
Est ce que je dois faire quelque chose d'autre pour que cela fonctionne ?

Vous remerciant
Valérie

 

[Pierrot93]

Re : Supprimer des caractères dans une colonne

Re, bonjour PierreJean

essaye d'exécuter ce code... mais il faut que les données soient sur la feuille active...

Columns(2).Replace "111539 - ", "", xlPart

 

[pierrejean]

Re : Supprimer des caractères dans une colonne

Re

Le code doit etre copié dans le module de la feuille concernée et il s'executera lors du ou des changements dans la colonne B

 

[excellé]

Re : Supprimer des caractères dans une colonne

Excusez moi pour le retard, test avec les techniciens oblige.
On ne peut pas utiliser le VBA cause = sécurité
Finalement la fonction subtitue fonctionne en détournant la fonction

Merci à vous,
Bonne fêtes de fin d'année

Valérie

 

[excellé]

Re : Supprimer des caractères dans une colonne

Par contre, on vient de me demander autres choses :
Une fonction qui permet de mettre les lettres avant les chiffres.
Exemple : 525325 ksqfkslmqjfq sq fsjkqmfjqm
le transformer : ksqfkslmqjfq sq fsjkqmfjqm 525325

Vous avez une idée ?
Je cherche de mon côté.

Merci

 

[Staple1600]

Re : Supprimer des caractères dans une colonne

Bonjour

EDITION: Désolé (j'avions compliqué pour rein)

Sub aB()
Dim x, y, z
x = "525325 ksqfkslmqjfq sq fsjkqmfjqm"
y = Left(x, InStr(x, Chr(32)))
z = Mid(x, InStr(x, Chr(32)), 1000)
MsgBox y & z
End Sub

Une idée, en voici une (pas la plus simple mais cela fonctionne)

Sub a()
Dim x
x = "525325 ksqfkslmqjfq sq fsjkqmfjqm"
MsgBox StrReverse(Left(StrReverse(x), Len(x) - Len(Split(x)(0))))
End Sub

A transformer en fonction.

 

[excellé]

Re : Supprimer des caractères dans une colonne

Bonjour JM,

Malheureusement, je ne peux pas utiliser de VBA (sécurité).
Existe t il une fonction qui peut faire la même chose ?

Cordialement,
Valérie

 

[Staple1600]

Re : Supprimer des caractères dans une colonne

Re


Oui.
GAUCHE, STXT CHERCHE et/ou TROUVE mixés dans une seule formule.

 

[david84]

Re : Supprimer des caractères dans une colonne

Bonjour tout le monde,
pas suivi tout le fil mais quelque chose m'interpelle dans ta formule :

=Subtitue (B:B;"111539 - ";"")

L'argument Texte de cette fonction nécessite une cellule et non une plage, donc si la chaîne à traiter est en B1 :

[CODE]=Subtitue (B1;"111539 - ";"")

[/CODE], puis tu tires ta formule vers le bas.
A+