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 |