Insertion espace vba

Version imprimable

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:

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

22/12/2017, 19h38
unparia

Bonjour,
Que VEUt DIRE exactement :

Citation:

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
22/12/2017, 19h48
bouh ça chauffe

1 pièce(s) jointe(s)

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
22/12/2017, 20h29
Invité

Bonsoir,

Code:

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

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

Code:

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) !

Merci de bien vouloir m’aide à comprendre :)

c mieux comme ça

Code:

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

22/12/2017, 21h41
unparia

Citation:

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
22/12/2017, 21h52
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 !
22/12/2017, 23h03
bouh ça chauffe

Bon ont en rediscutera apres le réveillon..
Joyeuse fête à vous tous

bonsoir
je t'ai fait un depart

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim X$
    Application.EnableEvents = False
    If Target.Column = 2 Then
        X = Target.Text
        Select Case Len(Target)
        Case 11: 'Target.Value = Format(X, "......")
        Case 13: Target.Value = Format(X, "@ @@@@@@ @@@@@@")
            'Case xx:Target.Value = Format(X, "......")
            'Case yy: Target.Value = Format(X, "......")
        End Select
    End If
    Application.EnableEvents = True
End Sub

23/12/2017, 09h15
unparia

Bonjour Patrick
Je ne crois pas que tu lui aies là rendu un vrai service. Il avait besoin d'organiser sa pensée, avant même d'écrire le code ... :coucou:
23/12/2017, 13h13
patricktoulon

re

re
Bonjour jacques

je sais pas la methode n'est pas absolue
je lui ai montré une parmi tant d'autres en espérant qu'il est l'intelligence d'annalyser
nous verrons bien
en ce qui te concerne tu donne trop de reponse enigmatique (pour un bleu)
perso je commence a te connaitre ( tout du moins la subtilité) mais c'est pas le cas de tout le monde
bon reveillon
perso n'ayant plus les broches je vais pouvoir rattraper un peu le temps perdu ces dernieres années ca va glisser a fond et tant pis si je me casse une jambe :mouarf:

parti pour quelques jours :coucou:
23/12/2017, 15h04
unparia

Citation:

en ce qui te concerne tu donne trop de reponse enigmatique (pour un bleu)

Bleu ou pas, informatique ou pas ...
J'essayais, par une intervention pourtant claire, de le forcer à organiser sa seule pensée.
Je lui demandais donc d'écrire ses actions en langage naturel (pas en code). Car là est sa faiblesse : raisonner ... seulement raisonner ... avec ou sans code !
"enigmatique" ? -->> tu plaisantes ? Je me suis même efforcé de lui montrer (en vain) les failles de logique, une par une ...
Je ne doute pas qu'il viendra dire : "j'ai tout compris" ... J'en vois beaucoup (beaucoup trop) dans ce cas, que l'on retrouve ici-même, mois après mois, année après année, qui "ont tout compris" mais reviennent toujours avec des questions vraiment élémentaires, voire à peine différentes de celles où ils disaient avoir "tout compris" d'un code qu'ils s'étaient manifestement contentés de copier/coller.
Je ne saurais encourager de telles "démarches". Je me sentirais même assez condamnable de le faire (et ce : pour mille et une raisons fondamentales).

Et aucun pouce rouge ne me déviera jamais de ce chemin-là

Problème : ce n'était pas son code (celui du traitement des chaînes) qui était faux ! Même lourd, il fonctionnait, mais uniquement ce qu'il écrivait pour dire quand traiter et quand ne pas traiter ... et cela était PRINCIPALEMENT DE LA LOGIQUE PURE, SANS CODE.
S'il ne met pas trois grammes de logique dans ce qu'il fait, s'il n'en prend pas la rigoureuse habitude (et cela ne s'apprend pas), il aura par la suite beau acquérir les connaissances les plus avancées en VBA, ces connaissances ne lui permettront pas de mettre en oeuvre des mécanismes qui nécessitent principalement l'application d'une logique (informatique ou pas) quelquefois de surcroît élémentaire.
Passe de bonnes fêtes
23/12/2017, 21h51
unparia

A bouh ça chauffe
J'insiste sur ce que je t'ai dit deux fois plus haut.
Si (et seulement si) tu fais cet effort de réflexion nécessaire et me le montres par un exposé, en langage naturel, des actions logiques à conduire, je prendrai alors la peine de t'exposer pourquoi le code que te suggère Patrick est très maladroit et à éviter, tel quel. Et te guiderai à éviter ce genre de piège à ... (devine) ...
A toi de voir, donc ...
J'attends ... ;)

EDIT : Patrick aurait gagné à réfléchir lui également plus posément et plus complètement. (pressé de partir "glisser" ?) ;)

A/aux "courageux" qui a/ont distribué sans le motiver son/leur "pouce rouge", maintenant : il vous sera alors possible de rougir aussi anonymement que votre clic sur ce pouce ... ;)