Comment insérer un caractère ds une chaine

Résolu/Fermé

RG.25 - 23 oct. 2011 à 18:17
RG.25 - 24 oct. 2011 à 17:40

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:

Comment insérer un caractère ds une chaine
Caractère ascii - Guide
Insérer une vidéo sur powerpoint - Guide
Caractere speciaux - Guide
Caractère spéciaux - Guide
Insérer signature word - Guide

1 réponse

Réponse 1 / 1

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 644
24 oct. 2011 à 15:40

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+

RG.25
24 oct. 2011 à 17:40

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