Autres remplacement en VBA

[eric57]

Bonjour

je dois faire un remplacement dans une colonne ( colonne A) des 3 derniers caractères. Mais ces caractères existent aussi dans la chaîne, et du coup je n'arriva pas a mes fins.

exemple :

Constructa - CG3A01U5 -
Constructa - CG3A02J5 -
Constructa - CG3A02V9 -
Constructa - CG4A04J5 -
Constructa - CG4A04V9 -
Constructa - CG4A50J5 -

Doit être remplacé par

Constructa - CG3A01U5|xx -
Constructa - CG3A02J5|xx -
Constructa - CG3A02V9|xx -
Constructa - CG4A04J5|xx -
Constructa - CG4A04V9|xx -
Constructa - CG4A50J5|xx -

Merci de votre aide. Je sèche malgré mes recherches

 

[sylvanu]

Bonjour Eric,
Au plua simple, un essai en PJ avec :

Sub Ajoute()
    Dim L%, X$
    Application.ScreenUpdating = False
    For L = 1 To Range("A65500").End(xlUp).Row
        X = Cells(L, "A")
        X = Mid(X, 1, Len(X) - 3) & "|xx -"
        Cells(L, "A") = X
    Next L
End Sub

On prend une chaine moins 3 caractères puis on rajoute la terminaison.
Si la liste est vraiment très longue, il y a plus rapide.

 

[dysorthographie]

bonjour,
essais cette formule =GAUCHE(A1; NBCAR(A1)-3) & "|xx -"

 

[eric57]

Bonjour Eric,
Au plua simple, un essai en PJ avec :

Sub Ajoute()
    Dim L%, X$
    Application.ScreenUpdating = False
    For L = 1 To Range("A65500").End(xlUp).Row
        X = Cells(L, "A")
        X = Mid(X, 1, Len(X) - 3) & "|xx -"
        Cells(L, "A") = X
    Next L
End Sub

On prend une chaine moins 3 caractères puis on rajoute la terminaison.
Si la liste est vraiment très longue, il y a plus rapide.

Merci pour aide, oui effectivement la liste peut atteindre 15 ou 20.000 lignes gloupp

 

[sylvanu]

Re,
En PJ un essai en passant par un array :

Sub Ajoute()
    Dim T, i%, T0
    Application.ScreenUpdating = False
    T = Range("A1:A" & Range("A65500").End(xlUp).Row) ' Adapter colonne, ici A.
    For i = 1 To UBound(T)
        T(i, 1) = Mid(T(i, 1), 1, Len(T(i, 1)) - 3) & "|xx -"
    Next i
    Range("A1").Resize(UBound(T), 1).Value = Application.Transpose(T)
End Sub

Sur mon PC 30 000 lignes traitées en 0.2s.
Adapter le N° de colonne en fonction de votre besoin.

 

[eric57]

Merci a vous pour votre aide. Cela fonctionne bien . je suis parti sur la 1ere solution de Sylvanu

 

[sylvanu]

La seconde est infiniment plus rapide. ( post #5 )

 

[eric57]

La seconde est infiniment plus rapide. ( post #5 )

Elle n'a pas fonctionné est a recopié la 1ere ligne partout

 

[sylvanu]

Oups ! Je ne l'avais pas vu, je mettais la même valeur.
En PJ c'est rectifié, et toujours aussi rapide.

 

[eric57]

Super Merci