initiation aux fonctions chaîne de caractères

[cathodique]

Bonne année 2015, mes meilleurs voeux à toutes et à tous,

je me suis rendu sur le super site de Boisgontier pour m'initier aux fonctions chaines de caractères. ICI

J'ai ouvert un nouveau classeur et j'ai commencé à suivre les exemples de Boisgontier.

Mais je suis confronté à un problème que je n'ai pas compris. Voilà je mets tel quel le code et auquel j'ai juste rajouté un sub et la parenthèse fermante après le 2 et avant le signe =

'Mid(VariableChaîne,position,nbcaractèresAremplacer)=expression
'Remplace des caractères à partir de la position spécifiée.
'x="Dupont"
'Mid(x,4,2="xx"
'Résultat=Dupxxt
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub Mid_VariableChaîne_position_nbcaractèresAremplacer_EgalExpression()
'Mid(VariableChaîne,position,nbcaractèresAremplacer)=expression
'Remplace des caractères à partir de la position spécifiée.
Dim x As String
x = "Dupont"
MsgBox Mid(x, 4, 2) = "xx"     'Résultat= Dupxxt
End Sub

je n'obtiens pas le bon résultat, le msgbox m'affiche Faux. Je vous remercie par avance.

Cordialement,

 

[BOISGONTIER]

Re : initiation aux fonctions chaîne de caractères

Bonjour,

Mid peut être une fonction ou une instruction:


Fonction:

Une fonction retourne un résultat.

x="Dupont"
Msgbox Mid(x,3,2)

Résultat
po

Insruction:

L'instruction MID agit sur la variable x.

x="Dupont"
Mid(x,4,2)="xx"
Msgbox x

Résultat
Dupxxt

Dans l'exemple ci dessous, Mid est utilisé comme fonction et non pas comme instruction:

MsgBox Mid(x, 4, 2) = "xx"

Mid(x, 4, 2) = "xx" teste si on est égal à xx

 

[camarchepas]

Re : initiation aux fonctions chaîne de caractères

Bonjour ,

@ Bonjour, M. Boisgontier ....



Si tu cherches à remplacer , il peut y avoir beaucoup ^plus simple, car mid permet surtout d'afficher un segment de chaine.

La fonction replace est trés efficace :

Sub Test()

Dim X As String

X = InputBox("Proposer un mot", "Veuillez", "Dupont")

MsgBox "Résultat du remplacement " & Replace(X, Mid(X, 4, 2), "xx")

End Sub

 

[cathodique]

[RESOLU] : initiation aux fonctions chaîne de caractères

je te remercie beaucoup pour tes explications. J'ai bien compris.

Je vous te dire que ton site est très instructif, il est très bien réalisé.

Bonne continuation.

 

[cathodique]

Re : initiation aux fonctions chaîne de caractères

Bonjour camarchepas,

mais ça marche bien! Je te remercie beaucoup pour l'aide que tu me proposes. Mais pour le moment, je voudrais m'initier à l'utilisation des chaines de caractères. Je trouve que le site de Boisgontier est un bon outil d'apprentissage pour un novice. Moins repoussant que l'aide VBE. enfin, c'est mon avis, elle est conçu plutôt comme un aide-mémoire pour les initiés.

Merci beaucoup mon cher camarchepas, je trouve ton pseudo original😎.