Discussion :

[rassoncaro]

Bonjour,

Je développe une macro dans laquelle je dois insérer deux caractères à la 8 et 9 eme place de ma chaine de caractères. Et je ne sais pas quelle commande je dois entrer.

Plus loin pour d'autres cells je dois supprimer les 5 premiers caractères.


Est ce que quelqu'un a déjà rencontrer ce genre de prob?

[fring]

Bonjour,

Pour ajouter les deux caractères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1) = Left(Cells(1, 1), 7) & "xy" & Right(Cells(1, 1), Len(Cells(1, 1)) - 7)

Pour supprimer les 5 premiers caractères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1) = Right(Cells(1, 1), Len(Cells(1, 1)) - 5)

[neupont]

tu peux faire ça avec les commandes Left et Right.

exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
 
dim maVariable as String
dim monAjout as String
 
maVariable = "une première chaîne"
monAjout = "zz"
 
maVariable = Left(maVariable, 7) & monAjout & Right(maVariable, Len(maVariable) - 7)

Ce qui doit te donner maVariable = "une prezzmière chaîne"
Je sais, c'est un exemple à la c...

[neupont]

tiens Fring m'a grillé ce coup-ci

[Gorfael]

Salut fring
Pour ajouter les deux caractères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1) = Left(Cells(1, 1), 7) & "xy" & Right(Cells(1, 1), Len(Cells(1, 1)) - 7)

Me semble préférable, non ?
A+

[fring]

oui exact, merci de m'avoir corrigé
mais...c'est Len(Cells(1, 1)) - 7

Tant qu'on y est, une autre solution :

pour l'ajout des deux caractères en 8ème et 9ème position

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1) = Mid(Cells(1, 1), 1, 7) & "xy" & Mid(Cells(1, 1), 8)

pour la suppression des 5 premiers caractères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cells(1, 1) = Mid(Cells(1, 1), 6)