Discussion :

[cl9191]

Bonjour, et d'avance merci a tous je trouve vraiment ce site génial , et j'espere vraiment que quelqu'un puisse m'aider.

J’explique, J’ai un fichier adresse a remettre en forme voir exemple ci-dessous.


AD1 |AD2
1 RUE DE LA VILLE RES DU BLANC |
5 RUE DES JARDINS APP 56 IMM 14 |
41 RTE DE VICQ TRUC MACHIN CHOSE |

Je voudrais cliquer sur la cellule A2 et mettre mon curseur devant RES puis cliquer sur un bouton pour qu’il coupe tout ce qu’il y a à droite et le colle en B2.
Pareil pour A3 devant APP et pour A4 devant TRUC.

Avez-vous une Idée ? Car se sont des fichiers quotidien de 6000 lignes et le couper coller ca devient trés dure.

Merci beaucoup

[Krovax]

Bonjour positionner ton curseur au milieu de la chaine de caractère je ne sais pas faire mais je ne voi pas a quoi cela va servir

Ensuite pour la manipulation de chaine de caractère sache qu'il faut être extrèmement rigoureu et avoir des critère très précis on peu facilement dire ce qui est a gauche de RUE en A1 a à droite va en B1 et les numéro d'appartement et autre en C1

Sauf qque tu doit pourvoir trouver des moyen de dire a excel comment reconnaitre les limites
ET vu les différent exemple tu ne peu compter ni sur le nombre de caractère, ni sur le nombre d'espace (bien que ca fera la première découpe sauf si tu as un 421 c rue de machin,etc...)

Je te donne un lien vers un tuto et te laisse réfléchir a comment tu veux t'organiser, n'oubli pas excel est plus idiot que nous tous réuni


Manipuler les chaînes de caractères en VB6 et VBA Excel

Edit après si tu veux faire du semi automatique (l utilisateur s'occupe de définir quel morceau de la chaine va ou) j'ai une bonne idée

[LeForestier]

Bonjour,
Si j'ai compris entre les ligne, tu veux pas cliquer mais rendre cela automatique ? vu que tu a 6000 lignes, cliquer sur 6000 lignes ça deviendrait fastidieux, non ?
Une macro qui ferait cela pour tes 6000 lignes ça t'arrange ?
A+

[cl9191]

Bonjour,

Krovax tu as bien compris le problème je ne peux pas me poser ni sur la longeur ni sur un caractere particulier.

Peut-être que la solution est la mettre a caractere specifique ou je veux découper puis faire une macro, mais je voulais plutot cliquer sur devant RES mettre dans une variable la position excat du curseur sur la chaine de caractere puis lui dire couper coller dans l'autre cellule.

Merci

LEFORESTIER : Merci pour ta réponse mais faire une macro pour découper de facon differente a chaque fois je peux me tromper mais ca me semble impossible.
Car comme je le dis plus haut je ne veux pas découper devant un blanc ou au mçme endroit a chaque fois.

[Krovax]

Une macro qu'il faudrai sans doute adapter pour pouvoir gérer plusieur ligne a la fois pour gagner du temps

Code :

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

1
2
3
4
5
6
7
8
9
10
 
sub init()
Dim i As Long, k As Integer
For i = 1 To Range("A65536").End(xlUp).Row
    tableau = Split(Cells(i, 1), " ")
    For k = 0 To UBound(tableau)
        Cells(i, k + 1) = tableau(k)
    Next k
Next i
End sub

Affecte un racourci clavier a cette macro

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub macro_fusion()
Dim cel As Range
Dim text As String
If Selection.Count = 1 Or Selection.Rows.Count > 1 Then Exit Sub
 
For Each cel In Selection
text = text & " " & cel
Next cel
Range(Cells(Selection.Row, Selection.Column + 1), Cells(Selection.Row, Selection.Column + Selection.Columns.Count)).Delete xlShiftToLeft
Cells(Selection.Row, Selection.Column) = text
End Sub

Tu lance la première après avoir mis toutes tes adresse dans la première colonne
Tu sélectionnes les morceau que tu veux fusionner (pour une ligne)
et tu lance la deuxième avec le racourcie clavier (en espérant que je ne me suis pas planté)

Après la découpe totalement automatique peut être envisagé si tu sais toutes les possibilité que tu peux renconrtrer :
exemple la première colonne s'arrête sur RUE, CHEMIN, AV Bde, impasse. tu peux tous les tester
pour le deuxième si tu as la liste exhaustive des possibilité c'est ausi jouable

[LeForestier]

Krovax : grrr ,
Mais je préférerais que tu nomme tes sub Init (avec un T) ça évite de confondre avec les fichier INI. (c'est pour rire)

[Krovax]

Voila qui est fait chef

Après s'il y a vraiment 6000ligne par jour, automatiser la tache revient presque a supprimer un emploi, déjà que ce code s'il traite plusieurs ligne a la fois (trois ligne qui se suive ou on fusionne les même colonne par exemple) ca va transformer un temps complet en temps partiel
(mais d'un point de vu rentabilité ca vau le coup d'y passer une bonne semaine, si tu as un moyen d'être exaustif dans les possibilité c'est jouable)

En plus je n'y ai pas pensé mais tu peux une fois que le centre est sélectionner fusionner tout ce qui est a droite automatiquement
Je te laisse essayer d'y réfléchir
regarde ici pour connaitre la dernière colonne utilisé d'un ligne
http://www.developpez.net/forums/d45...gnees-feuille/

[cl9191]

Bonjour,

Je vois tu me dis de faire un split et découper mot par mot puis de fusionner oui l'idée était bonne mais le problème c'est que le découpage ne peut être que visuel car je ne peux pas recenser tous les cas possible « crois moi les gens on de l’imagination quand il s’agit d’adresse.
Voila un exemple parmi tant d’autres :

App 6 Resid 25 254 Rue de la paix Porte 25

Voila tu vois je ne peux plus appliquer cette macro, j’insiste mais il y a-t-il une possibilité de récupérer dans une variable l’endroit exact du curseur lorsque je clique devant le P de porte

Merci.

[Krovax]

Je dirais non pas possible
Par contre regarde ma proposition, chaque mot dans une cellule ensuite tu regroupe les cellules sélectionner par macro
Et ca évite d'avoir a positionner le curseur au bon endroit plus facile de choisir une cellule qu'une positon dans une chaine de caractère

[LeForestier]

Une possibilité à dévellopper, (je laisserais la suite à Krovax)
Faire une macro qui boucle sur toutes les lignes
1°) met le contenu de la cellule dans un TextBox d'un UF.
2°) attend une sélection
3°) Couper la sélection. et recopier le reste dans la cellule( Ligne,1)
4°) copier la sélection dans la cellule (Ligne,2)
Avec un TextBox c'est possible.
Bon,.. enfin.. ce n'est qu'une piste.
A+
Edit: voir Propriété SetStart, SelLenght