Detection de chaine de caracteres

[romainchu78]

Re bonjour.
dans une colonne de donnees. jai des chaines de caracteres qui commentent tous pas XXX- ou Y- ou WW- suivi de caracteres.
per exemple:

COLONNE C
XXX-rehrehre
Y-regregreg
XXX-kyhuk
XXX-loiliuliu
WW-JGJGJ

a l'aide dune macro je voudrais qu'il y ai suppresion auto de tous les caractere a partir du caractere "-".

ce qui donnerait apres traitement:

COLONNE C
XXX
Y
XXX
XXX
WW

la taille de la colonne peut varier.

 

[bqtr]

Re : Detection de chaine de caracteres

Re,

Essaye comme ca :

Sub SupCaract()
Dim cell As Range
Dim t
For Each cell In Range("C1:C" & Range("C65536").End(xlUp).Row)
   t = Split(cell, "-")
   cell = t(0)
   cell = Trim(cell)
Next
End Sub

Dans l'exemple, le séparateur doit toujours être le tiret "-"

 

[romainchu78]

Re : Detection de chaine de caracteres

jai un message derreur sur "cell = t(0)"

 

[bqtr]

Re : Detection de chaine de caracteres

Sur les 5 exemples que tu as mis, chez moi pas d'erreur.
La fonction split découpe le chaine suivant un séparateur, ici le tiret.
Le premier groupe a pour index 0, le deuxième 1, le troisième 2 .../...
Donc ici tu cherches à garder le premier groupe, donc t(0).

cell = Trim(cell) sert à enlever les espaces superflus au cas ou il y en aurait.

As tu un exemple des données réelles à tester ?

 

[romainchu78]

Re : Detection de chaine de caracteres

en fait ca marche. il fallait juste remplir les cellules vide avant.

t un chef merci