Microsoft 365 ajout de caractères dans une chaine

[Usine à gaz]

Bonjour à toutes et à tous,

J'ai besoin d'insérer des caractères à l'intérieur du contenu d'une cellule.

Ne trouvant pas le bon codage, je me tourne une nouvelle fois vers le Forum.
J'ai fait des essais et recherches sur le net et dans mes forums préférés

J'ai trouvé ce code qui fonctionne (presque bien) :

Sub Test()
Dim Var As String, VarModifié As String
Dim L As Byte, i As Byte
    Var = ActiveCell.Value
    L = Len(Var)
    For i = 1 To L - 2 Step 2
        VarModifié = VarModifié & Mid(Var, i, 2) & ":"
    Next
    ActiveCell = VarModifié & Right(Var, 2)
End Sub

Fonctionnement du code :
1 clic (sélection) sur la cellule pour ajout de caractères
2 clic sur le bouton

Dans l'exemple du fichier joint, je teste sur l'ajout d'un caractère tout les 2 caractères de la chaîne
Mon souci :
l'avant dernier caractère est doublé si caractères de la chaîne en nombre impair.

Auriez-vous la solution ?
Fichier test joint,
Avec mes remerciements,
Je vous souhaite une belle journée,
Amicalement,
lionel,

 

[patricktoulon]

bonjour Arthour

Sub Test()
    Dim Var$, X$, I&
    Var = ActiveCell.Value
    For I = 1 To Len(Var) Step 2: X = X & Mid(Var, I, 2) & ":": Next
    If Mid(X, Len(X)) = ":" Then X = Left(X, Len(X) - 1)
    ActiveCell = X
End Sub

 

[Usine à gaz]

Bonjour Patrick,

Merci d'être encore là .
Je teste et je reviens,
lionel,

 

[Usine à gaz]

Super Patrick,
Un grand merci
Je décortique pour tenter de comprendre.
Bonne fin de journée

 

[patricktoulon]

re
attend je t'en donne une sans boucle un peu tordu comme je les aimes

Sub test2()
Dim Var$, X$, I&
    Var = ActiveCell.Value
    Var = Replace(Trim(StrReverse(Format(StrReverse(Var), Application.Rept(" @@", 30)))), " ", ":")
ActiveCell = Var
End Sub

la tu en a pour un moment

Je décortique pour tenter de comprendre.

pour la première il faut comprendre comment vba borne avec un step dans une boucle c'est pas plus compliqué

pour la 2d ci dessus c'est juste pour te donner mal a la tète

 

[Usine à gaz]

LOL, merci Patrick,
Je vais tester

 

[Usine à gaz]

LOL, Mal à la tête pour mal à la tête,

Tu as un code pour faire l'inverse ? :
Par exemple enlever tous les a dans une chaîne.

 

[patricktoulon]

re
heu... tu plaisante la ????
la fonction Replace elle sert a quoi ???

 

[Usine à gaz]

LOL, sais pas, dsl, j'essaie de comprendre

 

[Usine à gaz]

je viens de comprendre alors c'est super ce second code
Merci Patrick,
lionel,

 

[patricktoulon]

tient regarde ce que fait la boucle step 2 avec une chaine de 11 caracteres

Sub demobornagebouclesurimpair()
chaine = "AAAAAAAAAAA" ' donc 11 caracteres
For I = 1 To Len(chaine) Step 2
X = X & Mid(chaine, I, 2) & vbCrLf
Next
MsgBox X
End Sub

 

[patricktoulon]

je viens de comprendre alors c'est super ce second code
Merci Patrick,
lionel,

tu es sur d'avoir tout compris ????
alors dit moi pourquoi je travaille la chaine a l'envers par exemple???

 

[Usine à gaz]

La tu veux que j'implose mais je vais chercher !

 

[patricktoulon]

bah le probleme c'est que pour chercher il faut comprendre comment fonctionne la fonction format

test ca ca va t'aider a comprendre

Sub testz()
chaine = "ABCDEFGHI"
MsgBox Format(chaine, " @@ @@ @@ @@ @@ @@ @@ @@") 'FORMATAGE a l'endroit
MsgBox Format(StrReverse(chaine), " @@ @@ @@ @@ @@ @@ @@ @@") 'FORMATAGE a l'envers
MsgBox StrReverse(Format(StrReverse(chaine), " @@ @@ @@ @@ @@ @@ @@ @@")) 'FORMATAGE a l'envers et ré inversion du résultat
End Sub

 

[Usine à gaz]

Encore merci Patrick,
Je vais regarder ça aussi