Discussion :

[Samsoun8]

Bonjour,

Dans le cadre de mon travail, je dois faire une mise en forme texte de 4 colonnes représentant

Colonne 1 : Nom prénom
Colonne 2 : Adresse 1
Colonne 3 : Adresse 2
Colonne 4 : Adresse 3

Je ne peux pas aller sur la colonne 5 qui sera le code postal.

Cela représente plusieurs heures de travail de le faire cellule après cellule même avec le traitement des données par séparateur automatisé. (je dois insérer un point virgule là où je souhaite faire la coupure).
Au départ je fais un tri en nbcar et corrige uniquement les cellules trop longues. Mais ce travail devient fastidieux du fait que l'on me soumet de plus en plus d'adresse à traiter.

Le texte de chaque cellule ne doit pas dépasser 32 pixel. Si cela dépasse je dois prendre le dernier mot et le basculer sur la cellule de droite, et ainsi de suite jus-qu’avoir équilibré les 4 colonnes de texte.

J'ai tenté plusieurs formules (stxt; substitute; concatenate pour séparer) mais ne trouve aucune solution. Je pense à une macro mais malgré les tutos, je n'arrive pas à en construire une qui pourrait faire une découpe précise.

Si quelqu'un a la solution pour me faciliter ce travail, je lui en serai très reconnaissante.

J'ai joints un fichier brouillon à mon message afin d'illustrer ce que je dois traiter. Ceci ne représente qu'une partie, il y a parfois jusqu'à plus de 3000 lignes d'adresses.

Si besoin de questions ou plus de détails, je reste à dispo.

Merci par avance.

[Pierre Fauconnier]

Salut.

Quelle est la finalité de ce travail? Comment se présentent les données avant traitement?

Donne une copie d'écran de données BIDON avec ce que tu as et ce que tu souhaites obtenir. Et n'oublie pas de donner la finalité, car ça m'a l'air fort nébuleux comme affaire

[unparia]

Bonjour

car ça m'a l'air fort nébuleux comme affaire

Et bien plus que nébuleux, dès lors que

Le texte de chaque cellule ne doit pas dépasser 32 pixel

alors que la gestion de l'affichage fait par Excel dans les cellules n'est pas "immuable", notamment en matière des "marges" et dépend de facteurs qui échappent à la compréhension totale.
Ajoutons à cela que les unités graphiques utilisées sont les points et qu'il faudrait en plus (en plus de ce qui est dit dans ma phrase précédente) transposer en points des longueurs graphiques dépendant des polices de caractères et de leurs propriétés.
Petit rappel : Excel est un tableur.

[Pierre Fauconnier]

[...]
Petit rappel : Excel est un tableur.

Souvent envie de le mettre en "description du forum"...

[Samsoun8]

Bonjour,

Je vous remercie pour vos réponses.

En effet, c'est très nébuleux.

Excel est un tableur qui peut faire des miracles si on sait s'en servir. Je suis sûr que tout est possible et qu'une solution existe. Quelque chose qui m'échappe et dont je ne trouve pas la solution.

Ce que je souhaite c'est pouvoir répartir équitablement du textes entre les 4 colonnes.

Ce qui me bloque c'est que chaque cellule est différente. Je peux avoir une ligne parfaite et sur laquelle aucun changement n'est à faire et une autre où je vais devoir décaler le texte pour équilibrer le tout.

En pixel, je conçois que ce n'est pas représentatif. Donc disons que chaque cellule doit faire maximum 30 caractères (espace compris) et que le reste doit passer sur la cellule de droite (en mot complet). Sauf qu'à droite la cellule peut être vide ou avec du texte. Il faut donc que la formulation ou que la macro soit capable de transmettre l'ordre de déplacer ou conserver le texte de droite avec un maximum toujours de 30 caractère et ainsi de suite sur chaque colonnes.

Voici un exemple en pièce jointe comme demandé.

Si j'y arrive de mon côté, je vous transmettrai mes résultats. Mais pour le moment, je n'ai pas réussi à déplacer ou conserver le texte de droite.

Merci et bonne fête de fin d'année

[Invité]

Bonjour,

Je vais mettre mon petit grain de sel dans ton projet.

Etant un spécialiste du mailing, je traite des centaines de milliers d'adresses tous les mois, je vais donc essayer de t'aiguiller.

Je connais ce genre de situation, très rare heureusement.

Aucun algorithme ne te permettra de manière simple de résoudre ton problème, le seul moyen est de passer par un logiciel de RNVP (il existe des sociétés spécialisées pour cela), et donc un peu de lecture sur le sujet: https://fr.wikipedia.org/wiki/Restru...dation_postale

Ce genre de traitement à un coût non négligeable.

La seule chose qui est possible est de jouer sur la longueur en splittant ta chaîne avec l'espace comme séparateur, et en cumulant la longueur des mots pour recréer tes zones.
Sauf que cette méthode ne te donnera pas à tous les coups une adresse fiable postalement parlant.

Philippe

[Patrice740]

Bonjour,

Voici un exemple en pièce jointe comme demandé.

Demandé par qui ???
Certainement pas Pierre qui a demandé :

Donne une copie d'écran de données BIDON avec ce que tu as et ce que tu souhaites obtenir. Et n'oublie pas de donner la finalité, car ça m'a l'air fort nébuleux comme affaire

A lire à propos des fichiers joints : http://www.developpez.net/forums/d84...s-discussions/

[Samsoun8]

Bonjour et bonne année à tous.

Merci pour le rappel du règlement Patrice740 . C'est lu et approuvé



A Philippe JOCHMANS
Je vais lire les infos sur le RNVP
Pour le concatene + split par groupe de mot, c'est une bonne idée, je vais essayer.

Merci à tous

[Patrice740]

Bonjour,

Avec un visuel, c'est effectivement plus simple à comprendre, comme l'a très justement dit Philippe :

Aucun algorithme ne te permettra de manière simple de résoudre ton problème, [...]
La seule chose qui est possible est de jouer sur la longueur en splittant ta chaîne

Voici une petite macro à mettre dans le module de la feuille, pour finaliser tes adresses manuellement :
- Clic droit fait passer le dernier mot dans la cellule de droite
et à l'inverse,
- Double Clic ramène le premier mot de la cellule de droite

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
20
21
22
23
24
25
26
27
28
29
30
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Count = 1 And Target.Column >= 1 And Target.Column <= 3 Then
    Call RamenerUnMotDepuisLaDroite(Target)
    Cancel = True
  End If
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
  If Target.Count = 1 And Target.Column >= 1 And Target.Column <= 3 Then
    Call DeplacerUnMotVersLaDroite(Target)
    Cancel = True
  End If
End Sub
Private Sub DeplacerUnMotVersLaDroite(c As Range)
Dim t As Variant
  t = Split(c.Text, " ")
  If UBound(t) >= 0 Then
    t = t(UBound(t))
    c.Value = Trim(Replace(c.Text, t, ""))
    c.Offset(0, 1).Value = Trim(t & " " & c.Offset(0, 1).Text)
  End If
End Sub
Private Sub RamenerUnMotDepuisLaDroite(c As Range)
Dim t As Variant
  t = Split(c.Offset(0, 1).Text, " ")
  If UBound(t) >= 0 Then
    t = t(0)
    c.Offset(0, 1).Value = Trim(Replace(c.Offset(0, 1).Text, t, ""))
    c.Value = Trim(c.Text & " " & t)
  End If
End Sub