Ajout du symbole $ tous les 250 caractères

Bonjour,

dans une cellule (ex. E2) j'ai un texte de 790 caractères.

Est-il possible d'ajouter tous les 250 caractères le symbole "$" ?

Merci pour vos réponses

Bonjour

Une piste

https://fr.extendoffice.com/documents/excel/3090-excel-add-character-every-two-characters.html#a1

Salut, bon moi j'étais parti sur un truc mais Excel n'accepte pas les formules trop grandes... :-(

Du coup cette formule ne fonctionne que pour des chaines de caractères < 750

Je vais voir si j'arrive à faire mieux.

A+

=SI(NBCAR(STXT(A1;1;250))=250;STXT(A1;1;250)&"$"&SI(NBCAR(STXT(A1;250;250))=250;STXT(A1;250;250)&"$"&SI(NBCAR(STXT(A1;500;250))=250;STXT(A1;500;250)&"$"&SI(NBCAR(STXT(A1;750;250))=250;STXT(A1;750;250)&"$";STXT(A1;750;250))*STXT(A1;500;250));STXT(A1;250;250));A1)

Un exemple de ce que l'on peut faire avec le lien que j'ai mis

Bonjour, autre proposition :

Bonjour tout le monde,

Un autre essai.....

Sub TestDollar()
 Dim i%, MonTexte As String

 With Sheets("Feuil1").Range("E2")
  If .Value <> "" Then
   For i = 1 To Len(Range("E2")) Step 250
    MonTexte = MonTexte & UCase(Mid(Range("E2"), i, 250)) & "$"
   Next i
    '.value = MonTexte  ' ..............................avec $ à la fin
    .Value = Left(MonTexte, Len(MonTexte) - 1) '........sans $ à la fin
  End If
 End With
End Sub

Cordialement,

Je vous remercie de vos propositions.

Je connais pas VBA mais je vais trouver comment l'ajouter à un fichier.

J'ai oublié de préciser que les donner sont importée d'un fichier texte et chaude fois le texte peut être diffèrent.

J'import le fichier texte sur un fichier Excel dans un onglet > Dans un autre onglet la formule fera l'ajout du symbole $ .

J'espère que ça vous aide

Voici avec une chaîne de 790 caractères en E2 ça donne ce qui est demandé en E3.

Option Explicit

Sub Macro1()
    Dim chain As String, i As Integer

    chain = Range("E2").Value
    For i = 250 To Len(chain) Step 250
        Mid(chain, i, 1) = "$"
    Next i
    Range("E3") = chain
End Sub

Bonsoir,

J'ai compris quand à moi que notre ami voulais ajouter le caractère $ tous les 250 caractèrs m'as qu'il voulait remplacer ces caractère !

Err Mid(chain, i, 1) = "$"

For i = 0 To Len(chain) Step 250
     NewTxt=   NewTxt & Mid(chain, i, 250) = "$"
    Next i

J'import le fichier texte sur un fichier Excel dans un onglet >

il serait préférable de repartir du fichier texte pour un import respectant ton désir !

Sub Test()
Dim Txt As String * 250
Open "C:\Myrep\Fichier.txt" For Input As #1
Do While Not EOF(1)
    Input #1, Txt
Loop
Close #1
End Sub