tri sur une chaine de caractère dans excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : tri sur une chaine de caractère dans excel

GTTeamKiller

エアリス

bonjour à tous,

j'ai un fichier excel qui reference des clients et il faut que je leur créé des codes clients a partir de leur raison sociale ( que j'ai dans le fichier excel à la colonne J) ...

le code client est à faire a partir des 5 premiers caracteres de la raison sociale, donc un simple =GAUCHE(J2;5) pourrait suffire sauf que certaines raisons sociales contiennent des caractères spéciaux ( genre espace, / , * ) et en fait je ne voudrais que les 5 premières lettres ou chiffres mais je ne sais pas comment trier ca ...

J'ai essayé avec une fonction cells.find mais j'ai une erreur avec le if que je n'arrive pas à syntaxer correctement avec ...

bref pour le moment j'ai ca, c est partiel, le tri n'est effectué que sur le caractère /, et de plus comme j'ai commencé le vba y a environ 20 minutes, c est un peu l'anarchie la :

Code :

Sub Macro1()
Dim i As Integer
For i = 2 To 3000
Cells(AJ, i).Select
if (Cells.Find(What:="/", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate )
Then Goto ok
ok:
ActiveCell.FormulaR1C1 = "=LEFT(RC[-26],5)"
End Sub

Qui peut m'aider ?
Merci :jap:

Publicité

kiki29

Salut, attention au probleme de doublons possibles, utiliser plutôt le N° Siret ?

GTTeamKiller

エアリス

Oui ca c est un autre probleme encore, et le numéro de siret je ne l utilise pas dans la mesure ou il n est pas dispo dans le fichier car en fait il s agit d un fichier de propects et relations diverses qui sont pour certains d entre eux seulement rattachés à une société cliente du coup tous ne pourront pas avoir de siret ...

je débarque dans la boite pour un stage avec pour mission d'uniformiser un peu leur base de données de clients/relations/connaissances mais la pour le moment c'est un sacré bazar pour rester poli, ils ont de tout, du fichier excel à la base de donnée hyperfile en passant par access ...

En fait la le but est de créer des codes clients sur 5 caractères, puis d importer ca dans les "vraies" bases de données déjà existantes apres avoir vérifié bien sur les doublons et/ou sociétés qui ont 2 codes clients distincts ...

GTTeamKiller

エアリス

En fait voila ce qu'il me faudrait en langage plutot humain :

Si les 5 premiers caractères de RaisonSociale contiennent " " ou "/" ou "*"
alors prendre les 5 premières lettres ou chiffres
sinon prendre les 5 premiers caractères.

Si il y a moins de 5 caractères c est pas génant dans la mesure ou 5 est le chiffre max du nombre de caractère de mon code client et que meme si y en a 3 ou 4 c est pas génant ..

mais je n'arrive pas a trouver la fonction dans excel ou en vba pour faire un tri avec uniquement l'alphanumérique ...

pyrof

Bonjour

Voici une fonction

Function dudule(tmp)
For b = 1 To Len(tmp)
Select Case Mid(tmp, b)
Case "0" To "9", "a" To "z", "A-Z"
tmp1 = b
Exit For
End Select
Next
dudule = Mid(tmp, tmp1, 5)
End Function

GTTeamKiller

エアリス

ah merci je vais voir ce que je peux faire avec ca

GTTeamKiller

エアリス

Cette fonction marche pour la première société mais me sort #VALEUR! pour toutes les suivantes, même celles qui ont une raison sociale de même format ?

pyrof

Ok j'ai oublié une ligne

Function dudule(tmp)
application.volatile
....

Si tu as encore des problèmes donne moi des exemples

GTTeamKiller

エアリス

En colonne J j'ai la raison sociale, en colonne AJ j ai le code client que je dois indiquer ...

Donc j'ai copié la fonction dans la partie module 1 de la fenetre microsoft visual basic et je mets en guise de valeur quand je veux remplir AJ2 :
=dudule(J2)

puis je tire vers le bas ... et ca ne remplit que les 4 premières dont la raison sociale est 8TEC ...
par contre si pour la société suivante ERDECOR je mets 8TEC alors ca remplit automatiquement la colonne AJ en 8TEC aussi ....
J'ai essayé en ERDE au cas ou il s'agirait du nombre de caractères qui pose probleme mais ca ne change rien ...

De plus j'ai testé également avec True apres application.volatile dans la mesure ou j'ai vu ca aussi sur google .... mais ca ne résout pas le probleme ...

babasss

Dans le même style que pyrof :

Code :

Function dudule(tmp)
Application.Volatile
tmp_new = ""
For i = 1 To Len(tmp)
Select Case Mid(tmp, i, 1)
Case "0" To "9", "a" To "z", "A-Z"
tmp_new = tmp_new & Mid(tmp, i, 1)
End Select
If Len(tmp_new) = 5 Then
Exit For
End If
Next
dudule = tmp_new
End Function

Message cité 1 fois

---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm

Publicité

pyrof

C'est aujourd'hui lundi et je ne dois être bien réveillé,
en voyant la macro de babass je m'apperçois qu'il manque un argument a mid:

Select Case Mid(tmp, b, 1)

Message cité 1 fois

GTTeamKiller

エアリス

babasss a écrit :

Dans le même style que pyrof :

Code :

Function dudule(tmp)
Application.Volatile
tmp_new = ""
For i = 1 To Len(tmp)
Select Case Mid(tmp, i, 1)
Case "0" To "9", "a" To "z", "A-Z"
tmp_new = tmp_new & Mid(tmp, i, 1)
End Select
If Len(tmp_new) = 5 Then
Exit For
End If
Next
dudule = tmp_new
End Function

celle la ne me sors que le premier caractères de la première société et plus rien ensuite :'(

Message édité par GTTeamKiller le 30-06-2008 à 15:30:18

GTTeamKiller

エアリス

pyrof a écrit :

C'est aujourd'hui lundi et je ne dois être bien réveillé,
en voyant la macro de babass je m'apperçois qu'il manque un argument a mid:

Select Case Mid(tmp, b, 1)

on renvient au comportement initial, a savoir ca marche pour la premiere société, puis j ai #VALEUR! pour les autres ...

actuellement j'ai ca du coup la :

Code :

Function dudule(tmp)
Application.Volatile True
For b = 1 To Len(tmp)
Select Case Mid(tmp, b, 1)
Case "0" To "9", "a" To "z", "A-Z"
tmp1 = b
Exit For
End Select
Next
dudule = Mid(tmp, tmp1, 5)
End Function

babasss

Arghh, je me suis laissée avoir par la formulation de pyrof, il faut mettre "A" to "Z" et non "A-Z"

Message cité 1 fois

---------------
Feedback : http://forum.hardware.fr/hfr/Achat [...] 2666_1.htm

GTTeamKiller

エアリス

babasss a écrit :

Arghh, je me suis laissée avoir par la formulation de pyrof, il faut mettre "A" to "Z" et non "A-Z"

Ah yes ca marche, merci

Merci a vous deux

maintenant j'ai plus qu'a m'attaquer aux doublons mais ca va devoir être vérifié à la main la de toutes facons parce qu'ils veulent décider au cas par cas ce qu'ils vont mettre en cas de doublons, 2500 entrées :sweat:

GTTeamKiller

エアリス

Ou alors il me faudrait une fonction ou macro qui trouve code client qui a au moins 2 raisons sociales distinctes ...

je sais le faire en SQL ca :sweat:

kiki29

re,l'occasion peut-être d'essayer cet utilitaire pour les doublons sous Excel http://www.mdf-xlpages.com/modules [...] d=2&lid=11

GTTeamKiller

エアリス

je teste cet utilitaire, merci

FORUM HardWare.fr

Programmation

VB/VBA/VBS

tri sur une chaine de caractère dans excel

Sujets relatifs
[Excel + Macro] Protection de feuille + Lancement automatique Macro	Problème excel / vba excel - répétition de titres en haut de page
[VBA] Ouvrir fichier Excel - même répertoire	Contenu d'une page Word vers excel
[VBA / Excel] Aide sur une macro a programmer	VBA Excel Supprimer des lignesl
[vba/excel] filtrage d'un numero	[vba excel] concatenation d'une chaine de caractère
créer un macro excel qui écrit une chaine de caractère dans DOS	[VBA Excel] Recherche spécial dans une chaine de caractère ?
Plus de sujets relatifs à : tri sur une chaine de caractère dans excel

Page générée en 0.061 secondes