FUSION DE 2 CHAÎNES DE CARACTÈRES SUIVANT UN CRITÈRE SPÉCIFIQUE.

Messages postés
458
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
Messages postés
458
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/6450-fusion-de-2-chaines-de-caracteres-suivant-un-critere-specifique

Messages postés
458
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
18 avril 2009

Je te trouve beaucoup trop compliqué.

Function Fusion(quoi, avecquoi, lettredefusion) As String
For i = 1 To Len(quoi)
Fusion Fusion & IIf(Mid(quoi, i, 1) lettredefusion, Mid(avecquoi, i, 1), Mid(quoi, i, 1))
Next i
End Function

Je sais pas pour toi mais je trouve mon code beaucoup plus simple...et de plus il n'y a aucune variable à part pour la boucle si tu veux la mettre.