Discussion :

[NEC14]

J'ai un peu modifié ce code pour avoir l'option de 15 caractères :

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then
        If InStr(Target.Text, " ") = 0 Then
           Target.Value = Format(Left(Target.Text, 12), "@@ @@ @@ @@ @@ @@") & " " & Mid(Target.Text, 13)
        End If
    End If
 End Sub

Toutefois il ne fonctionne pas dès lors qu'il n'y a que des nombres, je pense qu'il faut que j'y ajoute cette condition : si il n'y a pas de texte alors appliquer le format nombre suivant 00 00 00 00 00 000, qu'en pensez-vous ?

[Marc-L]

Oui mais en contrôlant le nombre de caractères !   Voir dans l'aide VBA   Len   et   IsNumeric   …

[NEC14]

Est-ce que je peux utiliser cette fonction :

Code :

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

1
2
 
If Not WorksheetFunction.IsText(Column(i,1).Value) Then...

Il me faut trouver la suite pour avoir le bon format nombre 00 00 00 00 00 000

[patricktoulon]

met ton formatage dans une variable et modifie le au besoins

Code :

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

1
2
formatage="@@ @@ @@ @@ @@ @@@"
if isnumeric(target.value) then formatage=replace(formatage,"@","#")

[Invité]

effectivement j'ai rien compris!

[NEC14]

J'ai modifié le code comme suit, mais le format nombre ne fonctionne pas :

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)
    If Target.Column = 1 Then
        If InStr(Target.Text, " ") = 0 Then
           Target.Value = Format(Left(Target.Text, 12), "@@ @@ @@ @@ @@ @@") & " " & Mid(Target.Text, 13)
        End If
        formatage = "@@ @@ @@ @@ @@ @@@"
If IsNumeric(Target.Value) Then formatage = Replace(formatage, "@", "00 00 00 00 00 000")
    End If
End Sub

[NEC14]

dysorthographie, votre code a l'air de fonctionner ???

[Invité]

c'est pourtant le premier que j'ai posté! je pensai être dans les spam!

[NEC14]

Comment le mettre dans ma feuille ? Je crois qu'il faut le mettre dans un module, n'est-ce pas ? et comment appeler cette fonction à partir de ma feuille ?
Merci par avance

[patricktoulon]

robert et rené14
en fait robert ton truc marche parce que tu travaille sur une chaine (numeric ou pas) dans une variable

on a d'autre problème en fait
le premier et non des moindre c'est que quand l'utilisateur tape une série de chiffre exel le met en abrégé quand il y a 15 caractères
ok pas de soucis on prends le .value
sauf que le ".value" supprime les zéro qui sont devant se qui fait que a l'application du formatage il maque des caractères
et si on prend le .text on a la chaine en abrégé
c'est balo hein !!!

j'ai une idée sur une autre méthode mais c'est farfelu (utilisation d'un textbox qui lui ne subit pas le formatage automatique des cellules

ps j'ai essayé avant tout de mettre la colonne au format text et on peut taper ce que l'on veut mais la macro ne marche plus

le 2d problème c'est les variantes qui lui sont nécessaires

ingérables dans le sens ou même si on arrive a replacer les zero devant le format est pris pour une autre variante (15 caractères ou 13)

[RyuAutodidacte]

Re,

j'avais constaté ce problème et je tournais autour pour trouver une parade

PS : Patrick tu ne m'as pas répondu au post #40

il en est de même sil on mets moins de caractère style : 02-05 (sur format standard des cellules - he oui j'en ai essayé pleins)

[eriiic]

Bonjour,

Plus simplement la colonne peut-être mise au format texte (de toute façon c'est ce qu'elle est destinée à accueillir) et plus de problème.
eric

[Invité]

il faut formater la colonne en texte et la on peut taper 55641254698!

les paramètres de ma fonction sont des variant!

[patricktoulon]

eriic
fait tes test tu verra que c'est pas aussi simple
même en text quand dans la macro tu prends le.value ca supprime les zero devant quand c'est tout numeric
d'autant plus que ceci simplement ne marche plus quand les cellules sont en text ,

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)
 
    If Target.Column = 1 Then
        chaine = Target.Value
 
          If InStr(chaine, " ") = 0 Then
             Target.Value = Format(chaine, "@@ @@ @@ @@ @@ @@@")
        End If
    End If
 End Sub

c'est balo

[NEC14]

Oui effectivement, j'ai également remarqué que les zéros étaient supprimés. Mon problème parais plus complexe que je ne le pensais à prime abord. J'essaie également de trouver des solutions mais comme je n'ai pas votre niveau en vba, je rame un peu, même beaucoup.

Eriiic, la colonne ne reçoit pas que du texte, il y aussi des nombres, (CN 00 00 00 00 00 00 000, CN 00 00 00 00 00 000, O0 00 00 00 00 000, 00 00 00 00 00 000). J'ai essayé tous les formats de ma connaissance, mais aucun ne fonctionne.

Je vous remercie vraiment pour le temps que vous passez à m'aider, je suis conscient de l'investissement que cela peut vous prendre et je vous en suis reconnaissant

[patricktoulon]

ryu
quel code??

[RyuAutodidacte]

Post #22 Patrick

[unparia]

Coucou
Pour revenir à des fondamentaux :
que ferait ceci (avec une chaine de 13 chiffres commençant ou non par "0" en A1)

Code :

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

MsgBox Format(Range("A1").Value, "0" & String(12, "#"))

tout le reste est vraiment trop simple (numérique ou pas ? ... ) et ma sieste a la priorité.

[patricktoulon]

ceci fonctionne a condition que la colonne soit au format text avant de taper surtout pour le numeric

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
19
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim formatage$, chaine$
    'exemple suivant ta derniere reponse
    ' CN000000000000000  ' 17 caracteres dont 2 lettres
    'CN0000000000000  ' 15 caracteres dont 2 lettres
    'O000000000000   '13 caracteres dont 1 lettre
    '0000000000000   ' 13 caracteres tout numeric
    If Target.Column = 1 Then
        chaine = Target.Value
        Select Case Len(chaine)
        Case 17: formatage = "@@ @@ @@ @@ @@ @@ @@ @@@"
        Case 15: formatage = "@@ @@ @@ @@ @@ @@ @@@"
        Case 13: formatage = "@@ @@ @@ @@ @@ @@@"
        End Select
        If InStr(chaine, " ") = 0 Then
            Target.Value = Format(chaine, formatage)
        End If
    End If
End Sub

[patricktoulon]

@jacques

Code :

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

1
2
3
Sub test3()
MsgBox Format(Range("A6").Value, "0" & String(12, "#"))
End Sub

reponse


après ta sieste prioritaire tu pourrais nous expliquer ce que tu veux montrer

EDIT:
OK compris jacques bien vu
on se sert de cela au lieu de target.value tout court pour la chaine a traiter et comme on injecte par la suite la chaine segmentée par les espaces donc string on a pas besoins d'avoir les cellules au format text ,on les laisse en standard
je vais tester

EDIT2:
bon ben non si la colonne n'est pas en text ca supprime les zero devant dans la chaine segmentée donc inutile dans cet exercice
étonnant tout de même

edit3:
juste une parenthèse jacques
tu viens de me donner sans le vouloir une autre écriture pour ma contrib sur les nombres en lettre a fin d'avoir automatiquement des séries de 3 chiffres pour l'analyse et conversion

Code :

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

1
2
3
4
Sub test3()
chaine = "4525"
MsgBox Trim(Format(Format(chaine, "0" & String(Len(chaine) + chaine Mod 3, "#")), Application.Rept("@@@ ", Len(chaine) + chaine Mod 3)))
End Sub

cé!!bo!!