Code VBA pour supprime une partie de texte

Ré ccm81,

Merci pour ta réponse, le problème est qu'il faut supprimé les 6 derners caractères comportant "-01.03" car j'ai d'autres chaines caractères qui ne l'ont pas.
Exemple : il l' a :XENON-0D-20.00 par contre celle ci non ADELE.

Cdlmnt.

Bonjour ccm81,

Merci pour ta réponse malheuresement la fonction me retourne rien : voici mon fichier http://www.cjoint.com/c/FAzjavU1ZZj
c'est la colonne B que je souhaite modifier
Cdlt.

Bonjour Eriiic,

Merci pour le code, le souci est que j'ai une erreur à la ligne suivante :
" datas(lig, 1) = Join(tmp1, ",")
Pourquoi il y a une virgule?? Parce que mes données sont en colonnes non separées par de virgule. C'est qui veut dire :
Je te joint le fichier excel suivant (voir la colonne B) : http://www.cjoint.com/c/FAzjavU1ZZj
colonne B

3% Pn/h-01.01
A&K-CYCLADES-01.03
XENON-0D-20.00
ADELE
.
.
.
.
etc.

Cordialement.

Bonjour,

avec ton explication j'avais compris que tu en avais plusieurs dans une cellule séparés par des ",".
Mais qui peut le plus peut le moins, et pas d'erreur chez moi.
https://www.cjoint.com/c/FAzjCn8nSzl
J'ai mis aussi la fonction de ccm81 qui est ok
eric

Ré,
Quand j'essaie d'adapter le code avec mon fichier original, il me met une erreur dans la fonction "UBound" comme erreur de compilation : Tableau attendu.
Workbooks(nomcible).Activate
Workbooks(nomcible).Sheets("CNPE").Select

datas = Sheets("CNPE").Cells(Columns(2).Cells.Count, 3).End(xlUp).Row '[B3].Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1).Value
For lig1 = 3 To UBound(datas)
tmp1 = Split(datas(lig, 1), ",")
For i = 0 To UBound(tmp1)
tmp2 = Split(tmp1(i), "-")
If tmp2(UBound(tmp2)) Like "##.##" Then
ReDim Preserve tmp2(UBound(tmp2) - 1)
tmp1(i) = Join(tmp2, "-")
Next i
datas(lig1, 1) = Join(tmp1, ",")
Next lig1
[B3].Resize(Bond(datas)) = datas

Cdlt.

Tu as des icones pour mettre en forme ton code : icone "<>"
Et je ne reconnais pas tout mon code. Si tu remplaces en mettant n'importe quoi ça marche moins bien forcément.
eric

Ré, je n'ai pas changé grande chose : juste active ma feuille ma feuille feuille et donnée au variable datas = la taille de mes données.

<Workbooks(nomcible).Activate >
<Workbooks(nomcible).Sheets("CNPE").Select >

<datas = Sheets("CNPE").Cells(Columns(2).Cells.Count, 3).End(xlUp).Row> '[B3].Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1).Value
<For lig = 3 To UBound(datas) >
<tmp1 = Split(datas(lig, 1), ",")>
<For i = 0 To UBound(tmp1) >
<tmp2 = Split(tmp1(i), "-") >
<If tmp2(UBound(tmp2)) Like "##.##" Then >
<ReDim Preserve tmp2(UBound(tmp2) - 1)>
<tmp1(i) = Join(tmp2, "-")>
<Next i >
<datas(lig, 1) = Join(tmp1, ",") >
<Next lig >
<[B3].Resize(Bond(datas)) = datas>
>

Bonjour ccm81,

Je souhaiterai adapter le code avec mon fichier original. Il est trop lourd parce qu'il a déjà pas mal de code derrière. Je vous explique un peu : l'idée était décroiser deux fichiersafin de créer un troisème. A la fin de ce dernier, il faut supprimer les versions.

le code d'Eric, c'est la fonction Ubound qui pose un problème car il ne trouve pas le tableau attendu. 1ier problème erreur :
<code></For lig = 1 To UBound(datas) >
Le 2iè est que si je crée un nouveau module : il me met une erreur sur la ligne <code></code ReDim Preserve tmp2(UBound(tmp2) - 1>

Ré,

Est ce que c'est possible de garder les données dans la même colonne après avoir supprimé les versions. Et dernière question pourrez (Eric et toi) commenter vos codes. je pense que ça m'aidera plus à l'adapter à mon fichier.

Merci d'avancé.

Cdlt.