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 1825 Date d'inscription   Statut Contributeur Dernière intervention   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