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