Discussion :

[RéviAT]

Re-bonjour,
Tout à l’heure j’ai posé une question assez stupide sur InStr. J’ai une autre question (moins stupide ?) sur le traitement des chaînes de caractères :
Est-ce qu’il existe un sous-programme semblable à la fonction « Edition /remplacer » de Excel, mais qui travaille en VRA directement sur les variables String ?
Si ce sous-programme s’appelait :
RemplaceCC(CCDépart, CCàRemplacer, CCenRemplacement, CCArrivée NbDeRemplacements),
Variables d’entrée : CCDépart, CCàRemplacer, CCenRemplacement
Variables de sortie : CCArrivée NbDeRemplacements
alors on aurait par exemple :
RemplaceCC(«Il y avait une fois, oui une fois», «fois», « histoire », «Il y avait une histoire, oui une histoire », 2)
Merci de m’aider. RéviAT

[myrddin772]

Il existe cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function RemplaceCC(CCDépart, CCàRemplacer, CCenRemplacement)
    RemplaceCC = Replace(CCDépart, CCàRemplacer, CCenRemplacement)
End Function

Par contre, je ne vois pas bien l'utilité de mettre en paramètre d'appel ta chaîne d'arrivée et le nombre de remplacements...

[RéviAT]

Merci.
J'ai testé, cela fonctionne bien.
L'intérêt de mettre le nombre de modications est de savoir d'abord qu'il y eu au moins une modification (sinon le nombre est 0) et aussi de compter les modifications faites.
Excel dans la fonction "Edition / Remplace" affiche bien le nombre de modifications effectuées.
Est-ce possible de savoir le nombre de modifications faites ?
Merci.

[myrddin772]

Oui c'est possible mais en codant un peu... de plus si tu veux renvoyer la chaîne modifiée ET le nombre de modification, ta fonction doit renvoyer un tableau de variant...

[myrddin772]

Tiens... Essaie ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Function RemplaceCC(CCDépart As String, CCàRemplacer As String, CCenRemplacement As String) As Variant()
    Dim Sortie(1 To 2) As Variant
    Dim p As Integer
 
    Sortie(1) = CCDépart
    Sortie(2) = 0
    Do
        p = InStr(Sortie(1), CCàRemplacer)
        If p = 0 Then
            RemplaceCC = Sortie
            Exit Do
        Else
            If (Len(Sortie(1)) - p - Len(CCàRemplacer)) > -1 Then
                Sortie(1) = Left$(Sortie(1), p - 1) & CCenRemplacement & Right$(Sortie(1), Len(Sortie(1)) - p - Len(CCàRemplacer) + 1)
            Else
                Sortie(1) = Left$(Sortie(1), p - 1) & CCenRemplacement
            End If
            Sortie(2) = Sortie(2) + 1
        End If
    Loop
End Function
 
Sub essai()
    MsgBox RemplaceCC("Il y a vait une fois, oui une fois.", "fois", "histoire")(1) & _
      vbCrLf & RemplaceCC("Il y avait une fois, oui une fois", "fois", "histoire")(2)
End Sub

[RéviAT]

Je viens de tester. Cela fonctionne bien.
Je vais y travailler pour bien comprendre la programmation qui dépasse mon niveau.
Merci beaucoup.
RéviAT