Microsoft 365 ajout de caractères dans une chaine

Usine à gaz · 25 Octobre 2019

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) :

VB:

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 · 25 Octobre 2019

bonjour Arthour

VB:

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 · 25 Octobre 2019

Bonjour Patrick,

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

Usine à gaz · 25 Octobre 2019

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

patricktoulon · 25 Octobre 2019

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

VB:

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 · 25 Octobre 2019

LOL, merci Patrick,
Je vais tester

Usine à gaz · 25 Octobre 2019

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 · 25 Octobre 2019

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

Usine à gaz · 25 Octobre 2019

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

Usine à gaz · 25 Octobre 2019

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

patricktoulon · 25 Octobre 2019

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

VB:

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 · 25 Octobre 2019

arthour973 à dit:
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 · 25 Octobre 2019

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

patricktoulon · 25 Octobre 2019

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

test ca ca va t'aider a comprendre

VB:

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 · 25 Octobre 2019

Encore merci Patrick,
Je vais regarder ça aussi

Microsoft 365 ajout de caractères dans une chaine

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires