Discussion :

[NEC14]

Bonsoir,

Merci à tous d'avoir participé à mon poste. J'ai eu du taf également et je n'ai pas eu le temps de tester le code, j'en suis désolé compte tenu de votre investissement. Je le teste demain matin et je vous tiens au courant.
Je ne pensais pas que ma question puisse m'apporter autant de réponse, je vous en remercie chaleureusement.
Bonne soirée à vous tous et à demain sans faute
Cordialement
René

[RyuAutodidacte]

Re Patrick,

j'ai testé tranquillement chez moi
j'ai laissé les cellules au format standard -Voilà ce que cela donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewTxt$, seq, n As Byte, i As Byte
    Target.NumberFormat = "@"
    If InStr(Target, " ") Then Target = Replace(Target, " ", "")
    seq = Array(2, 2, 2, 2, 2, 3):    n = 1
    For i = LBound(seq) To UBound(seq)
        NewTxt = NewTxt & " " & Mid(Target, n, seq(i)):     n = n + seq(i)
    Next
    Target = Trim(NewTxt)
 End Sub

Le dépassement de la séquence entraine que les lettres supplémentaires ne sont pas pris en compte

Edit : Modif de code => ajout d'un if (he oui il est necessaire ) et du Trim oublié

[patricktoulon]

re
a tu vois que c'est pas pareil hein
mais bon honnêtement je préfère le formatage

[RyuAutodidacte]

Re Patrick,

Tout a fait d'accord avec le formatage c'est plus propre, c'est bien pour cela que j'ai mis un pouce sur ta version améliorée par Jacques
Mais c'est en prenant parfois des chemins de traverse que l'on peut trouver des façons intéressantes de faire.
Ici c'est pas vraiment utile mais le principe de séquence pourrait être intéressant pour d'autre choses …

[unparia]

mais bon honnêtement je préfère le formatage

Oui pour la facilité
Pas vraiment pour l'agilité

On va s'amuser un peu --->>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
toto = "A234567890123"
titi = Split(StrConv(toto, vbUnicode), Chr(0))
For i = 2 To 10 Step 2
  titi(i) = " " & titi(i)
Next
MsgBox Join(titi, " ")

[NEC14]

Bonjour à tous,

J'ai testé le code de RyuAutodidacte et ça ne fonctionne pas chez moi, la macro tourne en boucle sans arrêt.
Par contre le code de Patrick fonctionne bien, je l'ai testé plusieurs fois et je n'ai pas rencontré de problème. Je vais encore testé pour être certain et regarder pourquoi celui de RyuAutodidacte ne fonctionne pas. Je vous avoue ne pas avoir essayé celui de unparia, je m'en excuses.
Voici le code de Patrick :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        If Not Target.Text Like " " Then
            lettre = Mid(Target.Text, 1, 2)
            nombre = Mid(Target.Text, 3, 16)
            'Debug.Print lettre
            'Debug.Print nombre
            Target.Value = lettre & " " & Format("  " & nombre, "## ## ## ## ###")
        End If
    End If
End Sub

Je vous remercie mille fois par avance pour votre aide, je reviens très vite confirmer mon choix.

[unparia]

Aïe Aïe Aïe !
Tu lis ce qui a été dit, au moins ?
Ecoute donc ton processeur puis corrige-moi cela, hein ...

[NEC14]

Pour revenir sur le code de , il bloque à ce niveau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NewTxt$, seq, n As Byte, i As Byte
    Target.NumberFormat = "@"
    If InStr(Target, " ") Then Target = Replace(Target, " ", "")
    seq = Array(2, 2, 2, 2, 2, 3):    n = 1
    For i = LBound(seq) To UBound(seq)
        NewTxt = NewTxt & " " & Mid(Target, n, seq(i)):     n = n + seq(i)
    Next
    Target = Trim(NewTxt)
 End Sub

Je tape mes références de cette façon : CN12345678987, O123456987451, 55641254698 et elles doivent devenir : CN 12 34 56 78 987, O1 23 45 69 87 451, 55 64 12 54 698.

[RyuAutodidacte]

Super Jacques
j'aurais du y penser tu nous l'avais déjà montré en plus. joli rappel

@RENE14 : je n'ai pas de souci quel est le message d'erreur ?

[NEC14]

Il n'y a pas de message d'erreur, ça tourne en boucle. Je dois appuyer sur Echap pour interrompre la procédure.

unparia j'ai bien lu toutes les réponses, mais je ne trouve pas la solution.

[patricktoulon]

re
Bonjour a tous

oui René14 jacques a raison tu peut utiliser mon model mais avec intr pas like c'est moins lourd
mais comme je l'ai dit plus haut autant ne pas se casser la tete et traiter tout en string

par contre quand je regarde tes exemples il y a 3 variantes

AZ xx xx xx xx xxx
et
xx xx xx xx xx xxx
et
xx xx xx xx xxx

il va te falloir ajouter peut être une condition sur la longueur de chaine

[NEC14]

En fait il y a 4 variantes :

Une suite de 15 : CN 00 00 00 00 00 000
Une suite de 13 : CN 00 00 00 00 000
Une suite de 13 : O (O de Orange) 0 00 00 00 00 000
Une suite de 13 : 00 00 00 00 00 000

Je vais tenter de régler ça.

Par contre j'ai voulu remplacer like par intr et un message m'avertit qu'il faut mettre Then ou Go To ???

[patricktoulon]

oui puisqu'on s'amuse avec strconv
en voila une qui devrait marcher pour tout tes formats

une seul chose que je ne comprends pas c'est le replace du chr(0) qui ne fonctionne pas
surtout qu'il ne devrait pas y être puisque c'est les délimiteurs du split

dans le select case change les numero pour tes colonnes a toi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
    Case 1, 2, 3, 7    'pour l'exemple c'est la colonne 1,2,3 et 7
        If InStr(Target.Text, " ") = 0 Then
            titi = Split(StrConv(Target.Text, vbUnicode), Chr(0))
            For i = 1 To UBound(titi) - 3 Step 2
                titi(i) = titi(i) & " "
            Next
            Target.Value = Replace(Join(titi), Chr(0), "")
        End If
    End Select
End Sub

[Invité]

Bonjour,
je m'incruste mais j'ai rien compris!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function MyFormat(v) As String
Dim t, f As String
t = Split(v & ",", ",")
For i = 1 To Len(t(0))
   f = f & "@" & Array(" ", "")(Abs(CBool(i Mod 2)))
Next
If Right(f, 2) = " @" Then Mid(f, Len(f) - 1, 2) = "@ ": f = Trim(f)
 
 
If UBound(t) > 1 Then
     f = f & "@ "
    For i = 1 To Len(t(1))
   f = f & "@" & Array(" ", "")(Abs(CBool(i Mod 2)))
Next
End If
If Right(f, 2) = " @" Then Mid(f, Len(f) - 1, 2) = "@ "
MyFormat = Format(CStr(v), Trim(f))
End Function

[patricktoulon]

re
non robert il n'y a qu'une série par cellule pas une suite coupée par virgule

[NEC14]

Merci Patrick, je regarde de plus près et je vous dis ce qu'il en est.

dysorthographie qu'est-ce que vous n'avez pas compris ? Peut-être me suis je mal expliqué. En tout cas merci pour votre participation

[NEC14]

Voici le code modifié, il n'y a des références que dans la colonne A. Toutes les références commençant par une lettre fonctionne bien, mais dès lors qu'il n'y a que des nombres ça bug, le format est le suivant : 5 , 4 8 7 4 5 E + 1 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Private Sub Worksheet_Change(ByVal Target As Range)
    Select Case Target.Column
    Case 1    'uniquement la colonne 1
        If InStr(Target.Text, " ") = 0 Then
            titi = Split(StrConv(Target.Text, vbUnicode), Chr(0))
            For i = 1 To UBound(titi) - 3 Step 2
                titi(i) = titi(i) & " "
            Next
            Target.Value = Replace(Join(titi), Chr(0), "")
        End If
    End Select
End Sub

[patricktoulon]

oui je l'ai remarqué après, essaie en mettant ta colonne au format text pour éviter le format abrégé d'Excel
mine de rien c'est une sacré colle ton truc

[Invité]

bonjour Patrick,

je me suis basé sur le post #28 ou on voit que les valeur de gauche avant et après virgule font 3 caractère!

j’avoue n'avoir pas tout lue!

[RyuAutodidacte]

Patrick,
Mon code n'a pas tourné en boucle chez toi ??