Comment insérer un caractère ds une chaine [Résolu/Fermé]

Signaler
-
 RG.25 -
Bonjour,

Comment insérer un caractère ds une chaine Via une macro sous excel 2003

Exemple: chaine ds la cellule A1 " XXXXXXXXXXXXXXXXXXXXXXXXX " comment
insérer un Y en dixième position

la position et le caractère sont contenu ds des variable

Merci par avance

1 réponse

Messages postés
1823
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
586
Bonjour,

Voici un petit morceau de code qui prend la chaine en A1, et insére le caractére situé en C1 à la position B1

Chaine = Cells(1, 1)
Pos = Cells(1, 2)
Car = Cells(1, 3)
Cells(1, 4) = Mid(Chaine, 1, Pos) & Car & Mid(Chaine, Pos + 1)


A+
Bonjour et merci Beaucoup

J'ai adapté votre exemple et cela marche très bien
c'est exactement ce que je cherchais
Mille mercis


Ci-dessous le code modifié
Sub Macro1()

Chaine = Range("A1").Value

Pos = 8
Car = Chr(10)

NewChaine = Mid(Chaine, 1, Pos) & Car & Mid(Chaine, Pos + 1)
Range("A2").Value = NewChaine

End Sub