Comment insérer un caractère ds une chaine
Résolu/Fermé
A voir également:
- Comment insérer un caractère ds une chaine
- Caractère ascii - Guide
- Insérer signature word - Guide
- Caractere speciaux - Guide
- Caractère spéciaux - Guide
- Insérer une vidéo dans powerpoint - Guide
1 réponse
pilas31
Messages postés
1825
Date d'inscription
vendredi 5 septembre 2008
Statut
Contributeur
Dernière intervention
24 avril 2020
643
24 oct. 2011 à 15:40
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
A+
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+
24 oct. 2011 à 17:40
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