Obliger une cellule à faire un espace dans le chiffre tapé

[romubzh35]

Bonjour
je souhaite obliger une cellule à changer le texte
si l'on tape 124515 il faut à chaque fois qu'il se trouve un espace entre le 4eme et 5 caracteres
exemple
714526 -> 7145 26
123456 -> 1234 56
pourriez vous me dire ce que je dois faire svp , merci d'avance

 

[ROGER2327]

Re : Obliger une cellule à faire un espace dans le chiffre tapé

Re...

ok bon j'ai capté, c'est le fait d'avoir des lettres qui fait que ca fonctionne pas..
j'espere que quelqu'un aura une petite idée pour m'aider
merci d'avance

Avec une procédure évementielle.

Dans le module de la feuille où les valeurs doivent être saisie, placer le code suivant :

[COLOR="DarkSlateGray"][B]Private Sub Worksheet_Change(ByVal Target As Range)
Dim oCel As Range
   With Range("B2:B11") [COLOR="SeaGreen"]'plage de saisie[/COLOR]
      If Not Intersect(Target, .Cells) Is Nothing Then
         For Each oCel In Intersect(Target, .Cells).Cells
            If Len(oCel.Value) > 2 Then
               If Mid$(CStr(oCel.Value), Len(CStr(oCel.Value)) - 2, 1) <> " " Then
                  oCel.Value = Left$(CStr(oCel.Value), Len(CStr(oCel.Value)) - 2) & " " & Right$(CStr(oCel.Value), 2)
               End If
            End If
         Next oCel
      End If
   End With
End Sub[/B][/COLOR]

Les valeurs que vous saisirez dans la plage B2:B11 devraient prendre le format que vous souhaitez.

Vous pouvez adapter à la plage de saisie qui vous convient en modifiant :

[COLOR="DarkSlateGray"][B]   With Range("[COLOR="Red"]B2:B11[/COLOR]") [COLOR="SeaGreen"]'plage de saisie[/COLOR][/B][/COLOR]

ROGER2327
#3245

 

[romubzh35]

Re : Obliger une cellule à faire un espace dans le chiffre tapé

Bonjour
je ne sais pas faire cela lol..
j'ai tout supprimé les infos confidentielles sur mon pc et je vous envoi ce qu'il en reste
les cellules en jaunes doivent etre celles qui s'affichent de la facon demandée
4 caracteres + 2 caracteres aores un espace
Cijoint.fr - Service gratuit de dépôt de fichiers
merci d'avance

 

[Tibo]

Re : Obliger une cellule à faire un espace dans le chiffre tapé

Bonjour,

Un essai sur la base d'un contrôle par Validation (menu Données) + une Mise en Forme Conditionnelle pour signaler les erreurs de saisie.

Nécessite de saisir avec un espace.

Voir le fichier joint

(J'ai allégé ton fichier : sans doute des images ou formes cachées dans un coin qui l'alourdissait)

@+

 

[romubzh35]

Re : Obliger une cellule à faire un espace dans le chiffre tapé

Ok je vais faire comme tu me proposes.
Comment as tu fais pour alleger ?
En fait à la base, j'ai un classeur excel avec 2 onglets, environ 3 photos en tout, et ca monte direct à plusieurs mégas meme en compressant les photos.
merci pour votre aide .

 

[Tibo]

Re : Obliger une cellule à faire un espace dans le chiffre tapé

re,

Comment as tu fais pour alleger ?

Ben, j'ai supprimé les photos ...😛

En fait, j'ai appuyé sur F5 - Cellules - Objets - OK

Puis Suppr

Ca a pour effet de supprimer tous les objets, images, photos, ...

Et ainsi pouvoir joindre le fichier sur le Forum.

Je te laisse remettre les photos si besoin.

@+

 

[romubzh35]

Re : Obliger une cellule à faire un espace dans le chiffre tapé

merci bcp
et bonne journée à tous

 

[ROGER2327]

Re : Obliger une cellule à faire un espace dans le chiffre tapé

Re...

(...)
je ne sais pas faire cela lol..
(...)

Alors, je le fais...

(Copier le code - Ouvrir le classeur - Alt + F11 - Sélectionner Feuil1 (Gamme de conditionnement) - Coller le code - Fermer la fenêtre)
​

ROGER2327
#3250

 

[romubzh35]

Re : Obliger une cellule à faire un espace dans le chiffre tapé

nickel

merci bcp !!!