Insertion automatique de caractères suite à une entrée

Bonjour à tous,

J'aimerais entrer 3 chiffres quelconque et je désire que ceux-ci soit automatiquement séparés par le symbole "x". Voir cellule C3 dans le fichier ci-joint. Exemple : je tape "25", "20" & "2" et automatiquement ces trois chiffres seront séparés par "x". La valeur "25 x 20 x 2" devra être affichée en format texte.

En vous remerciant à l'avance pour votre collaboration,

Salutations,

Renaud D.

Bonsoir,

une proposition de code qui ne s'applique qu'à la cellule C3

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Row <> 3 Or Target.Column <> 3 Then Exit Sub
x = Target.Value
If x = "" Then Exit Sub
If InStr(x, " x ") <> 0 Then Exit Sub
y = 0
s = ""
While Len(x) <> y
 y = Len(x)
 x = Replace(x, "  ", " ")
Wend
x = Replace(x, " ", " x ")
Target.Value = x
End Sub

Merci h2so4 pour ta réponse.

J'essaie d'entrer une série de chiffre dans la cellule "C3" mais rien ne se produit.

Pourrais-tu, s'il-te-plait me faire parvenir un fichier contenant ce code afin que je puisse le tester ?

Idéalement, en "C3", je dois entrer 3 chiffres quelconque et ils doivent être séparés par des "x". Le premier et deuxième chiffre contiennent 2 caractères (ex : 20 ou 25 ou 15,...) alors que le troisième chiffre contient toujours qu'un seul caractère (ex : 2 ou 1,...).

Salutations,

Renaud D.

Bonjour,

Une autre solution pour la colonne 'A', avec un espace pour différencier les chiffres.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
      Dim Cel As String
      Dim y As Byte
10        If Target.Count <> 1 Then Exit Sub
20        If Application.Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
30        On Error GoTo erreur
40        Cel = Target.Value
50        If Cel = "" Then Exit Sub
60        Application.EnableEvents = False
70        Cel = Replace(Cel, " ", "x")
80        Target.Value = Cel
90        Application.EnableEvents = True
erreur:
100   Application.EnableEvents = True
End Sub

Merci Jean-Eric pour ton aide,

Salutations,

Renaud D.

Bonjour Jean-Eric

Pourrais-je appliquer ton code aux cellules 'O39", "O40", "O41" et "O42" ?

Salutations,

Renaud D.

Re,

Pourrais-je appliquer ton code aux cellules 'O39", "O40", "O41" et "O42" ?

Que ces cellules?

A te relire

Cdlt

Bonjour Jean-Eric,

J'ai fait de légères modifications à ton code afin de tenir compte uniquement des cellules 'O39", "O40", "O41" et "O42" et ça fonctionne parfaitement à présent.

Merci encore pour ton aide.

Salutations,

Renaud D.