Re : modifier "string"
bonsoir,
Nom$ = "dupond": Prenom$ = "Hélène"
'traitement Nom
Nom$ = LCase(Nom$) 'tout en minuscule
Mid(Nom$, 1, 1) = UCase(Mid(Nom$, 1, 1)) '1'car majuscule
'traitement Prénom
Prenom$ = LCase(Prenom$) 'tout en minuscule
'boucle pour supprimer caractères indésirables
For I = 1 To Len(Prenom$)
If Mid(Prenom$, I, 1) = "é" Then Mid(Prenom$, I, 1) = "e"
Next
For I = 1 To Len(Prenom$)
If Mid(Prenom$, I, 1) = "è" Then Mid(Prenom$, I, 1) = "e"
Next
'... rajouter d'autre boucles pour d'autre caractères
'il est possible de faire avec une seule boucle en appel par gosub en mettant une variable pour le caractère à remplacer
Roland