Function remplaceLettre(chaine As String, caractere As String, position As Integer) As String remplaceLettre = Left$(chaine, position - 1) & caractere & Right$(chaine, Len(chaine) - position) End Function
Dim chaine As String chaine = "fgTyim" MsgBox chaine chaine = remplaceLettre(chaine, "H", 3) MsgBox chaine
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionFunction remplaceLettre(chaine As String, caractere As String, position As Integer) As String Dim Lg As Integer Dim L1 As Integer Dim L2 As Integer Lg = Len(chaine) L1 = position - 1 L2 = Lg - L1 - Len(caractere) remplaceLettre = chaine If L1 < 0 Then Exit Function If L2 < 0 Then Exit Function remplaceLettre = Left$(chaine, L1) & caractere & Right$(chaine, L2) End Function
Dim chaine1 As String Dim chaine2 As String chaine1 = "abcdef" chaine2 = remplaceLettre(chaine1, "CDE", 3) MsgBox chaine1 & vbCrLf & chaine2