Code VBA pour supprime une partie de texte
DrigoNL
-
ccm81 Messages postés 11033 Statut Membre -
ccm81 Messages postés 11033 Statut Membre -
Bonjour,
J'ai dans la colonne A des noms avec (ou sans) tire et suivis d'un tiret et d'une version (deux chiffres. deux chiffres).
Est-il possible de supprimer "- est la version (les derniers chiffres)" ou "les 6 premiers caractères en partant de de droite à gauche"(en une seule fois) dans une partie de texte contenu dans les cellules d'une colonne ?
Exemple : 3% Pn/h-01.01, A&K-CYCLADES-01.03, XENON-0D-20.00, ADELE, etc.
Je souhaiterai obtenir 3% Pn/h, A&K-CYCLADES, XENON-0D, ADELE, etc
PS: je souhaite l'avoir en code VBA car en formule je l'ai déjà, c'est : "SIERREUR(GAUCHE(A2;TROUVE("-";A2;NBCAR(A2)-5)-1);A2)"
J'ai dans la colonne A des noms avec (ou sans) tire et suivis d'un tiret et d'une version (deux chiffres. deux chiffres).
Est-il possible de supprimer "- est la version (les derniers chiffres)" ou "les 6 premiers caractères en partant de de droite à gauche"(en une seule fois) dans une partie de texte contenu dans les cellules d'une colonne ?
Exemple : 3% Pn/h-01.01, A&K-CYCLADES-01.03, XENON-0D-20.00, ADELE, etc.
Je souhaiterai obtenir 3% Pn/h, A&K-CYCLADES, XENON-0D, ADELE, etc
PS: je souhaite l'avoir en code VBA car en formule je l'ai déjà, c'est : "SIERREUR(GAUCHE(A2;TROUVE("-";A2;NBCAR(A2)-5)-1);A2)"
5 réponses
-
Bonjour
Poue éliminer les n=6 dernies caractères de la chaine s
n = 6
s = Left(s, Len(s) - n)
Cdlmnt -
Peut être ceci (ce que j'ai compris)
Public Function Nettoie(s As String, n As Long) As String
Dim ss As String, r As Long
n = 6
ss = StrReverse(s)
r = InStr(1, ss, "-")
If r <> 0 And r = n Then s = Left(s, Len(s) - n)
Nettoie = s
End Function
Cdlmnt -
Bonjour à tous,
autre proposition :Sub suppVersion() Dim datas, lig As Long, tmp1, tmp2 Dim i As Long datas = [A2].Resize(Cells(Rows.Count, 1).End(xlUp).Row - 1).Value For lig = 1 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 [A2].Resize(UBound(datas)) = datas End Sub
eric
-
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. -
-
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
Je ne vois pas où est le problème
http://www.cjoint.com/c/FAzmOENgAqI
RQ. La proposition d'eric (salut à toi au passage) doit être un peu plus rapide que la mienne.
Cdlmnt-
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> -
-
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
1. Est ce que c'est possible de garder les données dans la même colonne après avoir supprimé les versions.
oui, il te suffit de mofifier cobut
2. (Eric et toi) commenter vos codes
http://www.cjoint.com/c/FAzowipQQPI
Cdlmnt
