Comment insérer un caractère ds une chaine

Résolu
RG.25 -  
 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
A voir également:

1 réponse

Réponse 1 / 1
pilas31 Messages postés 1878 Statut Contributeur 646
 
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+
0
RG.25
 
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
0