rechercher/remplacer

[jeannot]

Bonjour
j'ai une colone qui contient une chaine de 4 caracteres
et je cherche à insérer un carcatére x au beau milieu de cette chaine
par exemple
1954 ==> 19-54
1289 ==> 12-89

merci de votre aide

 

[Yeahou]

Salut

essaye cela, tu peux remplacer selection par les cellules à opérer

Sub essai()
Dim Cellule_en_Cours
For Each Cellule_en_Cours In Selection
If Len(Cellule_en_Cours.FormulaR1C1) = 4 Then Cellule_en_Cours.FormulaR1C1 = Left(Cellule_en_Cours.FormulaR1C1, 2) & "-" & Right(Cellule_en_Cours.FormulaR1C1, 2)
Next Cellule_en_Cours
End Sub


A+

 

[jeannot]

Merci Yeahou
c'est pile poil ce qu'il me faut

 

[andré]

Salut,

Un format personnalisé 00"-"00 donne le même résultat.

Ândré.