Discussion :

[bouh ça chauffe]

Bonjour à vous

Je me tourne une fois de plus vers vous pour éclairé ma lanterne.
J'ai bricolé un bout de code pour faire une mise en forme automatique.
En colonne B, je tape différent texte au format A1234567890 ou N123456123456, d'autres format aussi, mais ceux la ne sont pas si fréquent donc pas la peine d'automatisé, le format voulu est A 123 456 78 90 ou N 123456 123456

Ca marche bien en colonne B mais pourquoi dans les autre colonne si je fait un collage ont m'envoie en débogage avec erreur d’exécution 13??

Merci d'avance pour votre aide

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)
 
    If Target.Column = 2 And Len(Target) = 11 Then
 
    Target = Left(Target, 1) & " " & Mid(Target, 2, 3) & " " & Mid(Target, 5, 3) & " " & Mid(Target, 8, 2) & " " & Mid(Target, 10, 2) & " "
 
Else
 
   If Target.Column = 2 And Len(Target) <> 13 Then Exit Sub
 
   Target = Left(Target, 1) & " " & Mid(Target, 2, 6) & " " & Mid(Target, 7, 6) & " "
End If
End Sub

[unparia]

Bonjour,
Que VEUt DIRE exactement :

Ca marche bien en colonne B mais pourquoi dans les autre colonne si je fait un collage

?
Qu'entends-tu par "collage" ?
J'espère que tu n'as pas ajouté carrément une seconde procédure évènementielle WorkSheet_change ! (ce serait totalement insensé ...)
Explique donc

[bouh ça chauffe]

Merci de te penché sur la question

Si je colle quoi que ce soit dans le tableau en copier coller.
Si je tape une autre donné par exemple 123 en dehors de la colonne b le résultat sera 1
voir pièce jointe

[Invité]

Bonsoir,

Code :

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

Target=format("N123456123456","@ @@@@@@ @@@@@@")

[unparia]

Regarde en plus la logique de ce que tu as écrit (lis les commentaires que j'y ai ajoutés)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Column = 2 And Len(Target) = 11 Then '--->> donc si à la fois en colonne 2 avec une donnée de 11 caractères
 
       Target = Left(Target, 1) & " " & Mid(Target, 2, 3) & " " & Mid(Target, 5, 3) & " " & Mid(Target, 8, 2) & " " & Mid(Target, 10, 2) & " "
 
   Else '---> sinon (si donc pas A LA FOIS en colonne 2 et une donnée de 11 caractères) 
 
       If Target.Column = 2 And Len(Target) <> 13 Then Exit Sub '--->> si A LA FOIS en colonne 2 avec une donnée de longueur différente de 13 catactères -->> tu sors
                                                                                     ' --->> jamais vrai si autre colonne --->> et tu ne sors donc pas !
 
      Target = Left(Target, 1) & " " & Mid(Target, 2, 6) & " " & Mid(Target, 7, 6) & " " --->> ben ma foi --->> quelle que soit l'autre colonne et le nombre de caractères, tu n'es pas dans le cas 2 et n'es donc pas sorti -->> et cela s'exécutera donc !
  End If
End Sub

Je ne veux pas t'aider plus tant que tu n'auras pas su au moins corriger cette fausse logique (avant même de parler code) !

[bouh ça chauffe]

Merci de bien vouloir m’aide à comprendre

c mieux comme ça

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)
 
    If Target.Column = 2 And Len(Target) = 11 Then
 
       Target = Left(Target, 1) & " " & Mid(Target, 2, 3) & " " & Mid(Target, 5, 3) & " " & Mid(Target, 8, 2) & " " & Mid(Target, 10, 2) & " "
 
   Else 
 
       If Target.Column <> 2 or Len(Target) <> 13 Then Exit Sub 
                                                                                     
      Target = Left(Target, 1) & " " & Mid(Target, 2, 6) & " " & Mid(Target, 7, 6) & " "
  End If
End Sub

[unparia]

c mieux comme ça

Change "mieux" par "désespérant".
Tu as là une carence fondamentale de LOGIQUE (avec ou sans code... C'est la logique elle-même, qui est ici infirme !!!) !
Réfléchis encore

[unparia]

Allez --->>
Ecris-moi cela (les actions à conduire) en langage naturel (sans le moindre code, donc ... juste par des phrases si ... alors ... sinon ...
Et ce ne sera donc là QUE de la logique, hein ... aucun code !