XL 2010 suppression caractère ( Résolu )

[Kael_88]

Le forum,

voilà mon problème, dans un tableau, je déplace des colonnes sur une même feuille( celle qui m’intéresse est de C à B) et je dois retirer si besoin un argument dans la cellule.

Ex : si mon argument se termine par SE, retirer le SE sans affecter le reste de la cellule,
et si mon argument se termine par autre chose, ne rien faire.

Fichier joint pour démonstration

Contrainte : donnée par colonnes pouvant aller jusqu'à 50000 lignes.

Cordialement

 

[Jocelyn]

Bonjour le Forum,
Bonjour Kael_88,

pas bien sur d'avoir compris mais un essai quand même

Cordialement

 

[Kael_88]

Le forum, @Jocelyn,

Merci de ta réponse, mais ça, je sais faire par formule,
par contre c'est le faire en VBA, dans le module 1, après avoir déplacée la colonne C vers B qui me pose problème, ne pas oublier le "contrainte"

merci quand même à toi.

Cordialement

 

[Lone-wolf]

Bonsoir Kael, Jocelyn, le Forum 🙂

@Kael_88 : et si le VBA t'en dit 😉

Option Explicit

Sub Suppr_SE()
Dim derl&, i&, temp$

derl = Cells(Rows.Count, 3).End(xlUp).Row

For i = 4 To derl
If Right(Cells(i, 3), 2) = "SE" Then
temp = Mid(Cells(i, 3), 1, Len(Cells(i, 3)) - 2)
Cells(i, 8) = temp
Else
Cells(i, 8) = Cells(i, 3)
End If
Next i
End Sub

EDIT: bonsoir Jean Marie 😉

 

[Staple1600]

Bonsoir le fil, le forum

Selon ma compréhension du problème exposé (et sans boucle 😉)

Sub Macro1()
Columns(3).Cut Columns(2)
Columns(2).Replace What:="SE*", Replacement:="", LookAt:=2, SearchOrder:=1
Columns(5).Cut Columns(7)
End Sub

EDIT: Bonsoir Lone-Wolf

 

[Lone-wolf]

Re

@Staple1600

À la dernière ligne, SESE est supprimé. Il doit rester Description article SE, sinon "Description article" tout seul ne veux rien dire.

 

[Kael_88]

Le forum , @Jocelyn ,@Lone-wolf ,@Staple1600 ,

Merci à vous tous, mais la solution de @Lone-wolf (avec ma petite modification) répond bien a mon attente.

Problème résolu

Merci à vous tous.

Cordialement