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

1 réponse

  1. pilas31 Messages postés 1878 Statut Contributeur 648
     
    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
    1. 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