remplacer valeur

[reve24]

bonjour

j ai extrait une base 8000 lignes ( exemple)

je souhaiterais remplacer la valeur en VBA ( voir fichier ) entre caractère ~~
colonne A source colonne B valeur à chercher

ce que je souhaite ~AC4~ exemple


merci a tous

 

[Gelinotte]

Re : remplacer valeur

Bonjour,

Je crois que cela peu faire l'affaire. 🙄

Considérant que l'insertion est toujours à 2 caractères de la fin.

Il ne faut exécuter qu'une fois, sinon, il y aura un 2e ajout.

Il y a prise en charge d'un nombre de lignes variable dans la colonne A.

Quand tu seras rendu à tester sur l'original, n'oublie pas de travailler sur une copie 😎


G

 

[R@chid]

Re : remplacer valeur

Bonjour @ tous,
Salut Gelinotte,
Formule @ tirer vers le bas,

=GAUCHE(A1;NBCAR(A1)-2)&B1&DROITE(A1;2)

Amicalement

 

[Dull]

Re : remplacer valeur

Salut reve24, le Forum

Pas sur d'avoir tout compris mais un essai néanmoins

=GAUCHE(A1;NBCAR(A1)-2)&B1&"~"&DROITE(A1;1)

EDITION: Ouppps Salut Gélinotte🙂, R@chid🙂

Bonne Journée

 

[camarchepas]

Re : remplacer valeur

Bonjour,

Voici pour une ligne, ensuite il faut faire une petite boucle pour parcourir l'ensemble des lignes

Sub test()
Dim Info1 As String, Info2 As String
Dim Résultat As String, Portion1 As String, Portion2 As String
Info1 = Range("A1")
Info2 = Range("B1")
Portion1 = Split(Info1, "~~")(1)
Portion2 = Split(Info1, "~~")(2)
Résultat = Replace(Replace(Info1, "~~" & Portion1, "~~" & Portion1 & "~" & Info2), "~~" & Portion2, "~" & Portion2)
Range("C1") = Résultat
End Sub

 

[Gelinotte]

Re : remplacer valeur

Bonjour,

Ce dernier code fonctionne bien.

Mais ... Ouuffff! Je vais aller prendre un cachet d'acide acétylsalicylique. Il m'a donné mal à la tête. Mon p'tit cerveau tilt, il n'a rien compris 🙄


G

 

[Modeste geedee]

Re : remplacer valeur

Bonsour®

Bonjour @ tous,
Formule @ tirer vers le bas,

=GAUCHE(A1;NBCAR(A1)-2)&B1&DROITE(A1;2)

Amicalement

autre proposition légérement plus courte 😎 :

=SUBSTITUE(A1;"~~";"~"&B1&"~";2)

Formule à tirer vers le bas


😛 mais, le demandeur avait précisé VBA :

Sub Macro1()
Dim ligne As Double
ligne = 1
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
While Cells(ligne, 2) <> ""
    Cells(ligne, 1).Select
      ActiveCell.FormulaR1C1 = "=SUBSTITUTE(RC[1],""~~"",""~""&RC[2]&""~"",2)"
      ActiveCell = ActiveCell
      ligne = ligne + 1
    Wend
    Columns("B:B").Delete
    Columns("A:A").EntireColumn.AutoFit
End Sub

 

[reve24]

Re : remplacer valeur

Merci à tous
en vba effectivement tres rapide efficace