Ajouter des espaces après le 2ème caractère dans une sélection

[Chri8Ed]

Bonjour à tous
Je me suis constitué une macro qui me permet d'ajouter des espaces après un mot recherché
Cela fonctionne bien
Mais en fait le mot ne m'intéresse pas
Ce qui m'importe c'est l'emplacement
Aussi je me dis qu'il doit être possible de faire beaucoup plus simple ??

Je m'explique
Je souhaite ajouter dans une sélection de cellule à partir du 3ème caractère 2 espaces supplémentaires
Exemple : "XX Exemple" doit devenir "XX Exemple"
Pardons mes 2 espaces supplémentaires n'apparaissent pas à l'écran
Je les remplace par des traits pour les matérialiser
Exemple : "XX_Exemple" doit devenir "XX ___Exemple"

Si il y a quelqu'un qui peut m'aider ?

Merci



Sub AjoutezEspacesAprèsMot()
'rechercher un mot dans une sélection et lui ajouter des espaces des espaces

MsgBox ("Vous devez en 1er sélectionner les cellules !!")

Dim c As Range
Dim Mot As Variant
Mot = InputBox("Quel mot recherchez-vous ?", Title:="Recherche un mot")
'Replace = InputBox("Par quel mot voulez vous remplacer ?", Title:="Remplacer le mot trouver")
If Mot = "" Then Exit Sub
For Each c In Selection
Selection.Replace What:=Mot & " ", Replacement:=Mot & " " ' Ici 2 Espaces supplémentaires

Next


End Sub

 

[sousou]

Bonjour
regarde avec ceci.
Sub deb()
For Each i In Selection
i.Value = Left(i, 2) & "--" & Right(i, Len(i) - 2)
Next
End Sub

 

[Chri8Ed]

Bonjour et merci Sousou
C'est bien ce que je cherchais
Mais je rencontre un problème
Si dans ma sélection, il y a une cellule vide
Cela pose problème

A+

 

[sousou]

Sub deb()
For Each i In Selection
if i<>"" then
i.Value = Left(i, 2) & "--" & Right(i, Len(i) - 2)
end if
Next
End Sub

 

[Lolote83]

Salut a tous,

Mais je rencontre un problème
Si dans ma sélection, il y a une cellule vide
Cela pose problème

Il suffit alors de tester le contenu de la cellule avant de faire le traitement
Donc, en reprenant le code de Sousou (que je salue au passage), je dirais

Sub deb()
For Each i In Selection
if isempty(i.value)=false then
i.Value = Left(i, 2) & "--" & Right(i, Len(i) - 2)
endif
Next
End Sub

En espérant que cela convienne
@+ Lolote83

 

[Chri8Ed]

Merci à nouveau
C'est parfait !
Plus de problème.

A+